Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
37040 / 76738 ←次へ　｜　前へ→
【44872】Re:複数の同一形式のブックのセルデータを別のブックシートにまとめたい
回答  Kein  - 06/12/5(火) 1:11 -
引用なし
パスワード
   ブックAに以下のコードを入れ、定数 SFol の値を
リンク元ブックの保存先のパスに変更して、実行してみて下さい。

Sub MyData_Link()
　 Dim i As Integer
　 Dim MyF As String, LkSt As String
　 Const SFol As String = _
　 "C:\Documents and Settings\User\My Documents\Exl_Files"
　
　 For i = 1 To 90
　　　MyF = Dir(SFol & "\" & Format(i, "00") & "*.xls")
　　　With Worksheets("Sheet1").Cells(i, 1)
　　　　 If MyF = "" Then
　　　　　　.Value = "File_NotFound"
　　　　 Else
　　　　　　LkSt = "='" & SFol & "\[" & MyF & "]Sheet1'!$A$1"
　　　　　　.Formula = LkSt
　　　　　　.Value = .Value
　　　　 End If
　　　End With
　 Next i
　 MsgBox "全てのデータを転記しました", 64
End Sub
0 hits
▼ 【44871】複数の同一形式のブックのセルデータを別のブックシートにまとめたい yosinobu 06/12/4(月) 23:16 質問
【44872】Re:複数の同一形式のブックのセルデータを... Kein 06/12/5(火) 1:11 回答≪
【44900】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/5(火) 20:35 お礼
【44902】Re:複数の同一形式のブックのセルデータを... Kein 06/12/5(火) 20:57 回答
【44905】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/5(火) 21:29 お礼
【45016】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 9:47 質問
【45023】Re:複数の同一形式のブックのセルデータを... Kein 06/12/10(日) 14:57 回答
【45027】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 15:54 お礼
【45032】Re:複数の同一形式のブックのセルデータを... Kein 06/12/10(日) 17:03 発言
【45033】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 18:01 質問
【45034】Re:複数の同一形式のブックのセルデータを... かみちゃん 06/12/10(日) 18:09 発言
【45035】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 18:21 質問
【45037】Re:複数の同一形式のブックのセルデータを... かみちゃん 06/12/10(日) 18:40 発言
【45038】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 18:58 質問
【45039】Re:複数の同一形式のブックのセルデータを... かみちゃん 06/12/10(日) 19:04 発言
【45070】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/11(月) 23:51 回答
【45072】Re:複数の同一形式のブックのセルデータを... かみちゃん 06/12/12(火) 1:52 発言
【45154】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/13(水) 19:37 お礼
【45043】Re:複数の同一形式のブックのセルデータを... Kein 06/12/10(日) 23:06 回答
【45153】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/13(水) 19:32 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
37040 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free