アクセスVBA：ワークシートのクラスのメソッドpastespecialは、私がExcelにフィルタクエリデータをエクスポートすることになっている<strong>VBA</strong>コードを持って

Question

に失敗しました。 OnClickボタンを使用してコードを有効にすると、エラーが発生します。 Method pastespecial of worksheet class failed。

実行中アクセス2013Windows Server 2012 R2マシンで実行しています。

VBAコード：

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 

UIの写真：

誰かがアイデアを得ましたか？間違ったことの

Answer 1

カップル：

• あなたはxlApp変数をディメンションするために、事前バインディングを使用しているように見えるが、その変数を初期化するために遅延バインディングを使用します。

• .PasteSpecial()方法は、Rangeオブジェクトではなく、シートオブジェクトに対して使用されるべきです。

• あなたは.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