类似这样
'建立连接
Set cnn = New ADODB.Connection
With cnn
.Provider ="Microsoft.ACE.OLEDB.12.0;Extended Properties=excel 12.0"
.Open "你的工作簿路径" &"\你的工作簿名称.xls"
End With
sqls = "select * from [sheet1$]" ' SQL语句
Set rst = cnn.Execute(sqls)
Sheets("sheet3").Range("A1").CopyFromRecordsetrst
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024