Voor Voor Voor Volgende Volgende

Out of category
1

Hallo, kunnen we twee For Next-lussen  doen?

Mijn macro werkt op het een of het ander, maar niet beide tegelijkertijd!

2

Hallo

Als u uw code kunt kopiëren, zal dit helpen om het probleem te begrijpen 

3

Ik heb een tijdje lus gemaakt en nog een Om mijn probleem op te lossen

= 1
            
          Terwijl i <= iT - 1
            Voor a = 1 TB swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Stel swSheet in = swModel.GetCurrentSheet
                ' Om het blad op te slaan als een PDF
                Stel swModelDocExt = swModel.Extension in
                Stel swExportPDFData = swApp.GetExportFileData(1) in
                swExportPDFData.ViewPdfAfterSaving = Onwaar
                nFileName = Pad & "\" & vNameConf(i) & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nFileName, 0, 0, swExportPDFData, lErrors, lWarnings)
            Volgende a
            "MsgBox i
            i = ik + 1
            
           Gaan

Maar ik heb mijn eerste idee was:

Voor i = 1 TB swModel.GetConfigurationCount
            Voor a = 1 TB swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Stel swSheet in = swModel.GetCurrentSheet
                ' Om het blad op te slaan als een PDF
                Stel swModelDocExt = swModel.Extension in
                Stel swExportPDFData = swApp.GetExportFileData(1) in
                swExportPDFData.ViewPdfAfterSaving = Onwaar
                nFileName = Pad & "\" & vNameConf(i) & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nFileName, 0, 0, swExportPDFData, lErrors, lWarnings)
            Volgende a
           volgende i