VBScriptを使用して現在のディレクトリにExcelワークブックを保存

Question

私はデモしたい簡単なvbscriptを用意しており、スクリプトが実行されるディレクトリの中にExcelワークブックを最適に作成します。ここまで私がこれまで持っていたことがあります。

Set objExcel = CreateObject("Excel.Application") 
objExcel.Workbooks.Add 
Sheet = 1 
Set objSheet = objExcel.ActiveWorkbook.Worksheets(Sheet) 

objSheet.Name = "EXAMPLE" 


strExcelPath = "C:\Users\EXAMPLE\EXAMPLE.xlsx" 

(data values) 

objExcel.ActiveWorkbook.SaveAs strExcelPath 
objExcel.ActiveWorkbook.Close 
objExcel.Application.Quit 
Set objSheet = Nothing 
Set objExcel = Nothing 

WScript.Echo "Done." 

私は非常に名前を付けて保存にCURDIR機能を動作させる方法を見つけ出すことはできません。任意のヒント？

Answer 1

VBScriptを使用して現在のディレクトリを取得するには、次のコードを適切に使用します。

dim fso 
set fso = CreateObject("Scripting.FileSystemObject") 

dim CurrentDirectory 
CurrentDirectory = fso.GetAbsolutePathName(".") 

strExcelPath = fso.BuildPath(CurrentDirectory, "Example.xlsx") 

また、VBScriptのWScriptシェルのCurrentDirectoryプロパティを使用することもできます。

Dim WshShell, strCurDir 
Set WshShell = CreateObject("WScript.Shell") 
strCurDir = WshShell.CurrentDirectory 
strExcelPath = strCurDir & "\Example.xlsx"