谁会用ADO或EXCEL4宏函数在两个工作簿之间传递数据？

renahu

想把AA工作簿中黄色区域的数据复制到一个中间地方比如注册表，然后关掉AA，打开与AA结构完全相同的BB工作簿，将刚才保存的数据填入到表中相应的黄色区域。
附件中的代码是赵刚老师给写的，他说其实不必保存到注册表，使用ADO或EXCEL4宏函数，在不打开AA工作簿状态下取值即可。发此贴的目的是想看看用ADO或EXCEL4宏函数是如何实现两个工作簿之间数据传递的，主要为了学习一种新方法。谢谢。 账簿间传送数据.rar (31.49 KB, 下载次数: 30)

2015-11-11 13:26 上传

点击文件名下载附件

zhaogang1960

请参考：

1. Sub BBADO()
   
2.     Dim cnn As Object, rs As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties ='Excel 12.0;hdr=no';Data Source =" & ThisWorkbook.Path & "\AA.xlsm"
   
5.     SQL = "Select * from [Sheet1$c5:c5]"
   
6.     Set rs = cnn.Execute(SQL)
   
7.     [c5].CopyFromRecordset rs
   
8.     SQL = "Select * from [Sheet1$f12:f12]"
   
9.     [f12].CopyFromRecordset cnn.Execute(SQL)
   
10.     SQL = "Select * from [Sheet1$F18:M19]"
    
11.     [f18].CopyFromRecordset cnn.Execute(SQL)
    
12.     rs.Close
    
13.     cnn.Close
    
14.     Set rs = Nothing
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

zhaogang1960

程序在BB工作簿中：
账簿间传送数据.rar (33.09 KB, 下载次数: 45)

2015-11-11 15:49 上传

点击文件名下载附件

renahu

zhaogang1960 发表于 2015-11-11 15:49
程序在BB工作簿中：

太谢谢老师了，第一次接触ADO，准备好好研究研究代码

renahu

zhaogang1960 发表于 2015-11-11 15:49
程序在BB工作簿中：

代码浅显易懂，虽然从没使用过，但照猫画虎应该没问题了，呵呵，再次感谢赵老师

renahu

zhaogang1960 发表于 2015-11-11 15:49
程序在BB工作簿中：

赵老师您好，上面这个例子应该是BB抓取AA数据，如果反过来，比如打开AA表，通过点击发送按钮，在使用ADO的情况下，如何在不打开BB的情况下就把数据发送到BB账簿里面？

zhaogang1960

renahu 发表于 2015-11-11 17:18
赵老师您好，上面这个例子应该是BB抓取AA数据，如果反过来，比如打开AA表，通过点击发送按钮，在使用ADO ...

1. Sub AAADO()
   
2.     Dim cnn As Object, rs As Object, SQL$, c As Range
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties ='Excel 12.0;hdr=no';Data Source =" & ThisWorkbook.Path & "\BB.xlsm"
   
5.     For Each c In Range("C5,F12,F18:M19")
   
6.         If Len(c.Value) Then t = c.Value Else t = "null"
   
7.         SQL = "update [Sheet1$" & c.Address(0, 0) & ":c" & c.Address(0, 0) & "] set f1=" & t
   
8.         Set rs = cnn.Execute(SQL)
   
9.     Next
   
10.     cnn.Close
    
11.     Set rs = Nothing
    
12.     Set cnn = Nothing
    
13. End Sub
    

复制代码

zhaogang1960

附件
账簿间传送数据.rar (34.9 KB, 下载次数: 38)

2015-11-11 17:34 上传

点击文件名下载附件

renahu

zhaogang1960 发表于 2015-11-11 15:48
请参考：

还想请教一下老师，SQL = "Select * from [Sheet1$c5:c5]"  这句中 ，我试了一下，好像 [Sheet1$c5:c5] 不能用 range表示吧？因为我想在里面加入变量，因为[c5]是固定的，但实际上这个位置，需要先根据数据上面的标题栏名称比如“股数”来定位，不知道用ADO，在不打开AA的情况下，能用类似 Sheet1.Cells(Rows.Count, "C").End(xlUp).Row的方法来定位吗？

renahu

zhaogang1960 发表于 2015-11-11 15:48
请参考：

老师，又有一个问题，cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties ='Excel 12.0;hdr=no';Data Source ="   如果指向一个带密码的文件，会提示运行时错误，说 外部表不是预期的格式  ，这有办法吗？