Thema Datum  Von Nutzer Rating
Antwort
Rot Importieren einer Datei
 17.07.2020 13:29:54 Ron Wassili
NotSolved
17.07.2020 13:56:38 Gast13548
NotSolved
17.07.2020 14:21:20 Gast1504
NotSolved
17.07.2020 20:30:18 Mase
Solved

Ansicht des Beitrags:
Von:
Ron Wassili		 Datum:
17.07.2020 13:29:54		 Views:
1010		 Rating:
     
Antwort:
  Ja
Thema:
Importieren einer Datei

Sehr geehrtes VBA-Forum Team,

Ich muss eine CSV Datei mithilfe eines Buttons in ein Excel Sheet importieren. Das auswählen der Datei über den File-Dialog funktioniert, aber beim einfügen der Datei hab ich Schwierigkeiten. Was könnte ich bei dem Code noch verändern?

Private Sub CommandButtonimport_Click()
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
            .Filters.Clear
            .Title = "Select a CSV File"
            .Filters.Add "CSV", "*.csv", 1
            .AllowMultiSelect = False
            
        Dim sFile As String
        If .Show = True Then
            sFile = .SelectedItems(1)
        End If
        
        End With
        ' Import CSV from FileDialog
        If sFile <> "" Then
            Open sFile For Input As #1
                row_number = 0
                Do Until EOF(1)
                    Line Input #1, LineFromFile
                    LineItems = Split(LineFromFile, ",")
                    Application.Range("Range").Cells(row_number, 1).Value = LineItems(0)
                    Application.Range("Range").Cells(row_number, 2).Value = LineItems(1)
                    Application.Range("Range").Cells(row_number, 3).Value = LineItems(2)
                    Application.Range("Range").Cells(row_number, 4).Value = LineItems(3)
                    row_number = row_number + 1
                Loop
            Close #1
        End If

End Sub

 

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

Thema Datum  Von Nutzer Rating
Antwort
Rot Importieren einer Datei
 17.07.2020 13:29:54 Ron Wassili
NotSolved
17.07.2020 13:56:38 Gast13548
NotSolved
17.07.2020 14:21:20 Gast1504
NotSolved
17.07.2020 20:30:18 Mase
Solved