エクエルのVBAについての質問です。一つのフォルダにエクセルシートが100個あります。そのシート

締切済

質問者：ykikd
質問日時：2019/02/19 11:57
回答数：2件

エクエルのVBAについての質問です。

一つのフォルダにエクセルシートが100個あります。
そのシート一つ一つのA11セルに
=SUM(A2:A10)
の計算式を入力するようなVBAを作ることはできないでしょうか

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： fujillin
回答日時：2019/02/19 12:36

＞一つのフォルダにエクセルシートが100個あります

フォルダ内にいきなり単体のシートが複数あるという状況を想像できませんが・・・

＞計算式を入力するようなVBAを作ることはできないでしょうか
対象とするシートとそうでないものの区別ができるなら（あるいは存在するもの全てを対象とするとか）、多分、可能と思われます。

普通に考えれば
　1）フォルダ内のすべてのexcelファイルに対して以下の処理を行う
　2）ファイルを開きファイル内の各シートが
　3）対象シートであれば、A11セルに関数式をセット
　4）全シート終了したらファイルを閉じ、次のファイルを処理する　
のような処理を行えばよさそうに思います。
（ご質問文に、記載されていない特殊な条件が存在すればまた別です）

- 0
- 件

通報する

No.1

回答者： zgmfx10a
回答日時：2019/02/19 12:32

可能です。

ロジックだけ回答します。

http://officetanaka.net/excel/vba/file/file07.htm
を参考に、Dir関数でファイルリストを取り出します。
各ファイルに対し、

・ブックを開く。Workbooks("ファイル名").openを使用 ※
・該当セルに式を代入
・開いたブックをCloseで閉じる

※ブックを開くときは以下を参考にしてください。
http://officetanaka.net/excel/vba/file/file01.htm
「3.名前を指定して開く」のところ