Excel VBA質問箱 IV

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

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


57526 / 76732 ←次へ | 前へ→

【23942】Re:数あるファイルの中から
回答  m2  - 05/4/8(金) 13:00 -

引用なし
パスワード
   雰囲気を入れます。
 ブックのシートが不明です。


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

Sub Get_DIR()

 Dim MyPath As String, MyName As String
 Set sh1 = Workbooks(1)
 
 MyPath = ThisWorkbook.Path
 MyName = Dir(MyPath & "\Book*.xls")
 Do While MyName <> ""
   Workbooks.Open Filename:=MyPath & "\" & MyName
  
   Set sh2 = Workbooks(2)
   
   Call m2_SUB(MyName)
   sh2.Close
   MyName = Dir
 Loop
 End Sub
 
Sub m2_SUB(MyName)
 Dim 計 As Long
  計 = 0
 Dim WS As Worksheet

  For Each WS In sh2.Worksheets

 cnt = 1 + cnt
 sh1.Sheets("Sheet1").Range("A" & cnt) = sh2.Sheets(WS.Name).Range("c24")

 Next

End Sub
2 hits

【23081】数あるファイルの中から もえ 05/3/12(土) 13:02 質問
【23088】Re:数あるファイルの中から かみちゃん 05/3/12(土) 19:14 発言
【23418】Re:数あるファイルの中から もえ 05/3/22(火) 16:53 質問
【23439】Re:数あるファイルの中から kazu 05/3/23(水) 13:21 発言
【23941】Re:数あるファイルの中から もえ 05/4/8(金) 12:39 発言
【23942】Re:数あるファイルの中から m2 05/4/8(金) 13:00 回答
【23943】Re:数あるファイルの中から ウッシ 05/4/8(金) 13:01 発言
【23944】Re:数あるファイルの中から kazu 05/4/8(金) 13:12 発言
【23945】Re:数あるファイルの中から ウッシ 05/4/8(金) 13:31 回答
【23442】Re:数あるファイルの中から A 05/3/23(水) 13:39 回答

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