Excel VBA質問箱 IV

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

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


41827 / 76732 ←次へ | 前へ→

【39981】Re:フォルダ内のファイルをまとめて転記したいのですが。
回答  Kein  - 06/7/4(火) 21:35 -

引用なし
パスワード
   こんな感じでしょーか。

Sub test2()
  Dim Sh As Worksheet
  Dim i As Long
  Dim FileName As String, LkSt As String
  Const FolderName As String = "\\C:test\"

  Set Sh = ThisWorkbook.Worksheets("Sheet2")
  Sh.Range("A:C").ClearContents
  FileName = Dir(FolderName & "*.xls")
  Do While FileName <> ""
    i = i + 1
    LkSt = "='" & FolderName & "[" & FileName & "]Sheet1'!"
    Sh.Cells(i, 1).Formula = LkSt & "$B$3"
    Sh.Cells(i, 2).Formula = LkSt & "$G$13"
    Sh.Cells(i, 3).Formula = LkSt & "$J$18"
    With Sh.Cells(i, 1).Resize(, 3)
     .Value = .Value
    End With
    FileName = Dir()
  Loop
  Set Sh = Nothing: MsgBox "値の転記を終了しました", 64
End Sub

1 hits

【39895】フォルダ内のファイルをまとめて転記したいのですが。 ESMEY 06/7/3(月) 20:54 質問
【39896】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/3(月) 21:15 発言
【39978】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/4(火) 20:50 発言
【39981】Re:フォルダ内のファイルをまとめて転記し... Kein 06/7/4(火) 21:35 回答
【39985】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/4(火) 22:12 発言
【39987】Re:フォルダ内のファイルをまとめて転記し... Kein 06/7/4(火) 22:27 発言
【39991】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/4(火) 22:58 発言
【39992】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/4(火) 23:06 発言
【39993】Re:フォルダ内のファイルをまとめて転記し... Kein 06/7/4(火) 23:15 発言
【40040】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/5(水) 23:10 発言
【40042】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/5(水) 23:14 発言
【40047】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/6(木) 0:05 お礼
【40049】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/6(木) 0:20 発言
【40094】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/6(木) 21:15 お礼
【40105】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/6(木) 22:33 発言
【40229】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/9(日) 22:25 お礼

41827 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free