dynamische Arrayerstellung als Public Array

Hallo Forum!
ich hoffe Ihr könnt mir ein weiteres Mal helfen.Ich habe ein VBA-Makro, dass Messwerte aus mehreren csv liest, diese in einem Array sammelt und dann auf einem Tabellenblatt ausgibt.
Nun möchte ich parallel, dass dieses Array, was bei jedem durchlaufen der Schleife entsteht als Public-Array gespeichert wird.
Weil die Anzahl der csv Dateien sehr unterschiedlich ist, wäre es schön, wenn jeweils ein Array mit neuem Namen entstehen würde, z.B. array1, array2,.. u.s.w.
Das ist mir leider nicht gelungen, weil (imho) Arrays in VBA sehr statisch sind (vielleicht auch nicht und ich weiß nur zu wenig;) )
Weitere Idee wäre ein Public Array zu machen, dass die Daten des Array, welches bei jedem Durchlauf entsteht nebeneinander schreibt. Allerdings befürchte ich Dimensionsprobleme: Zum einen sind die Arrays unterschiedlich lang, zum anderen weiß ich nicht wie groß Arrays werden dürfen. Zum Anderen möchte ich die entstehenden Public-Arrays in anderen Subs benutzen und die Übersicht geht im QC verloren.
Hier mein Sub:

Sub Import_testdata_v1()
Dim Arr
Dim Datei
Dim FSO
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim path_data As Variant
Dim i, k, l, w As Integer
Dim Str_String As String
Dim z_max
Dim Dat_Strlin As Variant
path_wb = ThisWorkbook.Path
path_data = Dir("C:\Users\test*.csv")
'MsgBox path_wb
Do While path_data  ""
i = i + 1
k = 1
For i = 1 To anzStrlin
Set FSO = CreateObject("Scripting.FilesystemObject")
path_i = path_wb & "\test_ & i & ".csv"
'        MsgBox path_i
Set Datei = FSO.Opentextfile(path_i) 'Anpassen
Str_String = Datei.readall
Datei.Close
intFile = FreeFile
Arr = Split(Str_String, vbCrLf) 'Nach Datensätzen splitten
ReDim Dat_Ausgabe(UBound(Arr), 5)
For l = 0 To UBound(Arr)
Tmp = Split(Arr(l), ",") 'Datensatz nach Werten splittenn
For w = 0 To UBound(Tmp)
Tmp(w) = Replace(Tmp(w), """", "")
Dat_Ausgabe(l, w) = Tmp(w) 'Werte in Dat_Ausgabe
Next
Next
'Ausgeben
'In Tabelle
Sheets("Input_test").Cells(3, k).Resize(UBound(Dat_Ausgabe) + 1, UBound(Dat_Ausgabe, 2)) _
= Dat_Ausgabe
k = k + 6
Next
path_data = Dir
Loop
End Sub

Entschuldigt den langen und hoffentlich nicht zu umständlichen post. Weiß jemand weiter oder hat Anregungen?
Beste Grüße
Kapitän

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Import_testdata_v1() Dim Arr Dim objTS As Object Dim objFS As Object, objFile As Object Dim Tmp As Variant Dim vnt_Ausgabe As Variant Dim path_data As Variant Dim i As Integer, l As Integer, w As Integer Dim Str_String As String Dim anzStrlin As Long Dim path_i Dim dat_Ausgabe() Dim path_wb As String Set objArr = CreateObject("Scripting.dictionary") Set objFS = CreateObject("Scripting.FilesystemObject") path_wb = ThisWorkbook.Path path_data = Dir("C:\Users\test_*.csv") Do While path_data "" For i = 1 To anzStrlin path_i = path_wb & "\test_" & i & ".csv" Set objFile = objFS.GetFile(path_i) Set objTS = objFile.OpenAsTextStream 'Anpassen Str_String = objTS.ReadAll Arr = Split(Str_String, vbCrLf) 'Nach Datensätzen splitten ReDim dat_Ausgabe(UBound(Arr), 5) For l = 0 To UBound(Arr) Tmp = Split(Arr(l), ",") 'Datensatz nach Werten splitten For w = 0 To UBound(Tmp) Tmp(w) = Replace(Tmp(w), """", "") dat_Ausgabe(l, w) = Tmp(w) 'Werte in Dat_Ausgabe Next w Next l 'Ausgabe in Dictionary objArr(i) = dat_Ausgabe Next path_data = Dir Loop End Sub

Sub testen() Dim i As Integer Dim j As Integer Dim Array_test As Variant For i = 0 To UBound(objArr(1)) For j = 0 To 4 Array_test(i, j) = objArr(1).Value(i, j) 'hier soll das erste Array im Objekt in das _ Array_test geschrieben werden Next j Next i End Sub

Option Explicit Public Array_SL As Variant Sub Import_Streamlines_v1() Dim Arr Dim objTS As Object Dim objFS As Object Dim objFile As Object Dim Tmp As Variant Dim Dat_Ausgabe As Variant Dim path_data As Variant Dim path_i As String Dim path_wb As String Dim Str_String As String Dim i, k, l, w As Integer Dim intFile As Variant Set objArr = CreateObject("Scripting.dictionary") Set objFS = CreateObject("Scripting.FilesystemObject") path_wb = ThisWorkbook.Path path_data = Dir("C:\Users\Tristan\Documents\HiWi\Laufradauslegung\Flutlinien\stromlinie*. _ csv") 'MsgBox path_wb Do While path_data "" i = i + 1 k = 1 For i = 1 To anzStrlin path_i = path_wb & "\Flutlinien\stromlinie_" & i & ".csv" ' MsgBox path_i Set objFile = objFS.Getfile(path_i) 'Anpassen Set objTS = objFile.OpenAsTextStream Str_String = objTS.readall Arr = Split(Str_String, vbCrLf) 'Nach Datensätzen splitten ReDim Dat_Ausgabe(UBound(Arr), 5) For l = 0 To UBound(Arr) Tmp = Split(Arr(l), ",") 'Datensatz nach Werten splittenn For w = 0 To UBound(Tmp) Tmp(w) = Replace(Tmp(w), """", "") Dat_Ausgabe(l, w) = Tmp(w) 'Werte in Dat_Ausgabe Next w Next l 'Ausgeben 'In Tabelle Sheets("Input_Flutlinien").Cells(3, k).Resize(UBound(Dat_Ausgabe) + 1, UBound( _ Dat_Ausgabe, 2)) = Dat_Ausgabe 'Ausgabe in Dictionary ReDim Preserve Array_SL(anzStrlin) Array_SL(i) = Dat_Ausgabe k = k + 6 Next path_data = Dir Loop End Sub

Beliebteste Forumthreads (12 Monate)

dynamische Arrayerstellung als Public Array

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread