Question

下面是我使用的代码，它将获取当前工作簿上的工作表名称，但我想指定工作簿的位置和工作簿名称。然后获取该特定工作簿的工作表名称

Sub GetSheetName()
    Const SHTNAME As String = "Index to Sheets"
    Dim indexSheet As Worksheet
    Dim i As Long
    On Error Resume Next
        Worksheets(SHTNAME).Delete
    On Error GoTo 0
        With Worksheets.Add(before:=Worksheets(1))
            .Name = SHTNAME
            For i = 1 To Worksheets.Count
                .Cells(i, 1).Value = Worksheets(i).Name
            Next i
        End With
End Sub

Answer 1

这假定＆＃34;其他＆＃34;工作簿目前尚未开放：

Sub GetNames()
    Dim s1 As String, s2 As String, s3 As String
    Dim s4 As String, ws As Worksheet
    s1 = "C:\TestFolder\"
    s2 = "ABC.xlsx"
    s3 = s1 & s2
    Workbooks.Open s3
    For Each ws In Sheets
        s4 = s4 & vbCrLf & ws.Name
    Next ws
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    MsgBox s4
End Sub

希望宏获取位于不同位置的工作簿的工作表名称

1 个答案: