|
Hallo,
ist ja nicht so, dass man das Thema nicht mit Google lösen könnte, oder?
Hier mal ein einfach so runter geschriebener Code als Starthilfe. Es kann gut sein, dass da was nicht stimmt, ich habe ihn schließlich weder compiliert, noch getestet.
sub ersterAnfang
dim Pfad as string
dim Fname as string
dim wbQuelle as Workbook
dim wsZiel as worksheet
dim ZielZeile as long
Pfad = "c:\test\test\" 'abschließender Backslash!!!!!
fname = dir(pfad & "*.xls*")
do while fname <> ""
set wbQuelle = workbooks.open(pfad & fname)
set wsZiel = thisworkbook.worksheets.add()
wsziel.Range("A5").value = wbquelle.worksheets(1).range("C17").value
wsziel.Range("A6").value = wbquelle.worksheets(2).range("F7").value
wbquelle.close savechanges:=false
set wbquelle = nothing
fname = dir()
ZielZeile = ZielZeile + 1
loop
end sub
Ich gehe davon aus, dass du den Code ausprobierst und falls nötig so lange modifizierst, bis er läuft. Wenn er dann läuft, dann kannst du anfangen, ihn so zu modifizieren, dass er auch noch eine neue Datei anlegt.
Ergeben sich dabei irgendwelche Probleme?
Grüße, Ulrich
|