Modul in anderen Dateien ausführen

Sub Rohdateienformatieren() Const sSourcePath As String = "C:Pfad...\" Dim fld, file Dim fso As Object Dim objFld As Object Dim objSubFld As Object Dim objFiles As Object Set fso = CreateObject("Scripting.FileSystemObject") Set objFld = fso.getfolder(sSourcePath) Set objSubFld = objFld.SubFolders For Each fld In objSubFld Set objFiles = fld.Files For Each file In objFiles Application.Workbooks.Open (file.Path) Call Formatierungrohdatei ActiveWorkbook.Close savechanges:=True Next Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Felix,
mögliche Probleme:
1. du hast in deiner Formatierung mit ThisWorkbook gearbeitet.
2. Der Fokus/Das aktive Fenster wird bei neueren Office-/Windows-Versionen unter Excel-VBA nicht immer - wie in früheren Versionen- auf die geöffnete Arbeitsmappe gesetzt. Ich hatte da auch schon extreme Probleme ein Altmakro wieder auf die richtige Spur zu bringen.
Ich hab dann teilweise mit Fenster-Verkleinerungen und Fenster-Aktivierungen im Makro gearbeitet, um mit ActiveWorkbook arbeiten zu können - es war ein Graus.
Der Weg für eine saubere wäre hier die geöffnete Arbeitsmappe als Parameter (Workbook-Variable) an das Formatierungsmakro zu übergeben.
In dem Formatierungsmakro müssen dann auch die Referenzen zu den Blttern der Mappe jeweils korrekt/vollständig gesetzt werden.
Das kann mühsehlig sein - wird aber eine Lehr-/Übungsstunde im sauberen Referenzieren von Excel-Objekten.
Gruß
Franz

Sub Rohdateienformatieren()
Const sSourcePath As String = "C:Pfad...\"
Dim fld, file
Dim fso As Object
Dim objFld As Object
Dim objSubFld As Object
Dim objFiles As Object
Dim objWkb As Workbook
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFld = fso.getfolder(sSourcePath)
Set objSubFld = objFld.SubFolders
For Each fld In objSubFld
Set objFiles = fld.Files
For Each file In objFiles
Set objWkb = Application.Workbooks.Open(file.Path)
Call Formatierungrohdatei(objDatei:=objWkb)
objWkb.Close savechanges:=True
Next
Next
Set objWkb = Nothing
End Sub
'Beispiel für Formatierungsdatei
Sub Formatierungrohdatei(objDatei As Workbook)
Dim wks As Worksheet
Set wks = objDatei.Worksheets("Sheet_XYZ")
With wks
.Cells.VerticalAlignment = xlTop
With .Range(.Columns(1), .Columns(2))
.ColumnWidth = 10
.NumberFormat = "#,##0.00"
End With
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Modul in anderen Dateien ausführen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Modul in anderen Dateien ausführen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread