AW: Kopieren von Zellinhalten in unbekanntes Workbook
22.03.2005 13:34:05
Markus
Hallo Nicole,
ich hab das jetzt mal ausgearbeitet. Wichtig: Deine Dateien die die Maschine auswirft sollten Alphabetisch, oder ähnlich benannt sein. Damit Sie in der richtigen Reihenfolge geöffnet werden. In deiner vorbereiteten Exceldatei legst du denn nachfolgenden Code in ein neues Modul. Ach ja Diese Datei würde ich nicht in den gleichen Ordner anlegen wie die von der Maschine ausgeworfenen. Wenn das nicht anders geht gib mir noch einmal bescheid dann ändere ich das:
Sub OpenWkb()
Dim sFile As String, sPath As String
Dim i As Integer
On Error GoTo Err_OpenWkb
i = 7
Application.ScreenUpdating = False
sPath = "C:\PfadDeinesOrdnersInDemDieNeuenDateienLiegen\" ' hier gibst Du den Pfad deines Ordners ein
Debug.Print sPath
sFile = Dir(sPath & "*.xls")
Debug.Print sFile
Err1_OpenWkb:
Do While sFile <> ""
Application.EnableEvents = False
Workbooks.Open sPath & sFile, UpdateLinks:=0, ReadOnly:=False
Sheets("NameDeinesTabellenBlattesMitWertKopieren").Select
Cells(6, E).Copy
Workbooks("MappeMitMakro.xls").Activate
Sheets("NameDeinesTabellenBlattesMitWertEinfügen").Select
Cells(i, 7).Insert
i = i + 1
Windows(sFile).Activate
ActiveWorkbook.Close SaveChanges:=False
Err2_OpenWkb:
sFile = Dir()
Debug.Print sFile
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub
Err_OpenWkb:
MsgBox Err.Description & " bei " & sFile
Resume Err2_OpenWkb
End Sub
Gruß
Markus