バッチファイルでエクセルのマクロを動かしたい

Question

最近になってバッチファイルを知りました。バッチファイルを使ってエクセルファイルの中に書かれたマクロを動かしたいと思っています。
過去ログの検索をし、マクロが書かれたエクセルを起動させるところまではわかりました。
しかしその先がわかりません。わからない内容は次の二つです。
1)エクセル起動時マクロを有効にするかどうか聞いてきます。自動的に有効で起動させるにはどうしたらいいでしょうか。
2)Macro1という名前のものが001.xlsの中に既に作ってあったとして、これを作動させるにはどのようにしたらいいのでしょうか。
環境はwin xp sp2 office2000です。
過去ログを参考にし、下記記述で001.xlsを開くところまではわかりました。この後をどうすればいいか、よろしくお教えください。
"C:\Program Files\Microsoft Office\Office\excel.exe" "c:\My Documents\001.xls"

Wendy02 · Accepted Answer

こんにちは。

Perl 自体は、また別というか、Wscript.Run で呼び出してもよいと思いますが、
WScript でも、Perl の複雑な処理にはかないませんが、正規表現も持っていますから、多少は似たようなマネが出来ます。

バッチプログラムと違うのは、まず、フォルダを探すことが可能だということと、フォルダを選択する、ダイアログが使えるということです。

個別のファイルのファイルの移動なら、

Const myPATH ="C:\My Documents\

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile =objFS.GetFile(myPATH  & "Test.txt")
objFile.Move "C:\"

個別のファイルのファイルの削除なら、

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile =objFS.GetFile(myPATH & "Test.txt")
objFile.Delete

----------------------------------------------
ワイルドカードも使うようでしたら、
Const myPATH ="C:\My Documents\


Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.MoveFile myPATH &"*.txt", "C:\"

ですし、ファイルの削除なら、

Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.DeleteFile myPATH &"*.txt"

ということになります。

---------------------------------------------
なお、余談ですがVBAの技術は、今はもう停滞したままですが、総じて、テキスト・スクリプト側は、日進月歩、Win XP になってからは、１年ごとに、まるで違う技術が導入されているのです。歯が立たないかもしれませんが、どんな風になっているかは、知っておいたほうがよいかもしれません。昔は、コンパイラーを使った、実行ファイルしたが、今は、テキスト・スクリプトで、ツールを出しています。それは、Office 2007 も同じですね。そして、今は、スクリプトで、.Net FrameWork まで使ってしまおうというのだから、時代は変わっているのです。(知っている人には、間が抜けた発言ですが。）

参考サイト：
ヘイ! スクリプティング　ガイ
http://www.microsoft.com/japan/technet/scriptcenter/learnit.mspx

Wendy02 · Answer

こんにちは。

batch プログラムというのは、DOSの時代のものですね。

今の所は、Wscript プログラムを書いておきますから、メモ帳などに貼り付けて、拡張子を".vbs" にすればよいです。batch プログラムよりも遥かに優れています。

なお、(1) は、オブジェクトを作っていますから、無視されます。ただし、他人の環境では、ロックを外さないと以下は動きません。セキュリティを変更するコードは、掲示板では控えさせていただきます。


''ExcelOpen.vbs
Dim xlApp
Dim xlWb
CONST nFILE ="c:\My Documents\001.xls" 

Set xlApp = Wscript.CreateObject("Excel.Application")
With xlApp
    .Visible =True
Set xlWb =.Workbooks.Open (nFILE)
.Run xlWb.Name &"!Macro1"
End With
Set xlApp = Nothing

Wendy02 · Answer

こんばんは。

>バッチファイルの書き方で教えていただきたく
マクロの呼び出しなどできるはずもありませんし、Officeのセキュリティの問題も解決しません。

かつては、私も、バッチ(Shell)プログラムをずいぶん書いていましたが、Windows が使えない環境という設定なら分かりますが、Excel自体は、Windows のアプリケーションですから、それをバッチプログラムでっていうのは、私には良く分からないです。もう、WScript でも古いというのに、なお古い方法を選ぶのは、ちょっともう世界が違うように思います。

バッチプログラムで出来ることなど、今の時代でみると、本当に限られていると思います。

>これは自分で出来るので質問の中には書かなかったのですが、マクロを作動させる部分がWscript プログラムになると流れが作れなくなってしまいます。

流れというのか何か分かりませんが、バッチプログラムが、WScriptより優れているということはありえないです。すべてを移植しても、余りあると思います。

>ディレクトリー間のファイルの移動、削除等がエクセルマクロの前後に付いてきます。

その作業程度なら、WScript に置き換えればよいのでは？それで、バッチということもないと思います。分からなければ、Shell を使えばよいです。

もし、あくまでも、バッチプログラムをお望みなら、どなたかにお任せします。

yuji0401 · Answer

Dim obj

Set obj = WScript.CreateObject("Excel.Application")

obj.Visible = True

obj.Workbooks.Open "C:\Documents and Settings\Administrator\My Documents\001.xls"

obj.Application.Run "Macro1"

上記をメモ帳に貼り付けて、適当な名前に拡張子vbsで保存して実行してください。

バッチは無理なのでこれで勘弁してください(笑)

バッチファイルでエクセルのマクロを動かしたい

こんにちは。

この回答への補足

こんばんは。

この回答への補足

こんにちは。

Dim obj

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング