Automatisieren

Hallo Excel-Experten,
ich hoffe, ihr koennt mir bei folgendem Problemchen helfen, da ich nicht mehr weiss, wonach ich noch suchen soll um meine Loesung angehen zu koennen.
Ich habe folgendes vor. Ich wuerde gerne eine Automatisierung vornehmen, indem ich aus einem Ordner (bestehend aus vielen Excel-Sheets) jedes einzelne oeffnen, Veraenderungen vornehmen und schliessen lasse, OHNE vorher eine Liste der Excel-Sheet-Namen anfertigen zu muessen.(Nach dem Motto: oeffne alle Sheets in diesem Ordner und veraendere sie) Ich schaetze, dass wird nur mit VBA gehen, doch finde leider nicht die richtigen Programmcode dazu.
Vielleicht koenntet ihr mir dabei behilflich sein? Im Voraus schon ein grosses Dankeschoen an alle Schreiber.
Gruesse,
Marcus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatisieren

16.01.2008 08:49:56

Hajo_Zi

AW: Automatisieren

16.01.2008 09:11:00

earl-e-bird

AW: Automatisieren

16.01.2008 09:05:19

Heiko

AW: Automatisieren

16.01.2008 09:23:21

earl-e-bird

Korrektur !!!

16.01.2008 09:26:59

Heiko

Hallo Marcus,
z.B. so:
Und ganz wichtig, wenn du jetzt noch irgendwelche neuen Makros schreibst, nutze nicht mehr die Funktion FileSearch. Filesearch ist zwar schön einfach, wird aber ab EXCEL 2007 NICHT mehr unterstützt. Würde bedeuten das du alle Dateien wo ein Filesearch drin ist irgendwann überarbeiten mußt. Also nur noch die gute alte DIR Funktion oder eben das Scripting.FileSystemObject nutzen wie in meinem Beispiel. Spart dir später sehr viel Arbeit !!!


Public Sub pcdChangeFiles()
Dim myFileSystemObject, myFiles
Dim strPath As String
' Pfad natürlich anpassen !!!
strPath = "H:\EXCEL\Muell\Neuer Ordner\Neuer Ordner\TestEbene3\TestEbene4"
Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each myFiles In myFileSystemObject.GetFolder(strPath).Files
Application.StatusBar = "Datei " & myFiles & " Wird bearbeitet !"
Workbooks.Open myFiles
ActiveWorkbook.ActiveSheet.Range("A1") = "Bla Bla Bla"
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.StatusBar = False
Next myFiles
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.StatusBar = False
MsgBox "Fertig !", vbInformation
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !

Public Sub pcdChangeFiles() Dim myFileSystemObject, myFiles Dim strPath As String ' Pfad natürlich anpassen !!! strPath = "H:\EXCEL\Muell\Neuer Ordner\Neuer Ordner\TestEbene3\TestEbene4" Set myFileSystemObject = CreateObject("Scripting.FileSystemObject") Application.ScreenUpdating = False Application.EnableEvents = False For Each myFiles In myFileSystemObject.GetFolder(strPath).Files Application.StatusBar = "Datei " & myFiles & " Wird bearbeitet !" Workbooks.Open myFiles ActiveWorkbook.ActiveSheet.Range("A1") = "Bla Bla Bla" ActiveWorkbook.Save ActiveWorkbook.Close Application.StatusBar = False Next myFiles Application.ScreenUpdating = True Application.EnableEvents = True Application.StatusBar = False MsgBox "Fertig !", vbInformation End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread