如何自动链接同一文件夹不同文件中的数据

Sub 试试吧()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox(Prompt:="请选择单元格区域：", Type:=8)
ro = rng.Rows.Count
co = rng.Columns.Count
x = 1
For j = 1 To co
For i = 1 To ro
If j = 1 Then
rng.Cells(1).Offset(i - 1, j - 1).Formula = "=[00" & x & ".xls]协议!$D$1"
x = x + 1
ElseIf j = 2 Then
rng.Cells(1).Offset(i - 1, j - 1).Formula = "=[00" & x & ".xls]协议!$D$15"
x = x + 1
End If
Next
x = 1
Next
End Sub

试试吧，按你的要求来的。测试了没问题

使用时请将你的001、002、003……工作簿全部保存关闭，并且与正在编辑工作簿放在同一文件夹下。（如果正在编辑的工作簿是新建的，请先保存，如果在正在编辑的excel文件所处的文件夹找不到名为001、002、003……的工作簿，将提示你选择你要链接的工作簿），如果001、002、003……工作簿中没有名为协议的工作表，将会提示你选择工作表名称。