Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Methode "close"

Methode "close"
22.11.2002 09:55:44
Otto
Hallo Experten,

ich habe ein Macro das grundsätzlich funktioniert.
Es endet mit ActiveWorkbook.Close
Es kommt aber eine Fehlermeldung an dieser Stelle
"Die Methode 'close' für das Object 'Workbook' ist fehlschlagen.
Woran könnte das liegen?

Vielen Dank

Otto

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Methode "close"
22.11.2002 09:58:59
Ralf Sögel
poste mal den Code
Re: Methode "close"
22.11.2002 09:59:03
Hajo_Zi
Hallo Otto

wäre es nicht besser gewesen den Code vor Close zu posten ???

Gruß Hajo

Re: Methode "close"
22.11.2002 10:04:14
Otto
Sub Makro1()
'
For Each b In Worksheets("Makro").Range("Namen").Cells
b.Select
Selection.Copy
ChDir "F:\REGION_C\countries.xls"
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Run Range("[TM132.XLA]tm132!RECALC")
ChDir "F:\\nov02"
ActiveWorkbook.SaveAs FileName:= _
"F:\\nov02\" & b, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Next b
End Sub

Anzeige
Re: Methode "close"
22.11.2002 10:12:26
Hajo_Zi
Hallo Otto

ich vermute Du möchtest nicht das aktive schliessen sonder die Kopie


Option Explicit

Sub Makro1()
For Each b In Worksheets("Makro").Range("Namen").Cells
b.Copy
ChDir "F:\REGION_C\countries.xls"
Range("B4").PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.Run Range("[TM132.XLA]tm132!RECALC")
ChDir "F:\\nov02"
ActiveWorkbook.SaveAs Filename:= _
"F:\\nov02\" & b, FileFormat:=xlNormal, _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows(b).Close
Next b
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Hajo

Anzeige
Re: Methode "close"
22.11.2002 10:26:44
Otto
Hallo Hajo,

Danke, aber es funktioniert immer noch nicht.

Re: Methode "close"
22.11.2002 10:29:49
Hajo_Zi
Hallo Otto

das war mir nun ein wenig zu Aufwendig das zu testen. Der Code den Du gepostet hast sieht eigentlich ok aus. Was ist aber mit dem anderem Makro
Application.Run Range("[TM132.XLA]tm132!RECALC")

Definiere mal b

Gruß Hajo

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige