进行转移电子表格时出现错误 3011

Question

通过 Access 运行 VBA。

试图将 select 查询从访问权转移到 excel。

如果我一起运行所有代码，那么在第二个 DoCmd.TransferSpreadsheet 上会出现 3011 运行时错误。

如果我注释掉与 PATH1 相关的所有代码，那么第二个 DoCmd.TransferSpreadhseet 运行良好。

Microsoft Access 数据库引擎找不到 object 'TabUSR1'。 确保 object 存在并且正确拼写其名称和路径名...

我删除了一些我认为与我的问题无关的代码。 这就是为什么有这么多变量你看不到任何代码的原因。

Dim tempR1 As String
Dim tempR2 As String
Dim tempValue1 As String
Dim tempValue2 As String
Dim tempValue3 As String
Dim tempValue4 As String
Dim tempValue5 As String
Dim dt As Date
Dim d As String
Dim row As String
Dim rngC As Range
Dim rngU As Range
Dim fpath As String
Dim strFileExists
Dim xlappC As Excel.Application
Dim xlbookC As Excel.Workbook
Dim xlsheetC As Excel.Worksheet
Dim xlappU As Excel.Application
Dim xlbookU As Excel.Workbook
Dim xlsheetU As Excel.Worksheet

fpath = "PATH1"
strFileExists = Dir(fpath)
If strFileExists <> "" Then

    'set variables for Excel
    Set xlappC = CreateObject("Excel.Application")
    Set xlbookC = xlappC.Workbooks.Open(fpath)
    Set xlsheetC = xlbookC.Worksheets("Audit Fees Remittance")
    With xlappC
        .Visible = False
        .DisplayAlerts = False
        .Workbooks.Open fpath

        'Update Raw Data Cad and CSCT tab
        Set xlsheetC = xlbookC.Worksheets("Raw Data CAD and CSCT")
        With xlsheetC
            Set rst = CurrentDb.OpenRecordset("Weekly CAN 5 Raw Data to include csct")
            If rst.RecordCount > 0 Then
                tempR2 = rst.RecordCount + 1
                tempR2 = .Cells(.Rows.Count, "CV").End(xlUp).Offset(tempR2).Address(False, False)
                tempR1 = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Address(False, False)
                Set rngC = .Range(tempR1, tempR2)
                rngC.Name = "TabFA8"
                DoCmd.TransferSpreadsheet acExport, 10, "PATH1", True, "TabFA8"
                .Rows(2).EntireRow.Delete
                rst.Close
                Set rst = Nothing
                Else
                    rst.Close
                    Set rst = Nothing
                End If
                tempValue2 = "$A$2:" & tempR2
                .Range(tempValue2).EntireColumn.AutoFit
                tempR1 = ""
                tempR2 = ""
            End With

'Remit for US
fpath = "PATH2"
strFileExists = Dir(fpath)
If strFileExists <> "" Then
    'set variables for Excel
    Set xlappU = CreateObject("Excel.Application")
    Set xlbookU = xlappU.Workbooks.Open(fpath)
    Set xlsheetU = xlbookU.Worksheets("Remittance Tab")
    With xlappU
        .Visible = False
        .DisplayAlerts = False
        .Workbooks.Open fpath

        'Update INTL Remittance tab
        Set xlsheetU = xlbookU.Worksheets("INTL Remittance")
        With xlsheetU
            Set rst = CurrentDb.OpenRecordset("Weekly US 5 Remittance Tab B DHLG and Jas")
            If rst.RecordCount > 0 Then
                tempR2 = rst.RecordCount + 1
                tempR2 = .Cells(.Rows.Count, "V").End(xlUp).Offset(tempR2).Address(False, False)
                tempR1 = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Address(False, False)
                If Len(tempR1) = 3 Then
                    row = Right(tempR1, 2)
                    Else
                        row = Right(tempR1, 3)
                    End If
                'set range for renaming
                'this will allow TransferSpreadhseet to know where to export to on the sheet
                Set rngU = .Range(tempR1, tempR2)
                rngU.Name = "TabUSR2"
                DoCmd.TransferSpreadsheet acExport, 10, "Weekly US 5 Remittance Tab B DHLG and Jas", "PATH2", True, "TabUSR2"
                'delete row with headers
                .Rows(row).EntireRow.Delete
                rst.Close
                Set rst = Nothing
                Else
                    rst.Close
                    Set rst = Nothing
                End If
            End With

Answer 1

虽然我无法完全理解或诊断您的问题，但为了维护和可读性，请考虑将所有 Excel 和 Access 进程分开。 避免使用两个 object 库遍历相同的打开文件。 因此，使用您创建的记录集考虑 Excel 的Range.CopyFromRecordset而不是 Access 的DoCmd.TransferSpreadsheet 。

...
Set rst = CurrentDb.OpenRecordset("Weekly CAN 5 Raw Data to include csct")
...

Set rngC = .Range(tempR1, tempR2)
rngC.Name = "TabFA8"
rngC.CopyFromRecordset rst
rst.Close

...
Set rst = CurrentDb.OpenRecordset("Weekly US 5 Remittance Tab B DHLG and Jas")
...

Set rngU = .Range(tempR1, tempR2)
rngU.Name = "TabUSR2"
rngU.CopyFromRecordset rst
rst.Close

Answer 2

Parfait 建议关闭工作簿然后执行 TransferSpreadsheet 解决了我的问题。