Excel VBA質問箱 IV

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

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


33601 / 76734 ←次へ | 前へ→

【48349】Re:ファイルのデータをまとめ、更に別場所にコピー
回答  Kein  - 07/4/13(金) 16:08 -

引用なし
パスワード
   >3つのファイルパス
フルパスを書くとなると結構長いので、タイプミスでエラーになるかも
しれませんよ。なのでもし、3つのブックが別々のフォルダーに保存
されているなら、一つにまとめておいてブック名(拡張子はいらない)のみを
セルに入力した方がいいです。
それが出来ないなら、"ファイルを開く"ダイアログを繰り返し出して、
コピー元のブックを一つ選択しては処理する。というやり方にした方が安全です。
それで良ければコードは・・

Sub Data_Collect2()
  Dim WS As Worksheet
  Dim i As Long, xR As Long
  Dim MyF As String, Snm As String

  Set WS = ThisWorkbook.Worksheets(1)
  Application.ScreenUpdating = False
  WS.Cells.ClearContents
  For i = 1 To 3
   MyF = Application _
   .GetOpenFilename("エクセルブック(*.xls),*.xls")
   If MyF = "False" Then Exit Sub
   Snm = StrConv(CStr(i), 4)
   Workbooks.Open MyF
   With ActiveWorkbook.Worksheets(Snm)
     xR = .Range("A65536").End(xlUp).Row
     If i = 1 Then
      .Range("A1:AF" & xR).Copy WS.Range("A1")
     Else
      .Range("A2:AF" & xR).Copy WS.Range("A65536") _
      .End(xlUp).Offset(1)
     End If
   End With
   ActiveWorkbook.Close False
  Next i
  Set WS = Nothing
End Sub
3 hits

【48334】ファイルのデータをまとめ、更に別場所にコピー の ぶ 07/4/13(金) 9:53 質問
【48341】Re:ファイルのデータをまとめ、更に別場所... Kein 07/4/13(金) 13:29 回答
【48344】Re:ファイルのデータをまとめ、更に別場所... の ぶ 07/4/13(金) 14:47 お礼
【48347】Re:ファイルのデータをまとめ、更に別場所... の ぶ 07/4/13(金) 15:30 質問
【48349】Re:ファイルのデータをまとめ、更に別場所... Kein 07/4/13(金) 16:08 回答
【48353】Re:ファイルのデータをまとめ、更に別場所... の ぶ 07/4/13(金) 17:05 お礼
【48406】Re:ファイルのデータをまとめ、更に別場所... の ぶ 07/4/16(月) 16:19 質問

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