Окна VBA для Mac

Я сделал код на своем ПК с Windows, имел несколько макросов / VBA, но сделал файл для кого-то с Mac.

не знаю, с чего начать с настройки кода, но кто-нибудь знает, как возникают следующие проблемы, это поможет мне найти решение. Я, вероятно, использовал специальные компоненты Windows.

если кто-то может подтолкнуть меня в правильном направлении, это было бы здорово .. Нашли несколько тем: http://www.vbaexpress.com/forum/archive/index.php/t-12976.html

и у этого, вероятно, есть решение для моей проблемы с PDF: код Excel VBA для работы на Mac, создание функции PDF

Проблема 1: colomnwidth не работает:

End With Columns("A:A").EntireColumn.AutoFit Columns("A:A").ColumnWidth = 26 Columns("C:H").Select Selection.ColumnWidth = 4.5 Columns("J:L").Select Selection.ColumnWidth = 11.5 Columns("I:I").Select Selection.ColumnWidth = 16.25 Columns("B:B").ColumnWidth = 11.5 Columns("J:L").Select Selection.ColumnWidth = 10.25 Columns("I:I").EntireColumn.AutoFit 

Кнопка для создания PDF дает «Не удалось создать PDF»

 Sub SaveConcept() Dim ws As Worksheet Dim strPath As String Dim myFile As Variant Dim strFile As String On Error GoTo errHandler Range("N8:N9").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveSheet.PageSetup.Orientation = xlLandscape Set ws = ActiveSheet strFile = Range("J15") _ & Format(Now(), " dd-mm-yyyy") _ & Format(" Concept") _ & ".pdf" strFile = ThisWorkbook.Path & "\" & strFile myFile = Application.GetSaveAsFilename _ (InitialFileName:=strFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and FileName to save") If myFile <> "False" Then ActiveSheet.Range("L1", _ ActiveSheet.Range("L1").End(xlDown).End(xlDown).End(xlDown).End(xlToLeft).End(xlToLeft).End(xlToLeft).End(xlDown)).ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End If exitHandler: Exit Sub errHandler: MsgBox "Could not create PDF file" Resume exitHandler End Sub 

благодаря

Не должно быть проблемы с первой частью +, поскольку она не имеет ничего общего с окнами, для второй части – вы используете «\» в качестве разделителя путей для файла PDF, на Mac это обычно «:»

Чтобы сделать код совместимым для обоих, вместо этого используйте значение приложения:

 strFile = ThisWorkbook.Path & Application.PathSeparator & strFile 

+ note: это был код OP во время ответа

  • UnicodeDecodeError: кодек «utf-8» не может декодировать байт 0xb9 в позиции 14: недопустимый стартовый байт
  • Есть ли какой-либо FOSS lib для чтения файлов Excel с помощью C
  • Выделите строку в excel mac 2011, когда ячейка имеет определенное слово
  • Почему текст подсказки не отображается для моего InputBox с использованием VBA в Excel для Mac?
  • Макрос VBA работает над Excel 2016 для Windows, но не для Mac
  • Проблема капитализации с Workbooks.Open с использованием VBA в Excel 2016
  • ThisWorkbook.Path for Mac возвращает (ошибка 68)
  • & кинжал и & Кинжал в Excel на Mac
  • Excel 2011 пути поиска dylib на OSX 10.11+
  • Как очистить кеш браузера клиента для надстройки панели задач Excel 2016 на Mac?
  • Программно добавление ссылки дает ошибку во время выполнения
  • Давайте будем гением компьютера.