MACRO werkt niet op Mac

Status
Niet open voor verdere reacties.
M

MilcoPoppe

Nieuwe gebruiker
Lid geworden
29 sep 2017
Berichten
3
Ik heb zelfde Macro niet gemaakt, maar op Windows doet de Macro het en op mijn Mac doet de Macro het niet. Het gaat erom dat ik bepaalde cellen in een .txt document wil kopiëren en plakken en vervolgens het .txt bestand op een locatie op mijn mac wil opslaan. De Macro die werkt op Windows ziet er als volgt uit:

Code: 
Sub Opslaan02()
sCellVal = Range("I23").Value
MyStringX = sCellVal
sCellVal = Range("H2").Value
MyStringZ = sCellVal
MyStringN = "C:" + MyStringZ + ".txt"

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile MyStringN            'Create a file
    Set f = fs.GetFile(MyStringN)
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write MyStringX + MyStringZ
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub

Wie heeft er een idee?
 
Laatst bewerkt door een moderator:
Volgens mij kent een Mac geen "C:\......", dat is iets voor Windows. Dus dan wordt het voor je script ietwat lastig om daar iets weg te schrijven.

Gratis bonustip. Je script geeft vrijwel zeker een foutmelding, vermeld deze hier ook. Kan altijd handig zijn bij het oplossen.
 
De Mac zal Scripting.FileSystemObject niet kennen.
Gebruik het standaard Open statement om het bestand te openen.
Hou er ook rekening mee dat een Mac een andere Pad notatie heeft dan Windows.
 
Laatst bewerkt:
Fout 429 tijdens runtime:

ActiveX-onderdeel kan object niet maken

Bovenstaand de foutmelding.
 
edmoor zei:
De Mac zal Scripting.FileSystemObject niet kennen.
Gebruik het standaard Open statement het bestand te openen.
Hou er ook rekening mee dat een Mac een andere Pad notatie heeft dan Windows.
Klik om te vergroten...

Ik heb geen idee wat het Open statement bestand is om het te openen. Kan je hierbij helpen, zodat ik de macro werkzaam kan maken? Duidelijk dat het een ander pad notatie is, maar welke...
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan