CSV per Dialog auswählen und importieren

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Sub CSV_Einfügen() Dim Datei As String ChDrive Left(ThisWorkbook.FullName, 1) ChDir ThisWorkbook.Path Datei = Application.GetOpenFilename("CSV, *.csv") If Not LCase(Datei) Like "*.csv" Then Exit Sub With Workbooks.Open(Datei, ReadOnly:=True, local:=True) .Sheets(1).UsedRange.Copy _ ThisWorkbook.Sheets.Add(after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Cells(1, 1) ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = .Sheets(1).Name .Close False End With End Sub

Beliebteste Forumthreads (12 Monate)

CSV per Dialog auswählen und importieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

100 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV per Dialog auswählen und importieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

100 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread