TransferSpreadsheet导入指定行 提示错误

123shusheng

如题,注意修改EXCL的路径

todaynew

TransferSpreadsheet导出时，不能指定导出位置。

expression.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)

Range     可选 Variant 型。字符串表达式，表示电子表格中单元格的有效范围或范围名称。该参数仅可用于导入。若要导入整个电子表格，请将该参数留空。导出到电子表格时，必须将该参数留空。如果输入了一个范围，导出将失败。

todaynew

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "456", CurrentProject.Path &  "\book1.xls"

可以导入到当前路径下。

todaynew

Private Sub Command0_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim rs As New ADODB.Recordset
Dim sql As String
Dim i As Long
sql = "select * from 456"
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set xlApp = CreateObject("Excel.Application")
xlApp.Application.Visible = True
Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\Book1.xls")
xlBook.Application.Sheets(1).Select
For i = 1 To rs.RecordCount
    xlBook.Application.Cells(i + 1, 1).Value = rs("日期")
    xlBook.Application.Cells(i + 1, 2).Value = rs("采购数量")
    xlBook.Application.Cells(i + 1, 3).Value = rs("采购单价")
    xlBook.Application.Cells(i + 1, 4).Value = rs("采购总价值")
    rs.MoveNext
Next
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
End Sub

chaojianan

xuexixuexi.

lq478

多谢啦。学习中

shitou1ge

学习学习