CSV per Dialog auswählen und importieren

Henner · 2014-05-18T18:00:25+00:00

Hallo zusammen, ich möchte gerne das 1. Tabellenblatt (Ganz links, Name kann variieren) einer CSV Datei kopieren und in das Tabellenblatt "CSV.Import" meiner Arbeitsmappe einfügen. Das Auswählen der CSV Datei möchte ich mit einem Dialogfenster und per VBA lösen: 1. Dialogfenster öffnen 2. CSV Datei auswählen lassen, dann klick auf "Importieren" 3. Ausgewählte CSV Datei öffnen, 1. Tabellenblatt kopieren und wieder schliessen 4. Inhalt in Tabellenblatt "CSV.Import" meiner Arbeitsmappe einfügen 5. Den kompletten Dateipfad der importierten CSV Datei in Tabelle1 Zelle A1 schreiben. Habe bei meinen Recherchen zwar einige Vorschläge gefunden, diese scheinen mir für meine Anforderungen aber schon fast zu aufwendig. Vielen Dank im Voraus und einen schönen Sonntag! Henner

Hallo,
schau mal ob das paßt, hier wird zwar in eine Textbox eingelesen, aber das kannst du ja ändern

Sub Aufruf()
Dim intZeile  As Integer
Dim maxzeile As Integer
Dim intDatei  As Integer
Dim sfile     As String
Dim strText   As String
With ActiveSheet
Range("B3:G3").ClearContents
' .CheckBox1 = False
'.CheckBox2 = False
End With
sfile = Application.GetOpenFilename("Text Dateien (*.csv), *.csv")
If sfile = "Falsch" Then Exit Sub
maxzeile = ActiveSheet.Range("L5").Value 'Vorgabe wieviel Zeilen gelsen werden sollen
intDatei = FreeFile()
Open sfile For Input As #intDatei
ActiveSheet.TextBox1.Text = ""
Do Until EOF(intDatei)
intZeile = intZeile + 1         ' die gelesenen Zeile zählen
Input #intDatei, strText
If intZeile = maxzeile Then Exit Do   ' nur die vorgegebenen  Zeilen lesen
If strText  "" Then
If ActiveSheet.TextBox1.Text = "" Then
ActiveSheet.TextBox1.Text = strText
Else
ActiveSheet.TextBox1.Text = ActiveSheet.TextBox1.Text & Chr(10) & strText
End If
End If
Loop
Close #intDatei
End Sub

Gruß Ewald

Hallo Henner,
dann teste mal dies,es wird in Tabelle2 importiert.

Public Sub Importieren()
Dim Dateiname  As String
Dateiname = Application.GetOpenFilename(filefilter:="Textdateien (*.csv), *.csv")
If Dateiname = "Falsch" Then
Exit Sub
Else
Call Holen(Dateiname, ";")
End If
End Sub
Sub Holen(fname As String, Optional FS As String = ";")
Dim sfile    As Integer   ' Filehandle bzw. Dateinummer
Dim lAnzahl  As Long      ' Zähler über alle Zeilen
Dim OneLine  As String    ' eine Zeile als String
Dim myArr    As Variant   ' eine Zeile in Felder getrennt
ThisWorkbook.Worksheets("Tabelle2").Select 'Anpassen
Cells.ClearContents
sfile = FreeFile
Open fname For Input As #sfile
While Not EOF(sfile)
lAnzahl = lAnzahl + 1
Line Input #sfile, OneLine
If OneLine  "" Then         ' ist die Zeile NICHT leer?
myArr = Split(OneLine, FS) ' dann am Trennzeichen separieren
With Range(Cells(lAnzahl, 1), Cells(lAnzahl, UBound(myArr)))
.NumberFormat = "@"
.Value = myArr
End With
End If
Wend
Close #sfile
Columns("A:AZ").ColumnWidth = 10.78 ' die Spaltenbreite wiederherstellen
Cells.EntireColumn.AutoFit          ' die optimale Spaltenbreite herstellen
End Sub

Gruß Ewald

CSV per Dialog auswählen und importieren

Forumthread: CSV per Dialog auswählen und importieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial