Доступ к VBA: метод pastespecial класса рабочего листа не прошел

Question

У меня есть код VBA, который должен экспортировать отфильтрованные данные запроса в Excel. Когда я активирую код через кнопку OnClick, я получаю ошибку: Method pastespecial of worksheet class failed.

Я бегу Access 2013 на Windows Server 2012 r2 машина.

УВА код:

Private Sub cbExport_Click() 

    On Error GoTo Command13_Click_Err 

    DoCmd.RunCommand acCmdSelectAllRecords 
    DoCmd.RunCommand acCmdCopy 

    Dim xlapp As Excel.Application 
    Set xlapp = CreateObject("Excel.Application") 

    With xlapp 
     .Workbooks.Add 
     .ActiveSheet.PasteSpecial Format:="Text", _ 
            Link:=False, _ 
            DisplayAsIcon:= False 

     .Cells.Select 
     .Cells.EntireColumn.AutoFit 
     .Visible = True 
     .Range("A1").Select 

    End With 

    Command13_Click_Exit: 
    Exit Sub 

    Command13_Click_Err: 
    MsgBox Error$ 
    Resume Command13_Click_Exit 

End Sub 

Изображение интерфейса:

Кто-нибудь есть идея?

Answer 1

Пара вещей неправильно:

• Вы кажетесь использовали раннее связывание размерности переменной xlApp, но затем использовать позднее связывание для инициализации этой переменной.

• Метод .PasteSpecial() должен использоваться для объекта диапазона, а не для объекта листа.

• Похоже, что вы используете неправильные аргументы метода .PasteSpecial.

• Метод паста должна быть числовое значение, часть xlPasteType перечисления

---

Попробуйте этот код вместо:

DoCmd.RunCommand acCmdSelectAllRecords 
DoCmd.RunCommand acCmdCopy 

Dim xlApp As Excel.Application 
Set xlApp = New Excel.Application 

xlApp.Workbooks.Add 
xlApp.Visible = True 

With xlApp.ActiveWorkbook.ActiveSheet 
    .Cells.PasteSpecial XlPasteType.xlPasteValues 
    .Cells.EntireColumn.AutoFit 
End With