以下是代码
Sub 更新物料代码()
Dim conn As New 网页链接Dim sj As String
With Sheets("物料代码").Range("a2:F" & Sheets("物料代码").Range("a65536").End(xlUp).Row)
.ClearContents
End With
网页链接"Provider = Microsoft.ACE.OLEDB.12.0;Data Source=E:\360MoveData\Users\Administrator\Desktop\统计单.accdb"
sj = "select 物料代码,名称,图纸号,客户 from [lbk]物料代码[rbk]"
Sheets("物料代码").Range("a2").CopyFromRecordset conn.Execute(sj)
End Sub
求各位大佬帮助
Sub 更新物料代码()
Dim conn As New 网页链接Dim sj As String
With Sheets("物料代码").Range("a2:F" & Sheets("物料代码").Range("a65536").End(xlUp).Row)
.ClearContents
End With
网页链接"Provider = Microsoft.ACE.OLEDB.12.0;Data Source=E:\360MoveData\Users\Administrator\Desktop\统计单.accdb"
sj = "select 物料代码,名称,图纸号,客户 from [lbk]物料代码[rbk]"
Sheets("物料代码").Range("a2").CopyFromRecordset conn.Execute(sj)
End Sub
求各位大佬帮助