Ｐａｇｅ 613 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼同一フォルダ内のファイルを順に見ていく方法 Taka 03/1/22(水) 19:33 ┗Re:同一フォルダ内のファイルを順に見てい... ポンタ 03/1/22(水) 22:07 ┗Re:同一フォルダ内のファイルを順に見てい... Taka 03/1/24(金) 13:50 ┗Re:同一フォルダ内のファイルを順に見てい... ポンタ 03/1/24(金) 21:37 ┗Re:同一フォルダ内のファイルを順に見てい... Taka 03/1/27(月) 9:26 ─────────────────────────────────────── ■題名 ： 同一フォルダ内のファイルを順に見ていく方法 ■名前 ： Taka ■日付 ： 03/1/22(水) 19:33 -------------------------------------------------------------------------
| こんにちは。単純なことをお聞きしてすみませんが、アンケートを集計してグラフを作成するマクロを作成したいと思っています。返却されたアンケート（ファイル）をあらかじめすべて同一フォルダ内に納めておき、その後ボタンを押すとそのフォルダ内のファイルを一つ一つ開いて結果を変数に入れていき最後にグラフが生成される仕組みです。ところで、同一フォルダ内のファイルを一つ一つ順に開いて見ていくPGMはExcelVBAではどのような書き方をするのでしょうか？ よろしければ教えてください。お願いします。 |
| サンプルコードです。 MyPath = "C:\My Documents\" この部分はそちらの環境に合わせて書き直してください。 標準モジュールに貼り付けて、 お試しください。 Sub test() Dim MyPath As String Dim MyFile As String Dim Wb As Workbook MyPath = "C:\My Documents\" MyFile = Dir(MyPath & "*.xls") Do While MyFile <> "" Set Wb = Workbooks.Open(MyPath & MyFile) MsgBox (Wb.Name & "を開きました") Wb.Close (False) MyFile = Dir() Loop End Sub |
| お答え誠にありがとうございます。 ところで、1件1件開いていく方法はわかったのですが、開いていくすべてのエクセルファイルにはマクロが記述されており、開く際に逐一「マクロを有効にするか」とたずねられる場合、これをすべて「マクロ有効」で自動的に開きたいのですが、 それをコードにすると何と書けばよいかご存知ですか？ 教えてください。 よろしくお願い申し上げます。 |
| 私の環境では、確認メッセージなし＆マクロ有効で開きます。 なので、分かりません。 ダイアログが出たんですか？ |
| すみません。 解決しました。私の思い違いでした。 助かりました。 ありがとうございました。 |