Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

import von CSV

import von CSV
29.10.2015 16:25:59
CSV
Hallo Zusammen,
von meiner Hauptseite lade mir mit VBA eineoder mehrere Textdateien in ein Worksheet mit:
  • Sub importdata()
    Dim i As Integer
    Dim SelItem
    With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .Filters.Add "Text Dateien", "*.csv; *.txt", 1
    .AllowMultiSelect = True
    If .Show  -1 Then Exit Sub
    For Each SelItem In .SelectedItems
    Workbooks.OpenText Filename:=SelItem, Local:=True
    Dateiname = SelItem
    ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("Data").Cells(Rows.Count, 1).End(xlUp). _
    Offset(1, 0)
    ActiveWorkbook.Close True
    Next SelItem
    End With
    End Sub
    

  • Damit ich wieder auf mein aktuelles worksheet komme benutzte ich:

  • Worksheets("Hauptseite").Activate

  • Ich würde mir gerne das "geflackere" welches beim Laden entsteht vermeiden. Kann das importieren absolut im Hintergrund ausgeführt werden während ich auf meiner "Hauptseite" bleibe?
    VG
    Sven

    2
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: import von CSV
    29.10.2015 16:40:35
    CSV
    Hi
    du kannst die Bildschrimaktualisierung während des Makrolaufs ausschalten.
    verwende hierzu den Befehl: Application.ScreenUpdating = False
    damit wird die Bildschrimanzeige während des Makrolaufs eingefroren.
    mit Application.ScreenUpdating = True schaltet man sie wieder ein (das kann man aber auch weglassen, weil Excel das automatisch bei Makroende macht).
    Gruß Daniel

    AW: import von CSV
    29.10.2015 17:01:14
    CSV
    Danke genau so gehts!!
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige