Excel VBA質問箱 IV

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

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


434 / 75384 ←次へ | 前へ→

【80595】フォルダ内のファイルの一部シートの集計
質問  mkmk  - 19/3/17(日) 12:00 -

引用なし
パスワード
   VBA初心者です。

同じフォルダ内の複数ファイルのSHEET"集計"のDATAを同じフォルダにある集計用ファイルのSHEET全集計にコピペしたいです。
集計元のファイルを順番に開いて、集計先の全集計の空白行に続けて転記していく記述をサイト検索し行ったのですが、集計元のファイルは開くのですが、集計先に貼り付けされないです。

11行目のSET TARGET=にカーソルを当てると、本来は集計先であるはずの
内容が、集計元のファイルが表示されます。
ここが原因だと思うのですが、どのような記述にすればよいのかわからず
ご教授頂けないでしょうか。

何卒宜しくお願いいたします。


Sub sample()
  Dim myPath As String
  Dim myFile As String
  Dim target As Range
  On Error Resume Next
  
  myPath = ThisWorkbook.Path & "\"
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  
  myFile = Dir(myPath & "*.xlsx")
  
  Do Until myFile = ""
  
   If myFile <> ThisWorkbook.Name Then
  
  
    Set target = ThisWorkbook.Worksheets("全集計").Cells.SpecialCells(xlCellTypeLastCell).Offset(0).End(xlToLeft)
  
    target = myFile
  
  With Workbooks.Open(Filename:=myPath & myFile)
  .Worksheets("集計").Range("a1:b30").Copy Destination:=target.Offset(0, 1)
  .Close savechanges:=False
   End With
   End If
   myFile = Dir()
  Loop
 
  Cells.Select
  Selection.Copy
  Selection.pastspecial Paste:=xlpastvalues, operation:=xlNone,  skipblanks_:=False, transpse:=False
  Application.CutCopyMode = False

End Sub

46 hits

【80595】フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 12:00 質問[未読]
【80597】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 12:25 発言[未読]
【80599】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 13:26 質問[未読]
【80600】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 13:55 発言[未読]
【80601】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 14:21 質問[未読]
【80602】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 15:03 発言[未読]
【80603】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 15:58 質問[未読]
【80604】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 16:33 発言[未読]
【80605】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 16:47 質問[未読]
【80606】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 17:01 発言[未読]
【80607】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 17:18 質問[未読]
【80608】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 17:26 発言[未読]
【80609】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 20:33 質問[未読]
【80610】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 21:56 発言[未読]
【80611】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 22:11 質問[未読]
【80612】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 22:28 発言[未読]
【80613】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 23:04 質問[未読]
【80614】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 23:18 発言[未読]
【80615】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 23:50 質問[未読]
【80618】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/18(月) 18:49 発言[未読]

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