AW: tabelle einfügen
20.08.2007 15:37:59
Rudi
Hallo,
das sollte klappen:
Sub VonSchichtNachProduktionKopieren()
Dim oFS As Object, oSchicht As Object, oProd As Object, oFile As Object
Dim wkbSchicht As Workbook, wkbProd As Workbook, strDatei
Set oFS = CreateObject("scripting.filesystemobject")
Set oSchicht = oFS.getfolder("g:\Schicht")
Set oProd = oFS.getfolder("g:\Produktion")
For Each oFile In oProd.Files
strDatei = Dir(oSchicht & "\" & Left(oFile.Name, 6) & "*")
If strDatei "" Then
Set wkbProd = Workbooks.Open(oFile)
Set wkbSchicht = Workbooks.Open(oSchicht & "\" & strDatei)
wkbSchicht.Sheets("Tabelle1").Copy after:=wkbProd.Sheets(2)
wkbProd.Close True
wkbSchicht.Close False
End If
Next oFile
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe