Проблема следующая, на винде был написан простейший макрос, который выполняет несложную функцию, а именно, в первой вкладке форма для ввода данных, от туда во вкладку 2 и 3 подгружаются данные, далее во вкладке 1 есть кнопка сохранить в PDF, при её нажатие, по ранее написанному пути (в настоящее время пробовал по разному указать путь, ошибку выдавал) создавалась папка с текстом первой строчке первой вкладки, и сохранялись файлы в формате PDF из вкладки 2 и 3.
В настоящее время на маке, выдает ошибку, мол предоставь доступ к папке, я его предоставляю и пишет "Ошибка выполнения "75": Ошибка доступа к пути или файлу"
Код |
---|
Sub soxr_bazy()Dim sdvig As IntegerDim q1 As StringDim q2 As StringDim q3 As StringSheets("ФОРМА ДАННЫХ").Selectq1 = Cells(2, 3).Valueq2 = Cells(3, 3).Valueq3 = Cells(4, 3).ValueSheets("База").Selectsdvig = Cells(1, 1).ValueCells(1 + sdvig, 2).Value = q1Cells(1 + sdvig, 3).Value = q2Cells(1 + sdvig, 4).Value = q3End SubSub Макрос1()'' Макрос1 Макрос'' Range("C2:C18").Select Selection.ClearContentsEnd SubSub pdf1()Dim q As StringSheets("ВОЗРАЖЕНИЕ НА СП").Selectq = Cells(6, 9).Value'!!!!!!!!!!!!!!!!!' УКАЖИ ПУТЬpyt = "/Users/GOSS/Documents/ФЗПД/Клиенты/"'!!!!!!!!!!!!!!!!!MkDir pyt + qChDir pyt + qActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _pyt + q + "\" + q + "_Возражение.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _True, IgnorePrintAreas:=False, OpenAfterPublish:=FalseActiveWorkbook.SaveSheets("ОТКАЗ ОТ ВЗАИМОДЕЙСТВИЯ").SelectChDir pyt + qActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _pyt + q + "\" + q + "_Отказ.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _True, IgnorePrintAreas:=False, OpenAfterPublish:=FalseActiveWorkbook.SaveEnd Sub |
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