Excel VBA質問箱 IV

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

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


50065 / 76732 ←次へ | 前へ→

【31563】Re:フォルダ内の資料を全て開いて閉じる方法
回答  ちくたく WEB  - 05/11/25(金) 15:48 -

引用なし
パスワード
   ▼まい さん:

Dirを使いましょう。

Sub データ書き写し()

  Dim myFo As String
  Dim fileStr As String
  Dim myWb As Workbook
  
  myFo = "D:\Ki"  'フォルダのパス
  fileStr = Dir(myFo & "\", vbNormal)
  i = 2
  
  Do While fileStr <> ""
    Set myWb = Workbooks.Open(myFo & "\" & fileStr)

    myWb.Close
    fileStr = Dir
  Loop
  
End Sub

0 hits

【31560】フォルダ内の資料を全て開いて閉じる方法 まい 05/11/25(金) 15:35 質問
【31562】Re:フォルダ内の資料を全て開いて閉じる方法 Kein 05/11/25(金) 15:46 回答
【31563】Re:フォルダ内の資料を全て開いて閉じる方法 ちくたく 05/11/25(金) 15:48 回答
【31564】Re:フォルダ内の資料を全て開いて閉じる... まい 05/11/25(金) 16:11 質問
【31566】Re:フォルダ内の資料を全て開いて閉じる... ちくたく 05/11/25(金) 16:42 回答
【31600】Re:フォルダ内の資料を全て開いて閉じる... まい 05/11/26(土) 12:14 質問
【31681】Re:フォルダ内の資料を全て開いて閉じる... こたつねこ 05/11/28(月) 13:37 回答
【31687】Re:フォルダ内の資料を全て開いて閉じる... ちくたく 05/11/28(月) 15:09 お礼
【31689】Re:フォルダ内の資料を全て開いて閉じる... こたつねこ 05/11/28(月) 16:04 発言
【31688】Re:フォルダ内の資料を全て開いて閉じる... こたつねこ 05/11/28(月) 15:12 回答

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