Excel VBA質問箱 IV

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

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


50066 / 76732 ←次へ | 前へ→

【31562】Re:フォルダ内の資料を全て開いて閉じる方法
回答  Kein  - 05/11/25(金) 15:46 -

引用なし
パスワード
   Dim MyF As String
Const Ph As String = _
"C:\Documents and Settings\User\My Documents\MyFiles"
'↑目的のファイルを保存しているフォルダーのパスにする

MyF = Dir(Ph & "\*.xls")
Application.ScreenUpdating = False
Do Until MyF = ""
  Workbooks.Open Ph & "\" & MyF
 
  'ここに処理コードを書く

  ActiveWorkbook.Close True
  MyF = Dir()
Loop
Application.ScreenUpdating = True

というようなコードが、最も一般かと思います。
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 回答

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