öffnen von ordnern
15.06.2002 18:47:13
Ralf
möchte gerne aus einen ordner 20 tabellen öffnen und aus einer bestimmten celle einen wert in eine ander tabelle copieren.
aber wenn einen tabelle nicht angelegt ist geht mein makro nicht mehr weiter.
hat jemand eine bessere lösung
danke im voraus
Sub Ordneroeffnen()
ChDir "C:\Access2000\Excel\"
Workbooks.Open Filename:="C:\Access2000\Excel\Test1.xls"
Range("F20").Select
Selection.Copy
ActiveWindow.ActivateNext
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.ActivateNext
ActiveWorkbook.Close
Workbooks.Open Filename:="C:\Access2000\Excel\Test2.xls"
Range("F20").Select
Selection.Copy
ActiveWindow.ActivateNext
Range("A2").Select
ActiveSheet.Paste
ActiveWindow.ActivateNext
ActiveWorkbook.Close
usw.
End Sub