vba 新建表格时怎么引用excel表中路径

在VBA（Visual Basic for Applications）中，如果你想新建一个工作表并将其链接到Excel工作簿中的某个现有表格，你可以使用`Worksheets.Add`方法，并通过`LinkSources`属性指定外部数据源。假设你的数据源位于其他文件的特定位置，例如`C:\Data\MyTable.xlsx`，并且数据是在名为"Sheet1"的工作表中，可以这样做：

Sub CreateLinkedWorksheet()
    ' 首先，获取源工作簿对象
    Dim sourceWorkbook As Workbook
    Set sourceWorkbook = Workbooks.Open("C:\Data\MyTable.xlsx")
    
    ' 确定要链接的数据范围
    Dim sourceRange As Range
    Set sourceRange = sourceWorkbook.Sheets("Sheet1").Range("A1:D10") ' 可根据实际数据范围更改
    
    ' 在当前工作簿中创建新的工作表，并链接数据源
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    newSheet.Cells(1, 1).Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).LinkSources Source:=sourceRange.Address, CopyOrigin:=xlSourceValidation
  
    ' 关闭不需要的数据源工作簿
    sourceWorkbook.Close SaveChanges:=False

    ' 销毁变量以释放内存
    Set sourceWorkbook = Nothing
    Set sourceRange = Nothing
    Set newSheet = Nothing
End Sub

在这个例子中，新的工作表会链接到`MyTable.xlsx`的"A1:D10"区域。运行此宏后，在目标工作簿的新工作表中将显示来自外部数据源的内容。