Excel VBA質問箱 IV

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

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


46398 / 76732 ←次へ | 前へ→

【35306】Re:複数の別シートから一気に情報を取得したい。
発言  ponpon  - 06/2/26(日) 2:09 -

引用なし
パスワード
   ファイルなら一つのフォルダに入れておいて、
Dir関数を使って、一つずつ処理されたらいかがでしょうか?

Sub test()
  Dim myPath As String
  Dim myFile As String
  Dim myBK As Workbook
  
  Application.ScreenUpdating = False
  myPath = ThisWorkbook.Path & "\"
  myFile = Dir(myPath & "*.xls")

  Do While myFile <> ""
    Set myBK = Workbooks.Open(Filename:=myPath & myFile)
    If myFile <> ThisWorkbook.Name Then
   
     '処理
   
      myBK.Close
    End If
    myFile = Dir()
  Loop
  Application.ScreenUpdating = True
  
End Sub

こんな感じでできると思います。

0 hits

【35284】複数の別シートから一気に情報を取得したい。 こば。 06/2/25(土) 15:33 質問
【35285】Re:複数の別シートから一気に情報を取得し... なっちゃん 06/2/25(土) 17:29 発言
【35303】Re:複数の別シートから一気に情報を取得し... こば。 06/2/26(日) 0:42 お礼
【35286】Re:複数の別シートから一気に情報を取得し... ponpon 06/2/25(土) 20:44 発言
【35304】Re:複数の別シートから一気に情報を取得し... こば。 06/2/26(日) 0:47 お礼
【35306】Re:複数の別シートから一気に情報を取得し... ponpon 06/2/26(日) 2:09 発言

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