用sql读取数据时丢失数据

[赶路中的旋转木马]

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

[赶路中的旋转木马]

希望高手答复

[VB业余爱好者]

希望这个帖子能帮到你，好像和你一样的问题

http://club.excelhome.net/forum.php?mod=viewthread&tid=1256953&highlight=

[脆皮大雪糕]

是不是列因为列名里面有括号啥的

[赶路中的旋转木马]

引用 2 楼 VB业余爱好者 的回复：

希望这个帖子能帮到你，好像和你一样的问题

http://club.excelhome.net/forum.php?mod=viewthread&tid=1256953&highlight=

同样跟那个楼主一样，版本不能换，后面的列也不能删，像那个时间23:59:59应该不是列的问题

[赶路中的旋转木马]

引用 3 楼 脆皮大雪糕 的回复：

是不是列因为列名里面有括号啥的

没有括号