自动连接指定文件夹中的工作簿可以通过使用Excel VBA的FileSystemObject对象和Workbook对象来实现。可以按以下方式编写代码：

Sub AutoConnectWorkbooks()

Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim strFolderPath As String

'设置文件夹路径 strFolderPath = "C:\Users\Username\Documents\Workbooks"

'创建FileSystemObject对象 Set objFSO = CreateObject("Scripting.FileSystemObject")

'获取指定文件夹 Set objFolder = objFSO.GetFolder(strFolderPath)

'循环遍历文件夹中的所有文件 For Each objFile In objFolder.Files '打开工作簿 Workbooks.Open objFile.path Next objFile

End Sub

此代码将自动连接指定文件夹中的所有工作簿。只需将代码中的“strFolderPath”更改为您要自动连接工作簿的文件夹路径即可。