Array in .txt speichern und wieder laden
01.09.2005 14:29:40
Stan
Ich versuche mit Hilfe dem folgenden Programm mein Array (NameAnlage) in einer .txt Datei zu speichern, um dann beim öffnen der Excel Datei das Array wieder zu laden aber er meldet immer den Fehler "Dateiname oder Nummer falsch" für If Dir$(sFile) "" Then Kill sFile
' Array in Datei speichern
Private Sub SaveArray()
Dim sFile As String
Dim F As Integer
Dim nCount As Long
sFile = ThisWorkbook.Path & ("T:\Fourrier\arraydatei.dat")
' Falls Datei vorhanden, zunächst löschen
If Dir$(sFile) <> "" Then Kill sFile
' Datei im Binary-Mode öffnen
F = FreeFile
Open sFile For Binary As #F
' Anzahl Elemente speichern
nCount = UBound(NameEinkaufsregion)
Put #F, , nCount
' Array-Elemente speichern
Put #F, , NameEinkaufsregion
Close #F
End Sub
Gruß
Stan
Anzeige