PDFファイルへの出力パスVBA

Question

私は以下のコードを研究しており、ワークブックの1つで作業する必要があります。コードのアイデアは、シートをPDFに自動的に印刷し、特定のセルの内容に名前を付けてディレクトリに保存することです。

I新しいブックにコピーしようとするまで、すべてが正常に動作します（私はない、破損元へとテストワークブックに設計された）、私は

実行時エラー1004

を取得デバッグするとThisWorkbook.Sheets(Array("sheet 2")).Selectがハイライト表示されます。私は何か簡単なものを逃していますコードは元のブックでは機能しますが、新しいブックに新しいモジュールを貼り付けても機能しません。申し訳ありません、私はこれにはかなり新しいです！

sub PrintPDFRT() 

Sheets("test").Activate 
ActiveSheet.UsedRange.Select 
Sheets("malbru1").Activate 
ActiveSheet.UsedRange.Select 
Sheets("sheet 2").Activate 
Range("A1:j137").Select 

ThisWorkbook.Sheets(Array("sheet 2")).Select 
Selection.ExportAsFixedFormat _ 
    Type:=xlTypePDF, _ 
    Filename:="FIle path\" & Range("L7").Value, _ 
    Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True, _ 
    IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=False 
End Sub 

Answer 1

このようにそれを試してみてください（Arrayなし）

sub PrintPDFRT() 

WorkSheets("test").Activate 
ActiveSheet.UsedRange.Select 
WorkSheets("malbru1").Activate 
ActiveSheet.UsedRange.Select 
WorkSheets("sheet 2").Activate 
Range("A1:j137").Select 

ThisWorkbook.WorkSheets("sheet 2").ExportAsFixedFormat _ 
    Type:=xlTypePDF, _ 
    Filename:="FIle path\" & Range("L7").Value, _ 
    Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True, _ 
    IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=False 
End Sub