Question

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

如何将此查询表链接到Excel，以便当我在Excel中单击“访问电子表格”中的表单上的按钮时，显示Access查询表中的所有项目，然后用户可以根据需要编辑电子表格。 / p>

全部在Access / Excel 2003中

Answer 1

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

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文件后对其进行操作，最好使用自动化：

   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

Answer 2

（我正在使用2007年，但同样适用）在按钮的单击事件（使用代码构建器，而不是宏）中，代码

Shell "excel.exe " & Chr(34) & "C:\FullPathToYourFile\file.xls" & Chr(34), vbMaximizedFocus

会做到这一点，虽然不是很优秀。错过了包含空格的路径或文件名的chr(34)符号，虽然用'包裹路径应该可以在其中使用，但它不在我的2007版本中。

我不熟悉如何在宏中执行此操作，或者是否可能。

访问Excel电子表格的查询

2 个答案: