Excel для Mac: конвертировать разделение Windows в текстовый макрос

Question

Я полный хак VB - как в вырезать / копировать / вставить и пытаюсь заставить вещи работать. Приведенный ниже код работает на моем компьютере с Windows, но не работает на моем Mac.

Я получаю ошибку доступа к файлу / пути в этой строке:

Open MYFILE & "C2NXT_STD.txt" For Output As #FileNum

Я уверен, что это связано с частью Open MYFILE ссылающейся на путь к папке. Может быть, у меня действительно есть ошибка разрешений?

Public Sub a_SaveAsTextWithDelimiter()
Const MYFILE = "Macintosh HD/Users/darrenmason/Documents/Products/Creator NXT/Serials/"
Dim Last_Column As Integer
Dim Last_Row As Long
Dim FileNum As Integer
Dim My_Range As Range
Dim My_Cell As Variant

FileNum = FreeFile

With ActiveSheet.Cells
    Last_Column = .Find("*", [A1], , , xlByColumns, xlPrevious).Column
    Last_Row = .Find("*", [A1], , , xlByRows, xlPrevious).Row
End With

Set My_Range = ActiveSheet.Range("A1:A" & Last_Row)

Open MYFILE & "C2NXT_STD.txt" For Output As #FileNum
For Each My_Cell In My_Range
    If My_Cell.Row Mod 1000 = 0 Then
        Close #FileNum
        Open MYFILE & "C2NXT_STD_" & (My_Cell.Row \ 1000) & "_" & (Format(Date, "yyyymmdd")) & ".txt" For Output As #FileNum
    End If
    Print #FileNum, My_Cell.Value
Next
Close #FileNum
End Sub

Answer 1

Попробуйте удалить "Macintosh HD" со своего пути, чтобы он начинался с косой черты.

т.е. Const MYFILE = "/Users/darrenmason/Documents/Products/Creator NXT/Serials/"