copyfromrecordset后有1列数据没有导入，咋回事啊

785124365 · 发表于 2016-1-27 16:40

本帖最后由 785124365 于 2016-1-27 17:00 编辑

我想把“人民币跨境收入信息”表的数据，导入“监测周报模版”表，这两个文件在同一个文件夹下。
“人民币跨境收入信息”表的数据如下图所示，服务贸易收款金额一列有数据。
原始数据.png

写的代码如下，不知道是不是有什么错误的地方，请大侠看看。
Private Sub CommandButton1_Click()
Dim msql As String, conn As Object, i As Integer
Application.ScreenUpdating = False
Worksheets("数据源").Range("A:iv").Clear
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.Recordset")
conn.Open ("provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\人民币跨境收入信息.xls")
msql = "Select *,'收入' as 收支 from [" & ThisWorkbook.Path & "\人民币跨境收入信息.xls`.`sheet1$]"
rs.Open msql, conn, 1, 3
'拷贝后数据缺失很严重，货物贸易、服务贸易等都有缺失
For i = 1 To rs.fields.Count
Worksheets("数据源").Cells(1, i).Value = rs.fields(i - 1).Name
Next
i = 0
Range("A2").CopyFromRecordset rs
Columns("A:Z").EntireColumn.AutoFit
[A1].Resize(1, rs.fields.Count).Font.Bold = True
conn.Close: Set conn = Nothing
Set rs = Nothing
Application.ScreenUpdating = True
End Sub

但是运行代码后，导入的数据中，服务贸易收款金额一列数据为空白，其他列的数据都导入正常。
导入数据.png

785124365 · 发表于 2016-1-27 17:09

我把附件上传

净流入表模板 - excelhome.rar (39.9 KB, 下载次数: 33)

xiaohuaxiong · 发表于 2016-1-27 17:36

785124365 发表于 2016-1-27 17:09
我把附件上传

你把“人民币跨境收入信息”表另存为07版以上的，然后改下 provider，我测试成功
"provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0

xiaohuaxiong · 发表于 2016-1-27 17:46

把人民币跨境收入信息表改为 07版以上的，然后把provider改为：provider=Microsoft.ACE.OLEDB.12.0，我测试成功，没有数据丢失

xiaohuaxiong · 发表于 2016-1-27 17:55

不知道为啥，刚才一直跟不了贴，再发一次把。
把“人民币跨境收入信息”表改为07版以上，然后把provider改为
provider=Microsoft.ACE.OLEDB.12.0，我测试成功，没有数据丢失。

zhaogang1960 · 发表于 2016-1-27 18:35

人民币跨境收入信息是从数据库中导出来的吧，最后两列数据区内的空格不是真空格，建议用常规法处理，或删除最后两列的空格：

净流入表模板 - excelhome.rar (39.48 KB, 下载次数: 45)

785124365 · 发表于 2016-1-27 20:20

xiaohuaxiong 发表于 2016-1-27 17:55
不知道为啥，刚才一直跟不了贴，再发一次把。
把“人民币跨境收入信息”表改为07版以上，然后把provider改 ...

谢谢，单位电脑统一装的2003，所以不便修改为07格式

zhaogang1960 · 发表于 2016-1-27 20:20

使用常规法可避免这个问题：

净流入表模板 - excelhome.rar (38.28 KB, 下载次数: 88)

785124365 · 发表于 2016-1-27 20:44

zhaogang1960 发表于 2016-1-27 20:20
使用常规法可避免这个问题：

尝试了下，常规方法完美解决，谢谢大侠。
“人民币跨境收入信息”是我从数据库下载的表，有好几十列，所以我想通过sql把需要的几个字段筛选出来，没想到有的列拷不到数据。刚才删除后面3列的空格，也可以正常导入。
真奇怪，单元格内为什么有空格就拷贝不过来。

785124365 · 发表于 2016-1-27 20:50

zhaogang1960 发表于 2016-1-27 20:20
使用常规法可避免这个问题：

谢谢，已解决

		自动登录	找回密码
密码			免费注册

[求助] copyfromrecordset后有1列数据没有导入，咋回事啊

最新热点 /1