VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Sven	Datum: 11.11.2008 00:41:35	Views: 2070	Rating:	Antwort:
Thema: Totale Anfängerfrage
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen