Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1308to1312
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

Automatisches importieren von Excellisten

Automatisches importieren von Excellisten
25.04.2013 13:19:22
Excellisten
Hallo,
sorry, dass ich heute soviel Fragen stelle.
Aber ich habe da noch eine. Wenn ich den folgenden Code ausführen will,
dann hackt es hier an der Stelle:
"Datei = Dir(Pfad & *.xls*)"
Kann mir jemannd sagen wie ich das entsprechend abändern muss?
Sub Kopieren()
Dim Datei As String
Dim Pfad As String
Pfad = "S:\Pulverstatus\export\"
Datei = Dir(Pfad & *.xls*)
Do While Datei  ""
Workbooks.Open Pfad & Datei
ActiveWorkbook.Sheets("Tabelle1").UsedRange.Copy
With ThisWorkbook.Sheets("Tabelle1")
.Cells(.SpecialCells(xlCellTypeLastCell).Row + 1, 1).PasteSpecial xlPasteAll
End With
ActiveWorkbook.Close
Kill Pfad & Datei
Datei = Dir
Loop
Application.OnTime Now + TimeSerial(0, 5, 0), "Kopieren"
End Sub
Vorab vielen lieben Dank.
LG
Sascha

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches importieren von Excellisten
25.04.2013 13:35:25
Excellisten
Hallo,
was willst du da hacken? Das ist ein VBA-Programm und kein Baumstamm.
Also, woran hakt es, oder sollen wir raten?
Gruß
Nepumuk

AW: Automatisches importieren von Excellisten
25.04.2013 13:37:47
Excellisten
Mein Tip:
statt
Datei = Dir(Pfad & *.xls*)
vielleicht
Datei = Dir(Pfad & "*.xls*") ?
Grüße,
Klaus M.vdT.

AW: Automatisches importieren von Excellisten
25.04.2013 13:58:27
Excellisten
Hallo Klaus,
das hat geholfen, danke.
Nun, habe ich allerdings ein anderes Problem:
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Und wenn ich auf das Debuggen klicke, dann springt er in
diese Zeile:
.Cells(.SpecialCells(xlCellTypeLastCell).Row + 1, 1).PasteSpecial xlPasteAll
LG
Sascha

Anzeige
AW: Automatisches importieren von Excellisten
25.04.2013 14:40:18
Excellisten
Hallo,
weil SpecialCells eine Methode des Range-Objektes ist und nicht der Tabelle. Also:
.Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).PasteSpecial Paste:=xlPasteAll

Gruß
Nepumuk

AW: Automatisches importieren von Excellisten
25.04.2013 15:22:42
Excellisten
Hallo,
vielen Dank.
Liebe Grüße
Sascha

Datei = Dir(Pfad & "*.xls*") owT
25.04.2013 13:36:17
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige