Question

我知道,你可以从双赢线开立一个Excel文档。但是,你如何利用双赢的圆顶打开一个特定的电子表格?

Answer 1

Paste the following code into a text editor (NotePad, WordPad, Word etc)
Save the file with a "vbs" extension, for example
ExcelSheet2.vbs
Change this line strFileName = "c: emp esta.xlsx" to your desired Excel file path
You can then run this from the commandline by entering the path name of your vbs file

The code has error handling in case the filepath is wrong, or a second sheet isn t present.

[Updated: added further error handling to test for the second sheet being hidden]

sample

Const xlVisible = -1
Dim objExcel
Dim objWb
Dim objws
Dim strFileName
strFileName = "c:	emp	est.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

Answer 2

或者,你可以从指挥线开出工作手册,在《工作手册》中添加以下代码,以启动“Sheet2”

Private Sub Workbook_Open()

    ThisWorkbook.Sheets("Sheet2").Activate

End Sub

你们需要确保《工作手册》处于一个可信赖的地点,而安全环境允许宏观运行。 @brettdj的解决方案比以前好得多,但这是一种替代办法。

友情链接