20.09.2019 22:19:50
Всем привет! В написание макросов понимаю плохо, прошу прощения за тупость если что.
Проблема следующая, на винде был написан простейший макрос, который выполняет несложную функцию, а именно, в первой вкладке форма для ввода данных, от туда во вкладку 2 и 3 подгружаются данные, далее во вкладке 1 есть кнопка сохранить в PDF, при её нажатие, по ранее написанному пути (в настоящее время пробовал по разному указать путь, ошибку выдавал) создавалась папка с текстом первой строчке первой вкладки, и сохранялись файлы в формате PDF из вкладки 2 и 3. В настоящее время на маке, выдает ошибку, мол предоставь доступ к папке, я его предоставляю и пишет "Ошибка выполнения "75": Ошибка доступа к пути или файлу"
Sub soxr_bazy() Dim sdvig As Integer Dim q1 As String Dim q2 As String Dim q3 As String Sheets("ФОРМА ДАННЫХ").Select q1 = Cells(2, 3).Value q2 = Cells(3, 3).Value q3 = Cells(4, 3).Value Sheets("База").Select sdvig = Cells(1, 1).Value Cells(1 + sdvig, 2).Value = q1 Cells(1 + sdvig, 3).Value = q2 Cells(1 + sdvig, 4).Value = q3 End Sub Sub Макрос1() ' ' Макрос1 Макрос ' ' Range("C2:C18").Select Selection.ClearContents End Sub Sub pdf1() Dim q As String Sheets("ВОЗРАЖЕНИЕ НА СП").Select q = Cells(6, 9).Value '!!!!!!!!!!!!!!!!! ' УКАЖИ ПУТЬ pyt = "/Users/GOSS/Documents/ФЗПД/Клиенты/" '!!!!!!!!!!!!!!!!! MkDir pyt + q ChDir pyt + q ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ pyt + q + "\" + q + "_Возражение.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _ True, IgnorePrintAreas:=False, OpenAfterPublish:=False ActiveWorkbook.Save Sheets("ОТКАЗ ОТ ВЗАИМОДЕЙСТВИЯ").Select ChDir pyt + q ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ pyt + q + "\" + q + "_Отказ.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _ True, IgnorePrintAreas:=False, OpenAfterPublish:=False ActiveWorkbook.Save End Sub
Изменено: |
|||
|
Редактирование макроса. Нужна помощь, корректировка макроса в маке
Редактирование макроса. Нужна помощь, корректировка макроса в маке