Activesheet

を使用せずにPDFへの外部シートをエクスポート私は私は私が外のPDFを作成したいシートやタブのリストを持つ2つの部分の問題Activesheet

を持っています。一度に1つのPDFを作成することはできないので、多くのPDFを作成して1つのステップで結合することに決めました。今ここに私の問題があります。一般的に「Activesheet」で使用されている.exportAsFixedformat

は、私が「に」「から」パラメータとActivesheetでこれを行うとき、これは直接、また

も、それは私を与える使用しようとしています問題

Do 
    PrintWB = .Cells(i, 2) 'sheetpath + workbookname 
    sheetname = .Cells(i, 3) 'Name of Tab 
    Frompage = .Cells(i, 4) 'From 
    Topage = .Cells(i, 5) 'To 

    Workbook(PrintWB).Sheets(sheetname).ExportAsFixedFormat _ 
    Type:=xlTypePDF, _ 
    Filename:="C:\Rough\" & x & ".pdf", _ 
    Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True, _ 
    IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=False, _ 
    From:=Frompage,_ 
    To:=Topage 
    Loop While .Cells(i - 1, 2) = .Cells(i, 2)

ショートノート：DO-whileループは、シートの一方がS、印刷するための複数のタブを持っているだけの場合には、何度も何度も同じシートを開いて閉じていないから私を助けOだけ

は、今私たちは書類の束を印刷し、私はPDFを統合することができていた場合、これは紙の多くが保存されます、小さな冊子を作成した後にそれらを提出することを無視します。

出典

2016-10-13 user6879637