1 votes

Excel pour Mac : Conversion d'un fractionnement Windows en macro txt

Je suis un vrai hacker VB - comme couper/copier/coller et essayer de faire fonctionner les choses. Le code ci-dessous a fonctionné sur ma machine Windows, mais ne fonctionne pas sur mon Mac.

J'obtiens une erreur d'accès au fichier/chemin sur cette ligne :

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

Je suis sûr que c'est dû à la Open MYFILE faisant référence au chemin du dossier. Peut-être ai-je vraiment une erreur de permissions ?

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

0voto

Essayez de supprimer le "Macintosh HD" de votre chemin, de sorte qu'il commence par la barre oblique.

c'est-à-dire Const MYFILE = "/Users/darrenmason/Documents/Products/Creator NXT/Serials/"

SistemesEz.com

SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.

Powered by:

X