wiederholtes TXT importieren
28.10.2015 18:06:15
Donfugo
ich benutze folgende Methode um ein Txt-file per Auswahlmenue in Excel zu importieren:
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
'Dateiname = Application.FileDialog(msoFileDialogFilePicker).SelectedItems
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
mit dem folgenden code importiere ich mir die Oben angewählte Datei alle 30s wiederholt in Excel. Funktioniert wie eine Art refresh:
Sub refreshimport()
Workbooks.OpenText Filename:=Dateiname, Local:=True
ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("Data").Cells(1, 1).End(xlUp).Offset(1, 0) _
ActiveWorkbook.Close True
End Sub
Mein Problem: mit jedem refresh wird Excel gefühlt langsamer (selbst wenn immer die Gleich datei refreshed wird) bis sich Excel irgendwann ganz aufhängt. Irgendetwas wird bei dieser Routine anscheinend nicht beendet oder Stapelt sich. Hat jemand einen Vorschlag bzw sieht den Fehler?
Vielen Dank schonmal