VB Script "マクロがこのブックで利用できないか、すべてのマクロが無効になる可能性があります"

Question

長時間の読者初めてのポスター....これは通常これらの方法です。私はExcelを開いて特定のマクロを実行する単純なVBSを作ろうとしてきました。私は数ヶ月前に私がこれを書いたときに誓った。私は同様のエラーのフォーラムを洗ったし、提案された何も私のために働いたようだ。

アイデア？

Option Explicit 
Dim xlApp, xlBook 

Set xlApp = CreateObject("Excel.Application") 

xlApp.DisplayAlerts=false 
Set xlBook = xlApp.Workbooks.Open("C:\Users\lnguy\Desktop\New Chemical Receipt Form.xlsm", 0, True) 

xlApp.Run "'C:\Users\lnguy\Desktop\New Chemical Receipt Form.xlsm'!Expired2" 

xlBook.Close 

xlApp.Quit 

Set xlBook = Nothing 
Set xlApp = Nothing 

WScript.Echo "Finished." 
WScript.Quit 

Answer 1

あなたは、別のパスにあなたがそれを言及二度目（FTO Development\が欠落している）を持っているので、マクロが見つかりません。

私はパスの変数を使用することによってこれを防ぐためにお勧めします：

Dim path 
path = "C:\Users\lnguy\Desktop\FTO Development\New Chemical Receipt Form.xlsm" 

' .... 

Set xlBook = xlApp.Workbooks.Open(path, 0, True) 

xlApp.Run "'" & path & "'!Expired2" 

Answer 2

独自のモジュールにWorksheet1からマクロを移動し、それはそれを参照することができ Public Subだ確実

。