Excel para Mac: Converta o Windows em txt macro

Question

Eu sou um hack VB total - como em recortar / copiar / colar e tentar fazer as coisas funcionarem. O código abaixo funcionou na minha máquina Windows, mas não funcionará no meu Mac.

Eu recebo um erro de acesso de arquivo / caminho nesta linha:

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

Tenho certeza de que é devido à parte Open MYFILE que faz referência ao caminho da pasta. Talvez eu realmente tenha um erro de permissão?

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

Tente remover o "Macintosh HD" do seu caminho, para que ele comece com a barra.

i.e. Const MYFILE = "/Users/darrenmason/Documents/Products/Creator NXT/Serials/"