eine Schleife in ein bestehenden Code einbauen

Hallo zusammen,
ich habe mal ein Beispieldatei hochgeladen.
https://www.herber.de/bbs/user/108402.xls
In dem Code kann man mehrere "csv" Dateien auswählen und die Daten in den Dateien werden dann in die Excel Datei zurückgeschrieben.
Der Code funktioniert sehr gut.
Nun zu meinem Problem:
Bei uns wird zur Zeit das EDV System von Gruppenlaufwerke auf SharePoint umgestellt. Hier ist es nun nicht mehr möglich mehrere Dateien auf einmal zu markieren.
Ist es vielleicht möglich nach dem Ablauf der Routine eine Schleife einzufügen die fragt ob ich noch eine Datei einfügen möchte, wenn ja so die Prozedur wieder von vorn beginnen ohne das ich den Button drücken muss. Wenn nein sollt die Prozedur dann weiter laufen.
Seht ihr da eine Möglichkeit das so umzusetzen?
Ich sehe auf dem Schlauch und weiß nicht wie ich das hinbekommen kann.
Vielen Dank im Voraus für eure Mühen.
Mit freundlichem Gruß
René

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi René

Sub CommandButton1_Click()
Dim wksZiel As Excel.Worksheet
Dim qtbN As Excel.QueryTable
Dim vntPathAndFileName As Variant
Dim lngLetzteZeileSpalteA As Long, i As Long
Dim strPfad As String
Dim vMsg As Variant
strPfad = "C:\"
ChDrive strPfad
ChDir strPfad
Do While vMsg  vbNo
vntPathAndFileName = Application.GetOpenFilename( _
FileFilter:="csv Files (*.csv), *.csv", _
Title:="CSV Import", _
MultiSelect:=False)
If vntPathAndFileName = False Then Exit Sub
Set wksZiel = ThisWorkbook.Worksheets("Tabelle1")
For i = LBound(vntPathAndFileName) To UBound(vntPathAndFileName)
lngLetzteZeileSpalteA = wksZiel.Cells(wksZiel.Rows.Count, 1).End(xlUp).Row
Set qtbN = wksZiel.QueryTables.Add("TEXT;" & vntPathAndFileName(i), wksZiel.Cells( _
lngLetzteZeileSpalteA + 1, 1))
qtbN.FieldNames = True
qtbN.RowNumbers = False
qtbN.FillAdjacentFormulas = False
qtbN.PreserveFormatting = True
qtbN.RefreshOnFileOpen = False
qtbN.RefreshStyle = xlOverwriteCells
qtbN.SaveData = True
qtbN.AdjustColumnWidth = False
qtbN.RefreshPeriod = 0
qtbN.TextFilePromptOnRefresh = False
qtbN.TextFilePlatform = xlWindows
qtbN.TextFileStartRow = 2
qtbN.TextFileParseType = xlDelimited
qtbN.TextFileTextQualifier = xlTextQualifierNone
qtbN.TextFileTabDelimiter = False
qtbN.TextFileSemicolonDelimiter = True
qtbN.TextFileDecimalSeparator = ","
qtbN.TextFileCommaDelimiter = False
qtbN.TextFileSpaceDelimiter = False
qtbN.TextFileSemicolonDelimiter = True
qtbN.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  _
1, 1, 1, 1, 1, 1, 1, 1)
qtbN.Refresh BackgroundQuery:=False
qtbN.Delete
Next i
vMsg = MsgBox("weiter?", vbYesNo)
Loop
wksZiel.Columns.AutoFit
End Sub

cu
Chris

Beliebteste Forumthreads (12 Monate)

eine Schleife in ein bestehenden Code einbauen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

eine Schleife in ein bestehenden Code einbauen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread