vba 创建excel目录 超链接到每个表的A1单元格且如果已经存在目录 则删除目录重新生成

### 回答1：
您可以使用下面的VBA代码来创建Excel目录，并为每个表格添加超链接到它们的A1单元格。如果目录已经存在，则会删除它并重新生成。

Sub CreateTableOfContents()
    
    ' Delete existing table of contents if it exists
    On Error Resume Next
    Worksheets("Table of Contents").Delete
    On Error GoTo 0
    
    ' Create new worksheet for table of contents
    Dim toc As Worksheet
    Set toc = ThisWorkbook.Worksheets.Add
    toc.Name = "Table of Contents"
    
    ' Add headers to table of contents
    toc.Range("A1").Value = "Table of Contents"
    toc.Range("A1").Font.Bold = True
    toc.Range("A3").Value = "Sheet Name"
    toc.Range("B3").Value = "Link"
    
    ' Loop through each worksheet and add a link to A1 cell
    Dim ws As Worksheet
    Dim row As Integer
    row = 4 ' start on row 4 to leave space for headers
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Table of Contents" Then
            ' Add sheet name to table of contents
            toc.Range("A" & row).Value = ws.Name
            
            ' Create hyperlink to A1 cell of worksheet
            Dim link As String
            link = "'" & ws.Name & "'!A1"
            toc.Hyperlinks.Add Anchor:=toc.Range("B" & row), Address:="", SubAddress:=link, TextToDisplay:="Go"
            
            row = row + 1
        End If
    Next ws
    
    ' Autofit columns in table of contents
    toc.Columns("A:B").AutoFit
    
End Sub

要运行此代码，请按下Alt + F11打开Visual Basic Editor，并将代码复制粘贴到新模块中。然后按下F5运行代码，或按下Alt + Q关闭Visual Basic Editor并返回Excel工作簿。

### 回答2：
VBA (Visual Basic for Applications) 是一种用于自动化 Microsoft Office 应用程序的编程语言。使用 VBA，我们可以创建一个宏来在 Excel 中生成目录并设置超链接。

下面是一个使用 VBA 在 Excel 中创建目录并将超链接添加到每个表的 A1 单元格的示例代码：

Sub GenerateDirectory()
    ' 检查是否存在名为 "目录" 的工作表
    Dim directorySheet As Worksheet
    On Error Resume Next
    Set directorySheet = Sheets("目录")
    On Error GoTo 0

    ' 如果存在，则删除工作表
    If Not directorySheet Is Nothing Then
        Application.DisplayAlerts = False
        directorySheet.Delete
        Application.DisplayAlerts = True
    End If

    ' 创建一个名为 "目录" 的工作表
    Set directorySheet = Sheets.Add
    directorySheet.Name = "目录"

    ' 循环遍历所有工作表
    Dim ws As Worksheet
    Dim counter As Integer
    counter = 1
    
    For Each ws In ThisWorkbook.Sheets
        ' 在目录工作表的 A 列中添加超链接
        directorySheet.Range("A" & counter).Hyperlinks.Add _
            Anchor:=directorySheet.Range("A" & counter), _
            Address:="", _
            SubAddress:="'" & ws.Name & "'!A1", _
            TextToDisplay:=ws.Name
        
        counter = counter + 1
    Next ws
    
    ' 选中目录工作表的 A1 单元格
    directorySheet.Activate
    directorySheet.Range("A1").Select
End Sub

此宏首先检查是否已存在名为 "目录" 的工作表。如果存在，它将删除该工作表。然后，它创建一个名为 "目录" 的新工作表，并在该工作表的 A 列中循环遍历所有工作表，为每个工作表的名称添加超链接到其 A1 单元格。最后，它选中目录工作表的 A1 单元格。

通过运行这个宏，你可以在 Excel 中生成包含超链接到每个表的目录，如果目录已存在，则会首先删除并重新生成。

### 回答3：
VBA是Visual Basic for Applications的缩写，它是一种用于编写宏代码的编程语言，可用于在Excel中自动执行各种任务。

要用VBA创建Excel目录并将超链接添加到每个表的A1单元格，可以按照以下步骤进行操作：

1. 打开Excel文件并按下“ALT + F11”键，以打开VBA编辑器。

2. 在VBA编辑器中，通过插入>模块，创建一个新的模块。

3. 在模块中，编写以下代码：

Sub CreateDirectory()
    Dim ws As Worksheet
    Dim lnk As Hyperlink
    
    '删除已存在的目录
    On Error Resume Next
    ThisWorkbook.FollowHyperlink "目录名称"
    On Error GoTo 0

    '创建目录
    Set lnk = ThisWorkbook.Worksheets.Add().Range("A1").Hyperlinks.Add(ThisWorkbook.FullName, "", "目录名称", "点击访问目录")
    lnk.Range.Font.Color = RGB(0, 0, 255)
    
    '在每个表中添加超链接
    For Each ws In ThisWorkbook.Worksheets
        Set lnk = ws.Range("A1").Hyperlinks.Add(Anchor:=ws.Range("A1"), Address:="", SubAddress:="目录名称!A1", TextToDisplay:="点击访问目录")
        lnk.Range.Font.Color = RGB(0, 0, 255)
    Next ws
End Sub

在以上代码中，将"目录名称"替换为所需的目录名称。代码中还添加了目录超链接的颜色设置。

4. 关闭VBA编辑器。

5. 运行代码。在Excel中按下“ALT + F8”键，选择“CreateDirectory”并点击“运行”按钮。

这样，在每个工作表的A1单元格中，将会创建一个超链接，链接地址为目录的A1单元格。如果该目录已经存在，则会先删除现有的目录，然后重新生成目录超链接。

希望以上回答能对您有所帮助！