EmbeddedObject ohne Umweg öffnen

[redspawn]

Hallo zusammen.

Wenn ich ein EmbeddedObject öffne gehe ich im Moment über den Weg, dass ich das File vorher auf Platte mit ExtractFile speichere und danach über den unten angefügten Code wieder öffne:

Code

	If ( rtitem.Type = RICHTEXT ) Then  
		
		Forall o In rtitem.EmbeddedObjects  
			Call o.ExtractFile( "c:\temp\" & o.Source )
			fileString = "c:\temp\" + o.source
		End Forall  
	End If  
	
	Set xlApp = CreateObject("Excel.Application")
	xlApp.Application.Workbooks.Open fileString
	Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
	
	xlApp.Visible = True

Gibt es jetzt hier die Möglichkeit das Ganze ohne den Umweg des Speicherns zu machen? Das was ich dort öffne sind Excel-Docs die ein bestimmtes Format haben und wo ich dann per Script noch was einfülle. Wenn der User jetzt noch was ändert und dann vergißt zu speichern wird das Ding ja überschrieben.

Schon mal Danke im Voraus für jegliche Hilfe.

Gruß

[Axel]

Gibt es jetzt hier die Möglichkeit das Ganze ohne den Umweg des Speicherns zu machen? Das was ich dort öffne sind Excel-Docs die ein bestimmtes Format haben und wo ich dann per Script noch was einfülle. Wenn der User jetzt noch was ändert und dann vergißt zu speichern wird das Ding ja überschrieben.

 

Irgendwie stehe ich ein bisschen (viel) auf der Leitung.

Wieso wird die Datei überschrieben wenn der User vergißt zu speichern?

Kannst du das bitte mal etwas genauer erklären.


Axel

[redspawn]

Mist, ist vielleicht beim Dritten lesen doch etwas blöde formuliert gewesen. Hier der nächste Versuch.

OK, der User öffnet das File per Klick auf einen Button. Vorher wird das File ja in c:\temp... gespeichert um es von dort aus zu öffnen.
Wenn der gute User jetzt dann meint er kann noch ein paar Änderungen vornehmen und das Ding dann einfach dort auf der Platte liegen lassen wo es per Klick geöffnet wurde, wird es ja beim nächsten Mal mit der leeren Vorlage überschrieben.

Mir schwebt halt der Prozess vor, wie wenn ich in Excel z. B. ein leeres Dokument öffne und ich dann bevor ich das Ding schließe, gefragt werde ob ich speichern möchte.

[Axel]

Hi,

etwas klarer ist es geworden, aber noch nicht so ganz.

Was soll den mit der ausgefüllten Excel-Datei passieren?


Axel

[redspawn]

Die soll vom User dann auf seinem persönlichen Laufwerk abgelegt werden. Aber das könnte der auch manuell machen.

Mir geht es eigentlich nur um das Speichern des objects in dem temp-Verzeichnis.

[Axel]

Hi,

du kannst die Excel-Datei unter einem anderen Namen mit

xlApp.ActiveWorkbook.SaveAs("Name der Datei")

oder mit dem vorhandenen Namen mit

xlApp.ActiveWorkbook.Save

speichern.


Axel

[redspawn]

Aha, ja ok, dann versuche ich das mal einzubauen!!!

Vielen Dank Axel!

Ciao