XLS-Datei aus Visual Basic-Programm öffnen

alpi · 08.03.2002, 11:39

Ich möchte in VB6.0 mit einem Button eine bestimmte XLS-Datei öffnen.
Dazu soll - wenn noch nicht geschehen - Excel gestartet und dann die besagte Datei in Excel geöffnet werden.
Kann mir bitte jemand den Code dafür nennen (bin noch ein VB-Neuling!)

Excalibur33 · 08.03.2002, 19:02

finde keinen Sinn, von VB6 per Button Xcel + Datei zu starten.
Möglichkeit 1: beim starten von Excel eine oder MEhr Dateien zu öffnen
ist bei Extras> Optionen> Allgemein> zusätzlicher Startordner

ateiname; vorher anlegen!
Möglichkeit 2 : in eine Exceldatei Macro einfügen als " auto_open", was aber auch nicht viel Sinn macht, könnte man ebenso mit Tastenkürzel auf Verknüpfung erreichen.
Vom Excel kommt man ohnehin schnell zu VB6, da integriert.
mfg

Sesa_Mina · 08.03.2002, 23:27

ID=shell(filename+argumente)

also z.B:

Code:

if shell("c:\programme\office\excel.exe 'c:\eigene_dateien\excelfile.xls'")=0 then msgbox("Geht nicht!",vbokonly)

das sollt funzen.

08.03.2002, 11:39	#1
alpi Veteran Registriert seit: 24.11.2000 Beiträge: 220	XLS-Datei aus Visual Basic-Programm öffnen Ich möchte in VB6.0 mit einem Button eine bestimmte XLS-Datei öffnen. Dazu soll - wenn noch nicht geschehen - Excel gestartet und dann die besagte Datei in Excel geöffnet werden. Kann mir bitte jemand den Code dafür nennen (bin noch ein VB-Neuling!)

08.03.2002, 19:02	#2
Excalibur33 Elite Registriert seit: 18.11.2001 Beiträge: 1.130	wozu von VB6 öffnen? finde keinen Sinn, von VB6 per Button Xcel + Datei zu starten. Möglichkeit 1: beim starten von Excel eine oder MEhr Dateien zu öffnen ist bei Extras> Optionen> Allgemein> zusätzlicher Startordnerateiname; vorher anlegen! Möglichkeit 2 : in eine Exceldatei Macro einfügen als " auto_open", was aber auch nicht viel Sinn macht, könnte man ebenso mit Tastenkürzel auf Verknüpfung erreichen. Vom Excel kommt man ohnehin schnell zu VB6, da integriert. mfg

08.03.2002, 23:27	#3
Sesa_Mina Schwarzfußfrettchen Registriert seit: 28.01.2001 Beiträge: 2.071	ID=shell(filename+argumente) also z.B: Code: if shell("c:\programme\office\excel.exe 'c:\eigene_dateien\excelfile.xls'")=0 then msgbox("Geht nicht!",vbokonly) das sollt funzen. ____________________________________ Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\" http://www.dream.at/gizmo/bunny.gif Image is © 2001 Merle Sterndalsäg.. ähh... jäger

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)