For For Next Next

Out of category
1

Hallo, können wir zwei For Next-Schleifen  machen?

Mein Makro funktioniert entweder bei dem einen oder dem anderen, aber nicht bei beiden gleichzeitig!

2

Hallo

Wenn Sie Ihren Code kopieren können, hilft es, das Problem zu verstehen 

3

Ich habe eine while-Schleife und eine weitere For erstellt, um mein Problem zu lösen

= 1
            
          Während i <= iT - 1
            Für a = 1 TB swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Set swSheet = swModel.GetCurrentSheet
                ' So speichern Sie das Blatt als PDF
                Legen Sie swModelDocExt = swModel.Extension fest
                Set swExportPDFData = swApp.GetExportFileData(1)
                swExportPDFData.ViewPdfAfterSaving = Falsch
                nFileName = Pfad & "\" & vNameConf(i) & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nDateiname, 0, 0, swExportPDFData, lFehler, lWarnungen)
            Weiter a
            "MsgBox i
            i = i + 1
            
           Wend

Aber meine ursprüngliche Idee war:

Für i = 1 TB swModel.GetConfigurationCount
            Für a = 1 TB swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Set swSheet = swModel.GetCurrentSheet
                ' So speichern Sie das Blatt als PDF
                Legen Sie swModelDocExt = swModel.Extension fest
                Set swExportPDFData = swApp.GetExportFileData(1)
                swExportPDFData.ViewPdfAfterSaving = Falsch
                nFileName = Pfad & "\" & vNameConf(i) & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nDateiname, 0, 0, swExportPDFData, lFehler, lWarnungen)
            Weiter a
           Weiter i