Excel VBA質問箱 IV

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

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


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

70899 / 76734

←次へ　｜　前へ→


	【10337】Re:フォルダ内のExcelを一つのファイルの...

INA - 04/1/19(月) 14:02 -


	引用なし

	パスワード

>ひとつだけです。

>a1.xls　　　　Sheet1
>a1.xls　　　　Sheet2
>a1.xls　　　　Sheet3

３個のシートがありますけど・・？
これはサンプルだからでしょうか？
実際のブックには抽出する対象となるシートが１つだけになっているのでしょうか？
それともブック内のシートを全部、抽出するのでしょうか？
基本的な部分なので、このあたりの仕様が正確に分かっていないと作れないです。

>新規エクセルのファイル上で教えていただいたマクロを実行したところ
>このファイルの各シートに反映されるのではなくsheet１のA1番地から
>下記のようにずらっとﾃﾞｰﾀではなくファイル名が表記されてしまいました。
>マクロの実行に問題があるのでしょうか？
それで正しい動作です。
フォルダを指定するとその中のファイル名とシート名を
抽出するマクロのサンプルとして、掲載してみました。

これをベースに抽出するファイル名を
IF文で条件分岐すればよいかと思います。

If Left(ファイル名,1) = "A" then
のように・・

1 hits

▼

【10298】フォルダ内のExcelを一つのファイルの各シートに反映したい is 04/1/16(金) 14:46