vba - 如何在 VBA (Mac) 中将文件保存到桌面

Question

我正在用 VBA 编写一个需要兼容 Windows 和 Mac 机器的宏。当我需要将文件作为制表符分隔的文本文件保存到用户桌面时，我已经完成了所有工作，直到结束。下面是我试过的代码，但我一直收到错误。任何帮助表示赞赏。谢谢!

'Export doc as Delimited Text

Dim OS As String
OS = Application.OperatingSystem

Dim un As Variant

un = (Environ$("Username"))

Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("dataExport").Copy Before:=wb.Sheets(1)

If InStr(OS, "Windows") > 0 Then

wb.SaveAs Filename:="C:\Users\" & un & "\Desktop\" & CaseNum & ".txt", FileFormat:=xlText

Else

wb.SaveAs Filename:="/Users/" & un & "/Desktop/" & CaseNum & ".txt", FileFormat:=xlText

End If

Answer 1

在 Mac 上的 Excel 中，您必须使用 : 作为分隔符:

wb.SaveAs Filename:="Macintosh HD:Users:" & un & ":Desktop:" & CaseNum & ".txt", FileFormat:=xlText