Sub test()
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\資料檔案\輔助作業表.xls"
Sql = "select * from [打卡正式$] "
ThisWorkbook.Sheets(1).[a1].CopyFromRecordset cn.Execute(Sql)
Sql = "select * from [考勤明細$] "
ThisWorkbook.Sheets(2).[a1].CopyFromRecordset cn.Execute(Sql)
cn.Close
End Sub
uj5u.com熱心網友回復：
希望高手答復uj5u.com熱心網友回復：
希望這個帖子能幫到你，好像和你一樣的問題http://club.excelhome.net/forum.php?mod=viewthread&tid=1256953&highlight=
uj5u.com熱心網友回復：
是不是列因為列名里面有括號啥的uj5u.com熱心網友回復：
同樣跟那個樓主一樣，版本不能換，后面的列也不能刪，像那個時間23:59:59應該不是列的問題uj5u.com熱心網友回復：
沒有括號轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/38727.html
標籤：VBA
上一篇：誰用mapbasic，mapinfo 的資料，給傳點，謝謝各位大神
下一篇：vba發送notes郵件