|
不知道你具体都要那些数据,我只查询了物料代码和来料日期,你看看,不行你在详细说一下具体需求
Sub mysql()
Dim cnn As Object, rst As Object, strcnn$, strpath$, strsql$, i%
Set cnn = CreateObject("adodb.connection")
strpath = ThisWorkbook.FullName
strcnn = "provider = microsoft.ace.oledb.12.0;extended properties = excel 12.0;data source=" & strpath
cnn.Open strcnn
strsql = "" & "select 物料代码,来料日期 from[excel 12.0;database=" & ThisWorkbook.Path & "\仓库原料收货记录.xlsx].[原料原始记录$]"
Set rst = cnn.Execute(strsql)
Range("a2").CopyFromRecordset rst
cnn.Close
Set cnn = Nothing
End Sub
|
|