Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Вячеслав
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос для Libreoffice, Работа с макросами в Libreoffice
 
#
11.09.2022 22:02:15
RAN, у меня Astra Linux печать запускается, но всё остальное нет. Импортозамещение идёт полным ходом :D хорошо формулы вроде все работают.
 
Перейти    
Макрос для Libreoffice, Работа с макросами в Libreoffice
 
#
11.09.2022 20:51:18
sokol92, Ок, благодарю!
 
Перейти    
Макрос для Libreoffice, Работа с макросами в Libreoffice
 
#
11.09.2022 18:33:14
sokol92, Здесь мне не смогут помочь?
 
Перейти    
Макрос для Libreoffice, Работа с макросами в Libreoffice
 
#
11.09.2022 12:23:59

Надеюсь, всё  :)  Скажите кто-то сможет помочь переписать макрос для работы в Libreoffice. Этот макрос мне помогли написать и с переходом компании на Astra Linux и Libreoffice макрос выдаёт ошибку, а с ним достаточно хорошо экономится время.
 
Перейти    
Макрос для Libreoffice, Работа с макросами в Libreoffice
 
#
10.09.2022 19:43:30
Юрий М, готово
 
Перейти    
Макрос для Libreoffice, Работа с макросами в Libreoffice
 
#
10.09.2022 13:02:05
Уважаемые форумчане подскажите, пожалуйста, кто знает как переписать макрос 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
 
Перейти    
Страницы: 1
Наверх