Excel VBA質問箱 IV

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

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


10706 / 13644 ツリー ←次へ | 前へ→

【20239】同一フォルダ内のファイル操作について 新参者 04/12/2(木) 18:12 質問[未読]
【20245】Re:同一フォルダ内のファイル操作について IROC 04/12/3(金) 8:43 回答[未読]
【20246】Re:同一フォルダ内のファイル操作について 新参者 04/12/3(金) 9:12 発言[未読]
【20247】Re:同一フォルダ内のファイル操作について IROC 04/12/3(金) 9:42 回答[未読]
【20285】Re:同一フォルダ内のファイル操作について 新参者 04/12/4(土) 13:24 お礼[未読]
【20297】Re:同一フォルダ内のファイル操作について 新参者 04/12/4(土) 15:11 質問[未読]
【20302】Re:同一フォルダ内のファイル操作について IROC 04/12/4(土) 18:23 回答[未読]
【20332】Re:同一フォルダ内のファイル操作について 新参者 04/12/6(月) 9:06 お礼[未読]

【20239】同一フォルダ内のファイル操作について
質問  新参者  - 04/12/2(木) 18:12 -

引用なし
パスワード
   初めて投稿させていただきます。

さっそくですが、
◎売上表というフォルダ内に50〜100くらいの別フォルダがあります。
その中にエクセルファイルがあるのですが、それらのファイルのシート1のセルA3、A4、A5を例えば9月売上というファイルに集計させることは可能でしょうか?

今は売上表に100くらいのエクセルファイルがあり、(ファイル名は「*!.xls」いう感じで合わせています。)それらを集計しているのですが、売上表の中にさらにフォルダ分けしたいと思い質問しました。
なにぶん今のマクロも作っていただいたものであまりわかりません。
どうぞ教えてください。

【20245】Re:同一フォルダ内のファイル操作について
回答  IROC  - 04/12/3(金) 8:43 -

引用なし
パスワード
   いまのマクロがどのようなものか分かりませんが、
Dir関数のパスの指定を変更して対応できませんか?

【20246】Re:同一フォルダ内のファイル操作について
発言  新参者  - 04/12/3(金) 9:12 -

引用なし
パスワード
   ▼IROC さん:
>いまのマクロがどのようなものか分かりませんが、
>Dir関数のパスの指定を変更して対応できませんか?

IROCさん、お返事ありがとうございます!
実は今のマクロは作っていただいたもので、恥ずかしい話ですがパスワードでロックされていてマクロの中が見れないのです・・。
ですので改良するにもできず、新しく作ってみようと思いました。
ヒントだけでも教えていただけるとありがたいです。

【20247】Re:同一フォルダ内のファイル操作について
回答  IROC  - 04/12/3(金) 9:42 -

引用なし
パスワード
   >恥ずかしい話ですがパスワードでロックされていてマクロの中が見れないのです・・。
このようなフリーソフトもあるので、試してみては如何でしょう?
http://www.vector.co.jp/soft/win95/util/se165331.html

【20285】Re:同一フォルダ内のファイル操作について
お礼  新参者  - 04/12/4(土) 13:24 -

引用なし
パスワード
   ▼IROC さん:
>>恥ずかしい話ですがパスワードでロックされていてマクロの中が見れないのです・・。
>このようなフリーソフトもあるので、試してみては如何でしょう?
>http://www.vector.co.jp/soft/win95/util/se165331.html

ありがとうございます!
これで中を見れるので、試行錯誤してみます。

【20297】Re:同一フォルダ内のファイル操作について
質問  新参者  - 04/12/4(土) 15:11 -

引用なし
パスワード
   色々見ているのですが、すいませんがもうひとつ教えてほしいです・・・

どうしてもフォルダ分けすると検索に引っかかりません。
以下に少し書きます。

 File
 g検索File = Worksheets("設定").Cells(5, 3).Value

おそらくこの行で設定ワークシートのC5のセルを指定して検索するものだと思うのですが(C5には「*!.xls」と入れてます)、この場合はどう変えればもう一つ下の階層のxlsまで検索できるのでしょうか?

素人質問ですいません。

【20302】Re:同一フォルダ内のファイル操作について
回答  IROC  - 04/12/4(土) 18:23 -

引用なし
パスワード
   これは検索対象のファイルの指定ですね。
検索フォルダ(パス)の指定も何処かにあると思います。
そちらを変更した方がよいでしょう。

もし、こちらで変更するなら、
g検索File = "test\" & Worksheets("設定").Cells(5, 3).Value
       ↑
 このようにフォルダ名を追加すれば出来ると思います。

【20332】Re:同一フォルダ内のファイル操作について
お礼  新参者  - 04/12/6(月) 9:06 -

引用なし
パスワード
   ▼IROC さん:
>これは検索対象のファイルの指定ですね。
>検索フォルダ(パス)の指定も何処かにあると思います。
>そちらを変更した方がよいでしょう。
>
>もし、こちらで変更するなら、
>g検索File = "test\" & Worksheets("設定").Cells(5, 3).Value
>       ↑
> このようにフォルダ名を追加すれば出来ると思います。

ほんとに何から何までありがとうございます!
がんばってやってみます。

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