|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 viele dateien in einem tabellenblatt zusammenfügen |
09.01.2015 15:18:35 |
Meise |
|
|
|
09.01.2015 15:21:46 |
Gast43638 |
|
|
|
09.01.2015 15:37:45 |
Gast953 |
|
|
|
09.01.2015 19:32:19 |
Gast32743 |
|
|
|
12.01.2015 13:59:21 |
Meise |
|
|
Von:
Meise |
Datum:
09.01.2015 15:18:35 |
Views:
1775 |
Rating:
|
Antwort:
|
Thema:
viele dateien in einem tabellenblatt zusammenfügen |
|
Hallo zusammen,
mit folgendem makro kann ich Daten aus vielen Dateien in einer zusammenfügen, aber es entsteht für jede Datei ein neues Tabellenblatt.
Sub test()
Dim strFile As String, strPath As String, wb As Workbook
strPath = "D:\Test\"
strFile = Dir(strPath & "*.xls")
Do Until strFile = ""
Set wb = Workbooks.Open(strPath & strFile)
With ThisWorkbook
wb.Sheets(1).Copy after:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = Left(strFile, InStrRev(strFile, ".") - 1)
End With
wb.Close False
strFile = Dir$
Loop
End Sub
Ich möchte aber, das die Daten immer unten in die erste freie Zelle in Spalte A eingefügt wird. habs wie folgt probiert:
Sub test()
Dim strFile As String, strPath As String, wb As Workbook
strPath = "C:\Users\Boris\Documents\frank\"
strFile = Dir(strPath & "*.xls")
Do Until strFile = ""
Set wb = Workbooks.Open(strPath & strFile)
With ThisWorkbook
wb.Sheets(1).Copy Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End With
wb.Close False
strFile = Dir$
Loop
End Sub
bekomme hier aber den Laufzeit-Fehler(1004):
Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Kann mir jemand helfen?
Vielen Dank für Eure Mühe |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
viele dateien in einem tabellenblatt zusammenfügen |
09.01.2015 15:18:35 |
Meise |
|
|
|
09.01.2015 15:21:46 |
Gast43638 |
|
|
|
09.01.2015 15:37:45 |
Gast953 |
|
|
|
09.01.2015 19:32:19 |
Gast32743 |
|
|
|
12.01.2015 13:59:21 |
Meise |
|
|