根据参数从Access表导入到Excel

Question

我正在尝试创建一个模板，该模板将利用Access表中的数据，并允许用户在Excel文件中选择参数。 该表中的记录数量正在减慢Excel文件的速度，我想减少根据用户选择导入的数据量。

Access表将包含三列：
零件编号|线|目录代码

我想导入所有三列，但允许用户选择基于目录代码导入的记录。

用户没有对sql表的读写访问权限，因此我每天结束时都会运行Access查询以创建他们可以访问的Access表。

我有2007年的版本。 可以进行这种类型的导入吗？

提前致谢！

Answer 1

您可以在不使用VBA的情况下执行此操作，只需使用MS Query（适用于Office 2010，我无法针对'07进行检查）：

• 在Excel中转​​到数据功能区，然后单击“ From other sources图标
• 单击From Microsoft Query
• 选择MS Access Database*
• 浏览并选择您的数据库。
• 在向导中，选择需要导入的列
• 在下一页上，选择要过滤的列
• 选择所需的过滤器类型，即Equals
• 而不是在下一个框中选择值， [Parameter please Bob]输入[Parameter please Bob]
• 在下一页输入您的排序
• 选择Return data to Microsoft Excel并完成

MS Query将询问您参数，然后Excel将询问您如何以及在何处获取数据。 然后您的过滤数据就会出现。

现在，每次刷新数据时，系统都会再次询问该参数，因此您可以轻松更改它。

ps如果您不想要“编程”答案，请在superuser.com上提问

Answer 2

从Access到Excel示例。

Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim s As String
Dim i As Integer, j As Integer

''Access database

strFile = "z:\docs\dbfrom.mdb"

''This is the Jet 4 connection string, you can get more
''here : http://www.connectionstrings.com/excel

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";"

''Late binding, so no reference is needed

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

'Rough idea
intID = Sheet1.[A1]

strSQL = "SELECT * " _
       & "FROM Test " _
       & "WHERE ID = " & intID

rs.Open strSQL, cn, 3, 3


''Pick a suitable empty worksheet for the results

Worksheets("Sheet3").Cells(2, 1).CopyFromRecordset rs

''Tidy up
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing