麻烦大家了！！！excel查询 引用access里面的数据。

hehex

waini13142962 发表于 2014-7-11 14:08
您还在线吗，麻烦您了

代码根据蓝桥老师的代码稍作修改，加入了你选择编号的部分。

1. Sub lqxs()
   
2.     Dim bhid As String, connstr As String
   
3.     Sheet1.Activate
   
4. 
   
5.     Cells.Clear
   
6.     bhid = InputBox("请输入主线表需要查询记录编号" & Chr(13) & "空值或者 * 表示查询所有信息", "信息输入")
   
7.    
   
8.     connstr = "odbc;DSN=Ms Access Database;DBQ=" & ThisWorkbook.Path & "\数据源.mdb"
   
9. 
   
10.     With Sheet1.QueryTables.Add(connstr, [a1])
    
11.         If Len(bhid) = 0 Or bhid = "*" Then
    
12.             .CommandText = "select 编号,客户,用途,名称,数量,图纸,指定号 from 主线"
    
13.         Else
    
14.             .CommandText = "select 编号,客户,用途,名称,数量,图纸,指定号 from 主线 Where 编号='" & bhid & "'"
    
15.             
    
16.         End If
    
17.         .Refresh
    
18. End With
    
19. 
    
20.     [a1].CurrentRegion.Borders.LineStyle = 1
    
21. 
    
22. End Sub
    

复制代码

你的题外问题回复如下：
1、你的access 数据库文件是在局域网共享上的，请用网络路径取代代码中的ThisWorkbook.Path & "\数据源.mdb" 。比如说网络映射盘符是F盘，你的网络路径是F:\database  那么相应的语句改成如下即可：
connstr = "odbc;DSN=Ms Access Database;DBQ=" & "F\database\数据源.mdb"

2、你主线表的字段发生修改（即你说的列信息）和你读取的结果表无关，因为代码已经写死了读取这几项字段的数据，如果想读取其他字段，请修改Select 语句后面的字段名添加即可，这里不再赘述。除非已经在代码中写死的几项字段名称发生改变，举例比如图纸字段改名为图纸编号，那么你的代码中的Select 那里要更改相应的字段名即将图纸更名为图纸编号。

3、引用表只要再执行一次程序，就会自动更新相关内容，但是不会自动更新。需要你手动执行一次程序

4、这个问题问的很不合适，关于数据库优化是一个很专业也很复杂的问题，请教专业人士或者参考access 数据库相关技术书籍资料。

5、你没时间看那些VBA 技术书的话想立刻弄懂这些代码也是没可能的，千里之行始于足下！

waini13142962

jsxjd 发表于 2014-7-11 14:29
首先要理解，不理解就不知道如何变成自己需要的

大大！我明白您的意思，授人以鱼，不如授人以渔，可以您想一下，我本来就是一个刚刚接触excel没多久的新手（本身我自己是学技术的，平常的工作与excel的联系本来就不多，只是一次无意中才了解到excel这么强大），现在仅仅还在学习函数与公式，关于VBA与数据库我知道很强大，但是从学习到了解再到熟练也不是一蹴而就，需要很长的过程，我现在是没办法了，才上网希望大大给我一个现成的答案。

waini13142962

waini13142962 发表于 2014-7-11 15:06
大大！我明白您的意思，授人以鱼，不如授人以渔，可以您想一下，我本来就是一个刚刚接触excel没多久的新手 ...

我现在都买了坛子里面出的一些书，很实用，自己真的有心无力，想学但是又没时间，做技术本身就很耗时间。
      希望您理解

waini13142962

hehex 发表于 2014-7-11 14:34
代码根据蓝桥老师的代码稍作修改，加入了你选择编号的部分。你的题外问题回复如下：
1、你的access 数据 ...

非常感谢您的回答，您的思路是建一个查询窗口，我原本的意思是只要我在“引用表里”的A列输入编号，后面就会引用“access主线”里面的相关信息，编号我可能一次要输入很多个。麻烦您再看看！
          谢谢您了

waini13142962

waini13142962 发表于 2014-7-11 15:27
非常感谢您的回答，您的思路是建一个查询窗口，我原本的意思是只要我在“引用表里”的A列输入编号，后面就 ...

还在线吗，麻烦您了

waini13142962

jsxjd 发表于 2014-7-11 14:29
首先要理解，不理解就不知道如何变成自己需要的

还在线吗。

waini13142962

waini13142962 发表于 2014-7-11 16:01
还在线吗，麻烦您了

您还在线吗，

hehex

waini13142962 发表于 2014-7-11 15:27
非常感谢您的回答，您的思路是建一个查询窗口，我原本的意思是只要我在“引用表里”的A列输入编号，后面就 ...

参考下列代码，你的编号必须输入在A 列内从A1 开始顺序向下，每个编号占一个单元格。
查询结果写在从D1 开始的表格中。

1. Sub lqxs()
   
2. 
   
3.     Dim bhid As String, connstr As String, xrow&, arr(), i&
   
4. 
   
5.    
   
6.     Sheet1.Activate
   
7.     xrow = Cells(Rows.Count, "a").End(xlUp).Row
   
8.    
   
9.     If xrow = 1 Then
   
10.         If Len([a1]) = 0 Then
    
11.             bhid = "*"
    
12.         Else: bhid ="'" & [a1] & "'"
    
13.         End If
    
14.     Else
    
15.         arr = WorksheetFunction.Transpose(Range("a1:a" & xrow))
    
16.         For i = 1 To UBound(arr)
    
17.             bhid = bhid & "'" & arr(i) & "' or 编号="
    
18.         Next
    
19.         bhid = Left(bhid, Len(bhid) - 7)
    
20.         
    
21.     End If
    
22.    
    
23.     Cells.Clear
    
24. 
    
25. 
    
26.    
    
27.     connstr = "odbc;DSN=Ms Access Database;DBQ=" & ThisWorkbook.Path & "\数据源.mdb"
    
28. 
    
29. 
    
30.     With Sheet1.QueryTables.Add(connstr, [d1])
    
31. 
    
32.         If bhid = "*" Then
    
33. 
    
34.             .CommandText = "select 编号,客户,用途,名称,数量,图纸,指定号 from 主线"
    
35. 
    
36.         Else
    
37. 
    
38.             .CommandText = "select 编号,客户,用途,名称,数量,图纸,指定号 from 主线 Where 编号=" & bhid
    
39.          
    
40. 
    
41.         End If
    
42. 
    
43.         .Refresh
    
44. 
    
45.    End With
    
46. 
    
47. 
    
48.     [d1].CurrentRegion.Borders.LineStyle = 1
    
49. 
    
50.     Erase arr
    
51. End Sub
    

复制代码

waini13142962

hehex 发表于 2014-7-11 17:37
参考下列代码，你的编号必须输入在A 列内从A1 开始顺序向下，每个编号占一个单元格。
查询结果写在从D1  ...

谢谢你的回答，非常谢谢，可能我的表达有点不清楚，我想要其实有点类似VLOOKUP函数，当我把B2至G5里面都先填好公式，我从A2至A5依次输入编号时，B2至G5也会依次显示相应的数据，只不过我引用的数据是access数据库，麻烦您再看看。

zhaogang1960

请参考：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Not Intersect(Target, [a2:a65536]) Is Nothing Then Call GetValue
   
3. End Sub
   
4. 
   
5. Sub GetValue()
   
6.     Dim cnn As Object, SQL$
   
7.     Set cnn = CreateObject("adodb.connection")
   
8.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\数据源.mdb"
   
9.     SQL = "select b.客户,b.用途,b.名称,b.数量,b.图纸,b.指定号 from [Excel 8.0;Database=" & ThisWorkbook.FullName & ";].[Sheet1$" & [a1].CurrentRegion.Address(0, 0) & "] a left join 主线 b on a.编号=b.编号"
   
10.     Range("a1").CurrentRegion.Offset(1, 1).ClearContents
    
11.     Range("b2").CopyFromRecordset cnn.Execute(SQL)
    
12.     cnn.Close
    
13.     Set cnn = Nothing
    
14. End Sub
    

复制代码