Run Makro zu anderen Arbeitsblatt

Question

Ich habe zwei Excel-Datei ist eine a.xlsm enthält Makro und eine andere ist b.xlsx enthält verschiedene Blatt zB (shee1, sheet2, sheet3 usw.) meine Anforderung ist, wenn ich a.xlsm öffnen Datei, Makro sollte b.xlsx goto Blatt2 öffnen und als PDF exportieren. Ich habe versucht, folgenden Code

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 

Bitte Beratung, wie ich zu Makro neu bin.

Answer 1

Sie haben den Code in ‚Workbook_Open‘ Falle ‚a.xlsm‘ Datei zu schreiben, wie unten gegeben Hoffe, es

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 

arbeitet