Re: Makro für eine Datei aus einer anderen aufrufen



Erst die Dateizuweisung
dann
wenn per Excel Dinges gut gelaufen ist

das Ergebnis [gut | schlecht]

erst zum Erinnern (Stromausfall)
vermerken (schreiben)

dann,dann weitere Dateien...
usw.


-------------------------------------









"StanNotDaMan" <steffen.daniel@xxxxxxxxx> wrote in message
news:1147157257.873208.21390@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Hallo miteinander,

kämpfe nun seit einiger zeit an folgendem Problem:
Ich möchte das meine vbs datei alle excel dateien (in einem
verzeichniss) nacheinander öffnet und bei jeder datei ein Makro
ausführt, welches in einer anderen excel datei (bereits geöffnet)
vorhanden ist. Habe aber das Problem, dass das Makro welches sich in
der anderen datei befindet nicht gefunden wird...
Code sieht folgendermassen aus:

Dim fsDir, fso, folderObject, filesObject

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsDir = fso.GetFolder(".")
Set folderObject = fso.GetFolder(fsDir)
Set filesObject = folderObject.Files

For Each file In filesObject
extension = fso.GetExtensionName(file)
If extension = "xls" or extension = "XLS" Then

Dim objExcel, objExcelVorlageDE, objExcelVorlageF, objExcelProgramm

Set objExcel = CreateObject("Excel.Application")

With objExcel
' Open workbook
.Workbooks.Open file, 0, false
.visible = true
End With

Set objExcelProgramm = CreateObject("Excel.Application")
progName =
"R:\PDM\Risk-Management\Checklisten\Programm\Checklisten_Program.xls"
'--------------In dieser Datei befindet siche eben das
Programm-----------------
With objExcelProgramm
.Workbooks.Open progName, 0 , True
.visible = true
End With
Set objExcelProgramm = Nothing

With objExcel
'---------------Hier kriege ich immer den Fehler das die Datei
Checklisten_Program.xls nicht gefunden wurde------------------
.run "Checklisten_Program.xls!A4_Sanem_Vorbereitung"
.workbooks(file).close 'false
End With
Set objExcel = Nothing

End If
Next

Habe leider keine Idee mehr und finde auch keine Information mehr im
Netz..

Bin dankbar über jeden Vorschlag.

Gruss Stan

.



Relevant Pages

  • =?iso-8859-1?q?Makro_f=FCr_eine_Datei_aus_einer_anderen_aufrufen?=
    ... Set fso = CreateObject ... Dim objExcel, objExcelVorlageDE, objExcelVorlageF, objExcelProgramm ... With objExcelProgramm ... .Workbooks.Open progName, 0, True ...
    (microsoft.public.de.german.scripting.wsh)
  • Re: A97: Verweise in mde
    ... Dim objExcel As Excel.Application ... Set objExcel = CreateObject ... Auf den Verweis kannst Du dann verzichten. ... Private WithEvents PhoneLineMgr As CLMGRLib.ClientLineMgr ...
    (microsoft.public.de.access)
  • =?ISO-8859-1?Q?Re=3A_Laufzeitfehler_91=2C_wenn_man_nur?= =?ISO-8859-1?Q?_richtig_les
    ... Dim objExcel as Excel.Application ... Set objExcel = GetObject ... Wollte eigentlich nur mittels Chart-Steuerelement auf der Form ein Diagramm ausgeben, ohne Excel oder Word zu starten. ...
    (microsoft.public.de.vb)
  • Re: Fokus auf Excel setzen Acc10
    ... Public Function NeuesWorksheetAusTemplate(ByVal strTemplate As ... Dim objExcel As Excel.Application ... Set objExcel = CreateObject ... End Function ...
    (microsoft.public.de.access)
  • Fokus auf Excel setzen Acc10
    ... Public Function NeuesWorksheetAusTemplate(ByVal strTemplate As ... Dim objExcel As Excel.Application ... Set objExcel = CreateObject ... End Function ...
    (microsoft.public.de.access)