Excel VBA質問箱 IV

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

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


41830 / 76732 ←次へ | 前へ→

【39978】Re:フォルダ内のファイルをまとめて転記したいのですが。
発言  ESMEY  - 06/7/4(火) 20:50 -

引用なし
パスワード
   かみちゃんさんありがとうございます。

やってみたのですが、つまづいてしまいました。
下記のように書いたのですが・・

Sub test()
  Dim i As Long
  Dim ARow As Long
  Dim FolderName As String
  Dim FileName As String
  
  FolderName = "\\C:test"
  FileName = Dir(FolderName & "\*.xls")
  Do While FileName <> ""
→→ARow = ThisWorkbook.Worksheets("Sheet2").Range("A65536").End(xlUp).Row
  Workbooks.Open (FolderName & "\" & FileName)
  Worksheets("Sheet1").Range("B3").Copy Destination:= _
→→thisbook.Worksheets("Sheet2").Range("A" & ARow + 1)
  
  ActiveWorkbook.Close savechanges:=False
  FileName = Dir()
  Loop
End Sub

→の行のように書くとマクロを実行する度
どんどん下行へ下行へ追加されていきます。
どう変えたら、フォルダ内全ファイルのB3の数値がA1:A20に入るのでしょうか?
ご教授お願いします。

2 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 お礼

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