|
本帖最后由 785124365 于 2016-1-27 17:00 编辑
我想把“人民币跨境收入信息”表的数据,导入“监测周报模版”表,这两个文件在同一个文件夹下。
“人民币跨境收入信息”表的数据如下图所示,服务贸易收款金额 一列有数据。
写的代码如下,不知道是不是有什么错误的地方,请大侠看看。
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
但是运行代码后,导入的数据中,服务贸易收款金额 一列数据为空白,其他列的数据都导入正常。
|
|