访问查询到Excel电子表格
在Access数据库中，我有一个查询表格链接到表单打开和编辑时窗体。
如何将此查询表链接到Excel，以便当我单击Excel中的表单中的button时，Excel中的电子表格将打开，显示Access查询表中的所有项目，然后用户可以根据需要编辑电子表格。
所有在Access / Excel 2003中
FollowHyperlink可以是一个有用的方式来打开任何types的文件与其注册的应用程序：
FollowHyperlink "C:\SomeDir\BookX.xls" ''Excel FollowHyperlink "C:\SomeDir\" ''Explorer FollowHyperlink "mailto:example@example.com" ''Default email 更多信息： http : //msdn.microsoft.com/en-us/library/aa204494%28office.10%29.aspx
如果您想在打开Excel文件后操作Excel文件，最好使用自动化：
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
（我使用2007年，但同样适用）在button的单击事件（使用代码生成器，而不是macros），代码
Shell "excel.exe " & Chr(34) & "C:\FullPathToYourFile\file.xls" & Chr(34), vbMaximizedFocus
会做，虽然不雅。 缺lesschr(34)path或文件名中包含空格，虽然用'应该在其中工作，但它不在我的2007版本上。
我不熟悉如何在macros中完成它，或者如果可能的话。