Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18766 / 76738

←次へ　｜　前へ→


	【63410】Re:ファイル集計

初心者 - 09/11/2(月) 14:11 -


	引用なし

	パスワード

▼こもとさん：
>▼初心者さん：
>
>こんな感じの事でしょうか？
>
>Sub test()
>Dim wb As Workbook, c As Long
>For Each wb In Application.Workbooks
>　If wb.Name <> ThisWorkbook.Name Then
>　　c = c + 1
>　　MsgBox c & "番目のファイルは" & wb.Name & "です"
>　End If
>Next wb
>End Sub

こもとさん、返信ありがとうございます。
まさに、こんな感じなんですが、

これをブックを
application.getopenfilename(filefilter:="サンプルファイル,*.xls",title:="ファイルを選択",multiselect:=true

という感じ？で選択させて、それらの選択したブックを
１つの集計というブックにシートを映してきたいと考えています。

これがまったくわからなくて・・・

0 hits

▼

【63328】ファイル集計 初心者 09/10/27(火) 16:23