VBA窗口到Mac

我在Windows PC上创build了一个代码，有多个macros的/ VBA，但是用Mac创build了一个文件。

不知道从哪里开始调整代码，但有任何线索如何导致以下问题，这将帮助我find一个解决scheme..我可能使用了Windows特定的组件。

如果有人能把我推向正确的方向，这将是很好的..find了几个话题： http : //www.vbaexpress.com/forum/archive/index.php/t-12976.html

而这一个可能有我的PDF问题的解决scheme： Excel VBA代码工作在Mac，创buildPDFfunction

问题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的button给出“无法创buildPDF”

 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 

谢谢

Answer 1

第一部分应该没有什么问题，因为它并不是Windows的特定内容，第二部分 – 使用“\”作为PDF文件的path分隔符，在Mac上这通常是“：”

要使代码兼容，请改用应用程序的值：

 strFile = ThisWorkbook.Path & Application.PathSeparator & strFile 

---

⁺ 注意： 这是在回答时的OP代码