用sql读取数据时丢失数据

Question

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 

Answer 1

希望这个帖子能帮到你，好像和你一样的问题http://club.excelhome.net/forum.php?mod=viewthread&tid=1256953&highlight=