|
Hallo zusammen,
ich habe folgendes Problem:
Im Rahmen meiner Bachelor-Arbeit muss ich in einer Excel-Mappe Messdaten eines Tachymeters auswerten.
Zum Import der Messdaten habe ich folgendes Makro gebastelt.
Option Explicit
Public anzahl_pkt As Long
Public Sub import_messwerte()
Application.ScreenUpdating = False
Dim Arr
Dim Datei
Dim FSO
Dim l As Long
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim i As Integer
Dim Str_String As String
Dim Dateipfad As String
Anzahl_Punkte.Show ' hier wird lediglich durch Nutzereingabe der Wert von anzahl_pkt festgelegt
Dateipfad = Application.GetOpenFilename
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile(Dateipfad)
Str_String = Datei.readall
Datei.Close
Arr = Split(Str_String, vbCrLf)
ReDim vnt_Ausgabe(UBound(Arr), anzahl_pkt)
For l = 0 To UBound(Arr)
Tmp = Split(Arr(l), ",")
For i = 0 To UBound(Tmp)
vnt_Ausgabe(l, i) = Tmp(i)
Next
Next
Sheets("Import").Range(Cells(1, 1), Cells(1, 4)).Resize(UBound(vnt_Ausgabe) + 1, UBound(vnt_Ausgabe, 2)) = vnt_Ausgabe
Die Messwerte liegen in folgender Form in .txt-Dateien vor :
1,33659.775,68708.745,297.625,
2,33659.831,68708.831,297.624,
.
.
.
2400,33644.475,68733.730,296.160,
Bei der kleineren der beiden Dateien (2400 Zeilen) funktioniert das ganze ohne Probleme.
Will ich jedoch die größere Messreihe importieren (12500 Zeilen) erhalte ich immer die Fehlermeldung "Überlauf".
Vielen Dank schonmal im Voraus
Tobi
|