2017-02-23 9 views
-1

私は2つExcelファイルがあります..xlsmにはマクロがあり、もう1つはb.xlsxにはさまざまなシートが入っています(shee1、sheet2、sheet3など) 私の必要条件は、 b.xlsx goto sheet2を開き、pdfとしてエクスポートする必要があります。 私は、マクロに新しいですとアドバイスしてくださいコード別のワークシートにマクロを実行

Sub Macro4() 
' 
' Macro4 Macro 
' 

' 
    Sheets("Sales Contract").Select 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     "E:\Universal Metals\Workspace\Universal_Metals\data-out\clover_output.pdf", _ 
     Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
     :=False, OpenAfterPublish:=True 
    Windows("Book1").Activate 
End Sub 

次試してみました。 の下に与えられたとしてあなたは「a.xlsm」ファイルの「のWorkbook_Open」イベント内のコードを記述する必要が

答えて

1

は、それが

Private Sub Workbook_Open() 
Dim xlwb As Workbook  

Set xlwb = Workbooks.Open("C:\Users\Admin\Desktop\b.xlsx")  
xlwb.Sheets("Sales Contract").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _  
     "E:\Universal Metals\Workspace\Universal_Metals\data-out\clover_output.pdf", _  
     Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _  
     :=False, OpenAfterPublish:=True  

End Sub 
の作品ホープ
関連する問題