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:
Wie heeft er een idee?
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: