Excelファイルとexcuteマクロを開く

Excelファイルを開き、VBScriptからActionImporterとActionExporterというマクロを実行します。ここでExcelファイルとexcuteマクロを開く

は私のコードです：

Option Explicit 
On Error Resume Next 

Dim AppExcel 
Dim repertoireMISAJOURComplete 
Dim nomDuFichier 

repertoireMISAJOURComplete = "G:\Pole recrutement et mobilite\Testoutil\Serveur_V2.1.1.xlsm"  

nomDuFichier = "Serveur_V2.1.1.xlsm" 
Workbooks.Open Filename:= repertoireMISAJOURComplete 

Set AppExcel = WScript.CreateObject("Excel.Application") 
AppExcel.Visible = True 
'On Error Resume Next 
'ouvre le classeur 
AppExcel.Workbooks.Open (repertoireMISAJOURComplete) 
'peut exécuter une macro 
'à l'ouverture (ôter l'apostrophe) 
'devant AppExcel.Run "Test" 
'et changer le nom de la macro : 
Windows(nomDuFichier).Activate 

Sheets("Administration Serveur").Select 
Application.Run nomDuFichier & "!'ActionImporter'" 

Windows(nomDuFichier).Activate 

Sheets("Administration Serveur").Select 
Application.Run nomDuFichier & "!'ActionExporter'" 
Set AppExcel = Nothing 

'quitte VBS 
WScript.Quit

出典

2016-09-22 Yiao Sun

をステップ＃1 VBScriptのデバッグ中：エラー再開Next'で 'グローバルを削除し、実際に見ます何が失敗する。あなたの問題はおそらくVBScriptにVBAコードが含まれていることが原因です。翻訳のガイドラインについては、[here]（http://sdb.planetcobalt.net/vba2vbs.shtml）を参照してください。 –

また、Excelインスタンスを作成する前にブックを開こうとすると助けになりません。 – Dave

VBScriptの観点から、 'Windows'、' Sheets'などは宣言されていない未初期化変数です。 –

私は解決策を見つけるので、私はあなたと共有：

Option Explicit 
Dim args, objExcel 
Set args = WScript.Arguments 
Set objExcel = CreateObject("Excel.Application") 

objExcel.Workbooks.Open "G:\Testoutil\Serveur_V2.1.1.xlsm",,,,"myPassword" 
objExcel.Visible = True 

objExcel.Run "ActionImporter" 

objExcel.Run "ActionExporter" 

objExcel.Quit

出典

2016-09-23 07:36:26

Excelファイルとexcuteマクロを開く

答えて

関連する問題