Dla Dla Następnego Następnego

Out of category
1

Witam, czy możemy zrobić dwie pętle For Next ?

Moje makro działa albo na jednym, albo na drugim, ale nie na obu jednocześnie!

2

Witam

Jeśli możesz skopiować swój kod, pomoże to zrozumieć problem

3

Zrobiłem pętlę while i kolejną For, aby rozwiązać mój problem 

= 1
            
          Podczas gdy i <= iT - 1
            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) & 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

Ale mój początkowy pomysł był taki:

Dla i = 1 TB swModel.GetConfigurationCount
            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) & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nNazwaPliku, 0, 0, swExportPDFData, lBłędy, lOstrzeżenia)
            Następny a
           Dalej i