AW: Cookie mit Excel
21.08.2009 12:43:30
D.Saster
Hallo,
z.B. so:
Option Explicit
Const sPfad As String = "c:\Temp\"
Const sDatei As String = "Keks.txt"
Sub Keks_schreiben()
Dim arrKeks, sKeks As String
Dim ff As Integer
ff = FreeFile
arrKeks = Range("A1:A3")
sKeks = Join(WorksheetFunction.Transpose(arrKeks), vbLf)
Open sPfad & sDatei For Output As ff
Print #ff, sKeks
Close ff
End Sub
Sub Keks_lesen()
Dim sKeks As String, arrKeks, ff As Integer
ff = FreeFile
Open sPfad & sDatei For Input As ff
Input #ff, sKeks
Close ff
arrKeks = WorksheetFunction.Transpose _
(WorksheetFunction.Transpose(Split(sKeks, vbLf)))
MsgBox arrKeks(2)
End Sub
Gruß
Dierk