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

waini13142962

  我想用VBA引用access（“数据源”）里面“主线”这个表里面的相关信息并填入相应的单元格里面。
     具体问题请见附件！
       关于这个问题也在论坛里面搜索过相关信息，但是都需要一些基础才能看懂，没办法只能向大大们求助了。
      希望您能帮帮我。 求助.rar (19.49 KB, 下载次数: 76)

2014-7-11 09:39 上传

点击文件名下载附件

蓝桥玄霜

1. Sub lqxs()
   
2.     Sheet1.Activate
   
3.     Cells.Clear
   
4.     connstr = "odbc;DSN=Ms Access Database;DBQ=" & ThisWorkbook.Path & "\数据源.mdb"
   
5.     With Sheet1.QueryTables.Add(connstr, [a1])
   
6.         .CommandText = "select 编号,客户,用途,名称,数量,图纸,指定号 from 主线"
   
7.         .Refresh
   
8.     End With
   
9.     [a1].CurrentRegion.Borders.LineStyle = 1
   
10. End Sub
    
11. 
    

复制代码

蓝桥玄霜

请见附件。

waini13142962

蓝桥玄霜 发表于 2014-7-11 10:17
请见附件。

您能否帮忙解决一下我的题外求教的问题，谢谢了

waini13142962

蓝桥玄霜 发表于 2014-7-11 10:15

大大！我是想在引用表里输入编号，相应的信息自动显示，不是说想把整个主线的数据都导入到主线里面，麻烦您修改一下。谢谢了

jsxjd

.CommandText = "select 编号,客户,用途,名称,数量,图纸,指定号 from 主线 Where 编号='" & [A1] & "'"
局域网可以通过共享目录设置路径

waini13142962

jsxjd 发表于 2014-7-11 11:55
.CommandText = "select 编号,客户,用途,名称,数量,图纸,指定号 from 主线 Where 编号='" & [A1] & "'"
局 ...

我试了一下，好像不行 麻烦您再看看。

waini13142962

waini13142962 发表于 2014-7-11 12:31
我试了一下，好像不行 麻烦您再看看。

还在线吗。

waini13142962

蓝桥玄霜 发表于 2014-7-11 10:17
请见附件。

您还在线吗，麻烦您了

jsxjd

waini13142962 发表于 2014-7-11 12:31
我试了一下，好像不行 麻烦您再看看。

首先要理解，不理解就不知道如何变成自己需要的