Durchlaufen von konstanten Variablen
12.12.2019 14:51:09
konstanten
ich versuche mit Hilfe von VBA diverse CSV-Dateien aus dem Netz mit Hilfe eines Hyperlinks zu öffnen und die Daten zu manipulieren, damit ich diese in eine Datenbank schreiben kann. Ich habe mir gedacht, dass ich zunächst den Code für die Manipulation einer Datei fertigstelle, um hinterher eine Schleife zu bauen, damit die weiteren Links die gleiche Prozedur durchlaufen. Die CSV-Dateien sehen alle gleich aus, nur mit unterschiedlichen Inhalten.
Die Manipulation klappt soweit, jedoch schaffe ich es nicht, dass die einzelnen Hyperlinks durchlaufen werden. Hierfür habe ich Konstanten gebildet. Versucht habe ich bereits Folgendes:
Public Const strHyperlink1 As string = "https://xxx1.de"
Public Const strHyperlink2 As string = "https://xxx2.de"
Public Const strHyperlink3 As string = "https://xxx3.de"
Sub Hyperlink()
Dim strLink as string, i as integer
For i = 1 to 3
strLink = strHyperlink + CStr(i)
Workbooks.Open strLink
Prozedur
Workbooks(1).Close
Next i
End Sub
VG und besten Dank!
Anzeige