Excel vba 从另外一个工作簿提取数据 最快的方法
Excelvba从另外一个工作簿提取数据最快的方法Excelvba从另外一个工作簿提取数据最快的方法...
Excel vba 从另外一个工作簿提取数据 最快的方法Excel vba 从另外一个工作簿提取数据 最快的方法
展开
1个回答
展开全部
试试这段代码,对应修改:
Sub Macro1()
Dim cnn As Object, SQL$, sh As Worksheet
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;hdr=no';Data Source =" & ThisWorkbook.Path & "\文档2.xls"
For Each sh In Sheets
SQL = "Select f2,f5,f6 from [" & sh.Name & "$a2:f]"
sh.Range("A2:C65536").ClearContents
sh.[a2].CopyFromRecordset cnn.Execute(SQL)
Next
cnn.Close
Set cnn = Nothing
End Sub
Sub Macro1()
Dim cnn As Object, SQL$, sh As Worksheet
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;hdr=no';Data Source =" & ThisWorkbook.Path & "\文档2.xls"
For Each sh In Sheets
SQL = "Select f2,f5,f6 from [" & sh.Name & "$a2:f]"
sh.Range("A2:C65536").ClearContents
sh.[a2].CopyFromRecordset cnn.Execute(SQL)
Next
cnn.Close
Set cnn = Nothing
End Sub
追问
比用get object 快么
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询