使用 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:UsersEXAMPLEEXAMPLE.xlsx"
(data values)
objExcel.ActiveWorkbook.SaveAs strExcelPath
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
Set objSheet = Nothing
Set objExcel = Nothing
WScript.Echo "Done."

我不太清楚如何将 CurDir 函数工作到 SaveAs 中。有什么提示吗？

Answer 1

适当地使用以下代码使用 VBScript 获取当前目录。

dim fso
set fso = CreateObject("Scripting.FileSystemObject")
dim CurrentDirectory
CurrentDirectory = fso.GetAbsolutePathName(".")
strExcelPath = fso.BuildPath(CurrentDirectory, "Example.xlsx")

或者你也可以在 VBScript 中使用 WScript shell 的 CurrentDirectory 属性。

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