访问对Excel电子表格的查询

Access query to Excel spreadsheet

在Access数据库中，我有一个查询表，该表在打开和编辑时链接到表单。

如何将查询表链接到Excel，所以当我单击Access in Excel中的电子表格中的窗体上的一个按钮时，打开时显示Access查询表中的所有项目，然后用户可以根据需要编辑电子表格。铅>

Access / Excel 2003中的全部内容

FollowHyperlink可以是一种使用已注册的应用程序打开任何类型的文档的有用方法：

1
2
3

FollowHyperlink"C:\\SomeDir\\BookX.xls" ''Excel
FollowHyperlink"C:\\SomeDir" ''Explorer
FollowHyperlink"mailto:[email protected]" ''Default email

更多：http://msdn.microsoft.com/en-us/library/aa204494(office.10).aspx

如果您希望在打开Excel文件后对其进行操作，最好使用自动化：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Dim strFileName As String
Dim objXL Object
Dim wkb As Object

''New instance, GetObject for existing instance
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True

strFileName ="C:\\Docs\\LTD.xls"
Set wkb = objXL.Workbooks.Open(strFileName)

''Do stuff

''Give control to user
objXLS.UserControl = True