Excel VBA質問箱 IV

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

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


57017 / 76738 ←次へ | 前へ→

【24462】Re:ファイル同士の集計方法
発言  m2m10  - 05/4/22(金) 14:48 -

引用なし
パスワード
   有る程度解るみたいなので、
ファイルをオープンし、集計のサンプル。。
SUB ルーチングの 
 Sub m2m10_SUB(MyName) の部分を修正すれば、

 ファイルの数は関係有りません。


Public sh1 As Object
Public sh2 As Object
Public cnt As Integer

Sub DIR_Get()

 Dim MyPath As String, MyName As String
 Set sh1 = Workbooks(1)
 
 MyPath = ThisWorkbook.Path ' 参照のホルダーになります
 MyName = Dir(MyPath & "\*.xls")
 Do While MyName <> ""
   Workbooks.Open Filename:=MyPath & "\" & MyName
  
   Set sh2 = Workbooks(2)
   
   Call m2m10_SUB(MyName)
   sh2.Close
   MyName = Dir
 Loop
 End Sub
 
Sub m2m10_SUB(MyName)
 Dim 計 As Long
  計 = 0
 Dim WS As Worksheet

  For Each WS In sh2.Worksheets

  計 = sh2.Sheets(WS.Name).Range("B6") + 計 '******集計****

 Next

 cnt = 1 + cnt
 sh1.Sheets("Sheet1").Range("A" & cnt) = MyName
 sh1.Sheets("Sheet1").Range("b" & cnt) = 計


End Sub

0 hits

【24445】ファイル同士の集計方法 ポポ 05/4/22(金) 13:37 質問
【24446】Re:ファイル同士の集計方法 G-Luck 05/4/22(金) 13:45 発言
【24449】Re:ファイル同士の集計方法 ポポ 05/4/22(金) 13:57 質問
【24453】Re:ファイル同士の集計方法 G-Luck 05/4/22(金) 14:09 発言
【24456】Re:ファイル同士の集計方法 ポポ 05/4/22(金) 14:25 質問
【24459】Re:ファイル同士の集計方法 G-Luck 05/4/22(金) 14:40 発言
【24461】Re:ファイル同士の集計方法 ウッシ 05/4/22(金) 14:42 回答
【24466】Re:ファイル同士の集計方法 G-Luck 05/4/22(金) 14:55 発言
【24472】Re:ファイル同士の集計方法 ポポ 05/4/22(金) 16:40 お礼
【24462】Re:ファイル同士の集計方法 m2m10 05/4/22(金) 14:48 発言
【24471】Re:ファイル同士の集計方法 ポポ 05/4/22(金) 16:35 質問
【24448】Re:ファイル同士の集計方法 m2m10 05/4/22(金) 13:50 発言
【24451】Re:ファイル同士の集計方法 ポポ 05/4/22(金) 14:05 質問

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