Ich habe eine csv Datei vorliegen, die ich zuvor durch eine Abfrage von meinem MySQL Server geholt habe. Die Einträge sind mit Semikolon getrennt und möchte die csv Datei in eine Excel Datei einbinden und das möglichst automatisch. Hierzu habe ich folgenden Code gefunden im Internet:
Sub csv()
Dim i As Long
Dim z As String
Dim a As Variant
Dim n As Long
Open "c:\test.csv" For Input As #1
n = 0
While Not EOF(1)
n = n + 1
Line Input #1, z
a = Split(z, ";")
For i = 0 To UBound(a)
Cells(n, i + 1).NumberFormat = "@"
Cells(n, i + 1) = a(i)
Next
Wend
Close #1
End Sub
jetzt frag ich mich was mach ich nu mit diesem Code, bzw wie binde ich diesen Code in Excel ein? ^^ Ich weiss es wirklich nicht!*schäm* |