Ich habe hier einen Scipt am laufen um meinen Monatsabschluss zu organisieren. Insgesamt muss ich von mehrere Firmen die Details öffnen und die verschiedenen Berechnungen laufen lassen. Mein Script zum öffnen funktioniert einwandfrei, jedoch möchte ich jetzt diesen noch erweitern.
Anbei mal der Script der mir die datein öffnet - ausgehen von einer Datei names "Hauptmenü" die im selben verzeichnis liegt wie die unterorder der zu öffneden Dateien.
Sub Öffnen_Details()
Set Datname = ActiveWorkbook
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Dim iCounter As Integer, Flashdateien() As Workbook, Expensesdateien() As Workbook
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\EXPENSES"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
ReDim Expensesdateien(1 To .FoundFiles.Count)
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\FLASH"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
ReDim Flashdateien(1 To .FoundFiles.Count)
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\RC"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\Konso"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\DETAILS"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
With Application.FileSearch
.LookIn = "H:\FLASH - DETAILS-2008\Budget"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Kontrolle Salden.xls", UpdateLinks:=0
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
Calculate
Set datename1 = ActiveWorkbook
Datname.Activate
End Sub
Jetzt sollte nach diesem oder in diesem Scipt folgendes passieren. Die Datei "Kontrolle Salden.xls" soll geschlossen werden (Datname1.save, Datname1.close)
danach soll bei allen geöffneten Flashdateien & bei allen geöffneten Expensesdateien folgender Script ablaufen
Sub Expenses_FLASH_Werte_kopieren()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Sheets("LOCAL").Activate
Cells.Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Sheets("Sources").Visible Then
Sheets("SOURCES").Visible = False
End If
Sheets("LOCAL").Activate
Call Store_value
Application.DisplayAlerts = True
End Sub
Sub Store_value()
Application.DisplayAlerts = False
Dim StrValue As String
StrValue = "_VALUE"
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\values\" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4) & StrValue
Exit Sub
Application.DisplayAlerts = True
End Sub
Dieser Script alleine funktioniert nur weiss ich nicht wie ich diese Scripts alle miteinander verbinden kann.
Ich hoffe von euch weiss jemand rat
danke schon mal im voraus
LG
rupert