|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
代码如下。。。
Sub test()
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
strSQL = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & _
ThisWorkbook.Path & "\HXDataBase.accdb" & ";Jet OLEDB:Database"
cnn.Open strSQL
s = Join(Application.Rept(Sheets("Sheet3").[g1:j1], 1), ",")
sql = "Select " & s & " from 产品参数"
rst.Open sql, cnn, 1, 1
Sheets("Sheet3").[g2].CopyFromRecordset rst
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
|
评分
-
1
查看全部评分
-
|