VBS excel另存为

以下是使用VBS将Excel文件另存为的示例代码：

' 创建Excel对象
Set objExcel = CreateObject("Excel.Application")
' 打开Excel文件
Set objWorkbook = objExcel.Workbooks.Open("D:\excel.xls")
' 设置另存为对话框
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "Excel文件 (*.xlsx)|*.xlsx|所有文件 (*.*)|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:\"
objDialog.FileName = "new_excel"
' 显示另存为对话框
intResult = objDialog.ShowSave
' 如果用户点击了确定按钮
If intResult = 1 Then
    ' 另存为Excel文件
    objWorkbook.SaveAs objDialog.FileName, 51
End If
' 关闭Excel文件
objWorkbook.Close False
' 退出Excel
objExcel.Quit

上述代码中，我们首先创建了Excel对象，然后打开了指定的Excel文件。接着，我们创建了一个另存为对话框，并设置了对话框的属性。最后，我们显示了另存为对话框，如果用户点击了确定按钮，就将Excel文件另存为指定的文件名。