MS Access自动链接Excel电子表格

我有一个目录结构，我正在pipe理系统的需求，每个组件都有自己的目录。 每个组件的要求存储在一个有多个工作表的Excel工作簿（工作表是静态的）。 我目前正在使用访问作为中央位置查看这些表中的信息，并对其进行查询。 我讨厌每次将新的组件文档添加到目录时手动链接新的Excel文件。 有没有办法，当我每次开始访问它将search存储的Excel文件的目录树，并自动链接他们访问，如果他们没有链接，并更新我的保存查询，包括新的文件。 我以为我可以保存在一个表中的子目录名称和所有在另一个表引用另一个表的子目录中的文件名，所以它search文件系统，它比较名称与表。 如果有人能指出我正确的方向，这是否可能呢？

Answer 1

您可以recursion地使用Dir或FileSystemObject从目录树中获取文件。 Access将文件的链接信息存储在TableDef的连接属性中，或者可以从以下位置获取：

SELECT msysobjects.Database FROM msysobjects WHERE (((msysobjects.Database) Is Not Null)); 

你可以得到这样的工作表：

  ''Requires reference to the Microsoft Excel xx Object Library Dim strFileName As String Dim objXL As New Excel.Application Dim wkb As Excel.Workbook Dim wks As Object ''objXL.Visible = True strFileName = "C:\Docs\LTD.xls" Set wkb = objXL.Workbooks.Open(strFileName) For Each wks In wkb.Worksheets DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, _ wks.Name, strFileName, True, wks.Name & "$" Next ''Tidy up wkb.Close Set wkb = Nothing objXL.Quit Set objXL = Nothing 

或者使用ADOX.Catalogue： http : //forum.lessthandot.com/viewtopic.php? f=95&t=3712