Office: OLE Objekte öffnen und speichern

Hallo zusammen,

ich hab mal wieder ein Problem. In einer Exceldatei sind mehrere Excel OLE's eingefügt. Diese sollen geöffnet und dann gesondert abgespeichert werden.
Das Öffnen und speichern funktioniert mit dem angehängte Code, wenn ich den Code per "F8" laufen lasse. Lasse ich das Makro normal laufen wird immer die Originaldatei und nicht das OLE gespeichert. Was mache ich falsch?
Code:

Danke im voraus

:)

 

Hallo,

welche Dateiendung hat das OLEObject?

 

Beim Test habe ich eine .xlsm Datei (mit dem Makro) erstellt und .xlsx Dateien als OLE eingefügt.
Ein schöner Test, da er die im Anschluss gespeicherte Datei nicht öffnen kann, Hier als *.xlsx gespeichert ist aber eine .xlsm Datei

 

Hallöchen,

jetzt mal nur pure Theorie ...
ActiveSheet.OLEObjects(1).Object.SaveAs "C:\Test.xlsx"

In der Praxis brauchst du die korrekte Endung, wie Max das schon gefragt hat, sonst zerschiesst du dir die Datei.

Den Namen des OleObjects kriegst du aber auch raus ... Datei muss aber gespeichert sein.
ActiveSheet.OLEObjects(1).Object.Name

Das ergibt dann etwas ähnliches wie "Tabelle von TextDatei.xlsx"

 

Ja das ist mir bewusst, deswegen habe ich im Test nur xlsx Dateien als OLE eingefügt

 

Hallo,

ein Beispiel:

Option Explicit

Private lobjWorkbook As Workbook

Public Sub Test()
With Tabelle1.OLEObjects(1)
Call .Verb(Verb:=xlOpen)
Set lobjWorkbook = .Object
End With
Call Application.OnTime(EarliestTime:=Now, Procedure:="SaveWorkbook", Schedule:=True)
End Sub

Private Sub SaveWorkbook()
Call lobjWorkbook.SaveAs(Filename:="H:Test.xlsx", FileFormat:=xlOpenXMLWorkbook)
Call lobjWorkbook.Close(SaveChanges:=False)
End Sub

 

Liebste Sabina,

deine Methode klappt nicht zu 100%, denn die Mappe wird ausgeblendet gespeichert.

 

Hallöchen Max,

... hab ich auch gerade gemerkt ... so ein Ärger ...

Zu Beginn geht es, schließt man die Mappe und öffnet sie neu, dann wird nur noch "Mappe1" ohne Endung ... als Name angezeigt. *entsetzt

Na ja ... dafür haben wir dich ja ... *mrcool

 

Danke für die Hilfe. Nach ein paar Anpassungen funktionierte es bei mir auch.
Den Code unten musste ich auskommentieren, Makroeinstellungen die ich nicht ändern kann ist wahrscheinlich die Ursache, aber ansonsten funktioniert es
Code:

DANKE!!

 

:-(
Zu früh gefreut. Im Debugmodus funktioniert es, wenn ich es laufen lasse bekomme ich einen "Run-time error 1004 - Application-defined or object-defined error.

 

Hallo,

in welcher Zeile?

 

Zeile kann ich nicht finden, da im Debugmodus alles funktioniert und beim Fehler kann ich auch nicht debuggen.
Hab den Code folgendermaßen angepasst:
Code:

 

Und ich habe in der Speicherzeile natürlich die Variable rausgenommen, im Code oben leider vergessen.

 

Hallo,

so wie du den Code zusammenkopiert hast kann er nicht funktionieren. OnTime ist ein "normaler" VBA-Befehl, der muss funktionieren. Ansonsten weiß ich auch nicht weiter.

 

Hallo Nepumuk,

vielleicht kannst noch mal ein Auge auf die FM werfen, ggf kannst Du daraus den Fehler erkennen.