Makro: eksport PDF kilku arkuszy w tym samym pliku

Out of category
1

Witam

 Dostałem makro do eksportowania plików PDF, nieznacznie je zmodyfikowałem, aby wyeksportować wszystkie konfiguracje z tym samym planem. Chciałbym zrobić dwa arkusze na tym planie.

Tylko że eksportuje liście niezależnie.

Czy znasz sposób na umieszczenie obu arkuszy w tym samym pliku?

Część kodu, którego dotyczy wniosek:

Podczas gdy i <= iT - 1
          'Widok układu20
            boolstatus = Part.Extension.SelectByID2("Widok rysunku20", "DRAWINGVIEW", 0.195997909234212, 0.164382166839605, 0, Fałsz, 0, Nic, 0)
            Ustaw swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        'Widok układu17
            boolstatus = Part.Extension.SelectByID2("Widok rysunku17", "DRAWINGVIEW", 0.127659480183812, 0.163338832044942, 0, Fałsz, 0, Nic, 0)
            Ustaw swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        'Widok rysunku16
            boolstatus = Part.Extension.SelectByID2("Drawing View16", "DRAWINGVIEW", 6.19293881200676E-02, 0.163338832044942, 0, False, 0, Nic, 0)
            Ustaw swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        '
            Part.ClearSelection2 Prawda

            Part.ForceRebuild3 Prawda

            Dla a = 1 TB swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Ustaw swSheet = swModel.GetCurrentSheet
                ' Aby zapisać arkusz jako plik PDF
                Ustaw swModelDocExt = swModel.Extension
                Ustaw swExportPDFData = swApp.GetExportFileData(1)
                swExportPDFData.ViewPdfAfterSaving = Fałsz
                nFileName = Ścieżka & "\" & vNameConf(i) & "-" & lastInd & "-" & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nNazwaPliku, 0, 0, swExportPDFData, lBłędy, lOstrzeżenia)
            Następny a
            "MsgBox i
            i = i + 1
            
           Wend


macro_pdf_enregistrer_sous-2.swp
2

Witam

To właśnie czyni podany tutaj przykład.

Pozdrowienia

3

Dziękuję
Trudne do zrozumienia, to tylko pierwsze makro, wydaje mi się, że ten kod jest pełen literówek prawdopodobnie popełnionych przez tłumaczenie...

Ale jeśli dobrze rozumiem, muszę utworzyć zmienną z nazwą wszystkich moich arkuszy.

Testuję na zimno

4

Wszystko, co musiałeś zrobić, to zamienić wartość, a nie tablicę

swSheet w aktywnej zmiennej arkusza

swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)

vSheet i realne arkusze

boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, vSheet)