Hey zusammen,
ich muss mich seit einigen Tagen mit VBA Excel Makros beschäftigen und komme bei meinem aktuellen Projekt nicht weiter.
Folgendes Problem:
In einem vorhanden funktionierendem Report Makro kann eine .csv Datei geöffnet, eingelesen und beim Drücken des Start Buttons ausgewertet werden. Mein Ziel ist es das man mehrere csv Dateien auswählen kann und nacheinander eingelesen werden. Beim Drücken des Start Buttons sollen dann alle csv Dateien dann wieder in einzelnen ausgewerteten Berichten ausgegeben werden.
Hier mal der Grundcode fürs Datei öffnen einer einzelnen csv datei:
Private Sub Datei_öffnen_Button_Click()
Dim fname_open As Variant
Dim filename_open As String
fname_open = Application.GetOpenFilename()
For i = ActiveSheet.QueryTables.Count To 1 Step -1
ActiveSheet.QueryTables(i).Delete
If fname_open = False Then
Exit Sub
ElseIf fname_open <> False Then
filename_open = Dir(fname_open)
TextBox1.Text = filename_open
MsgCode = MsgBox("'" & filename_open & "' wird nun eingelesen!", _
vbOKCancel + vbInformation, "Microsoft Office Excel")
If MsgCode = vbCancel Then
Exit Sub
End If
Application.DisplayAlerts = False
For Each WS In Worksheets
If WS.Name <> "Hauptmenü - Report" Then
WS.Delete
End If
Next WS
Application.DisplayAlerts = True
Workbooks.OpenText filename:=fname_open, Origin:=65001, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Local:=True, _
Semicolon:=True, FieldInfo:=Array(1, 1)
ActiveSheet.Move after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
Sheets("Hauptmenü - Report").Select
Start_Button.Enabled = True
End If
Call Anpassung_META_AUSLEITUNG
Sheets(1).Select
End Sub
Ich Danke schonmal
Grüße Locke
|