Уважаемые форумчане подскажите, пожалуйста, кто знает как переписать макрос Microsoft Excel для работы в Libreoffice?
Код |
---|
Sub Адрес()'' Адрес'dosyaadi1 = Cells(1, 3)donbasa:Set klasor = CreateObject("shell.application").Browseforfolder(0, "Выберите место для сохранения заключений", 100, &H0) If klasor Is Nothing Then GoTo donbasakaynak = klasor.self.PathCells(1, 3) = kaynakkayityeri = Cells(1, 3) End Sub Sub Печать() '' Печать' reportno = Cells(8, 3)dosyayolu = Cells(1, 3)AA = Cells(6, 3)BB = Cells(6, 4)If AA > BB Then Cells(6, 3) = AA BB = Cells(6, 3)ElseEnd IfIf dosyayolu = "" Then MsgBox "Lutfen Klasor Secimini Yapiniz !", vbInformation, "Uyari" Call Адрес dosyayolu = Cells(1, 3)ElseEnd IfApplication.ScreenUpdating = FalseFor jts = AA To BB Step 1 Cells(6, 3) = jts Sheets("Данные").Calculate reportno = Cells(5, 9) ChDir dosyayolu Sheets("ВИК-РД").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("РК-РД").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("КАП-РД").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("ВИК-РАД").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("РК-РАД").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("КАП-РАД").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Worksheets(Array("ВИК-РД", "РК-РД", "КАП-РД")).Select Клеймо = Sheets("ВИК-РД").Cells(2, 12) имяфайла = Клеймо & " Заключение-РД" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ имяфайла, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Worksheets(Array("ВИК-РАД", "РК-РАД", "КАП-РАД")).Select Клеймо = Sheets("ВИК-РАД").Cells(2, 12) имяфайла = Клеймо & " Заключение-РАД" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ имяфайла, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Sheets("Данные").Select Next jtsApplication.ScreenUpdating = True End Sub |
Изменено: Вячеслав - 11.09.2022 12:15:47