我知道您可以从 win cmd 行打开 Excel 文件。但是如何使用 win cmd 打开该文件中的特定电子表格?
最佳答案
等)
ExcelSheet2.vbs
strFileName = "c:\temp\testa.xlsx"
更改为您的所需的 Excel 文件路径
如果文件路径错误或第二张表不存在,则代码具有错误处理功能。
[ 更新: 添加了进一步的错误处理以测试隐藏的第二张纸]
Const xlVisible = -1
Dim objExcel
Dim objWb
Dim objws
Dim strFileName
strFileName = "c:\temp\test.xlsx"
On Error Resume Next
Set objExcel = CreateObject("excel.application")
Set objWb = objExcel.Workbooks.Open(strFileName)
Set objws = objWb.Sheets(2)
On Error GoTo 0
If Not IsEmpty(objws) Then
If objws.Visible = xlVisible Then
objExcel.Goto objws.Range("a1")
Else
wscript.echo "the 2nd sheet is present but is hidden"
End If
objExcel.Visible = True
Else
objExcel.Quit
Set objExcel = Nothing
If IsEmpty(objWb) Then
wscript.echo strFileName & " not found"
Else
wscript.echo "sheet2 not found"
End If
End If
关于windows - 在 Excel 中打开特定电子表格的 win cmd 是什么?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/8854263/