Excel-Datei über VB-script öffnen



Excel-Version: xl97
nach unten

Betrifft: Excel-Datei über VB-script öffnen
von: Bjoern
Geschrieben am: 27.04.2002 - 19:35:47

Hei all,

kann mir jemand bei einem Problem mit eines VB-Scripts zum Öffnen einer Excel-Datei helfen?

Konkret lautet das Script:

Function Load_Excel()
Dim xl
Set xl = CreateObject("Excel.Application")
xl.Visible = True
xl.Workbooks.Open "C:\pfad\dateiname.xlt"
End Function

Das Script ist in den Header einer HTML-Datei eingebunden und wird über einen OnClick-Link im Body der HTML-Datei aufgerufen.

Problem dabei ist, daß seltsamerweise die für die Excel-Datei benötigten Add-Ins bei dieser Art des Öffnens nicht mehr funktionieren! - ? Weiß jemand, weshalb das so ist, und was man ggf. dagegen tun kann?

Vielen Dank für Euere Hilfe!

Viele Grüße

Bjoern

nach oben   nach unten

Re: Excel-Datei über VB-script öffnen
von: Rolf, Lgh.
Geschrieben am: 28.04.2002 - 10:40:09

Hallo Bjoern, das ist offensichtlich ein Fehler unter Excel 97 und da unsere ADV-Abteilung auch keine andere Lösung hatte, habe ich in den Exceltabellen z. B. für die Analysefunktionen folgendes Makro eingefügt: Gruß Rolf

nach oben   nach unten

SUPER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
von: Bjoern
Geschrieben am: 28.04.2002 - 11:43:54

*dance with joy* *kuschel Rolf* *freu* Huhu Rolf, Vielen, vielen lieben Dank! Ich sitze seit bestimmt 12 Stunden über dem Problem und hab 's nicht hinbekommen! Dein Vorschlag hat auf Anhieb funktioniert! Dabei habe ich bestimmt hundert ähnliche Varianten schon durchgespielt, z.B. sub workbook_open() application.registerxll "c:\pfad\analys32.xll" End sub Selbst ein Makro, der das AddIn ÖFFNET, hat nix gebracht, geschweige denn ein normales Sub Workbook_AddinInstall() If AddIns("Analyse-Funktionen").Installed = False Then AddIns("Analyse-Funktionen").Installed = True Calculate End If Von den Versuchen, das Add-In über das VB-Script selbst zu initialisieren, will ich gar nicht reden! Ufff. Jetzt muß ich nur hoffen, daß das webbasierte Intranet auch VB-Scripting on demand zuläßt... besides..wie hast Du das Problem gelöst, daß das Excel-File beim ersten Aufruf über VB Script nur im Hintergrund geöffnet wird? Ich habe dafür folgende (zweifelsohne wenig elegante - aber funktionierende) Lösung gefunden: "<"SCRIPT language=VBScript">" Sub Load_Excel() Dim xl Set xl = CreateObject("Excel.Application") xl.Visible = True Sheet End sub Sub Sheet() Dim exl Set exl = CreateObject("Excel.Application") exl.ScreenUpdating = False exl.Visible = True exl.workbooks.add "C:\Pfad\Programm.xlt" Application.ScreenUpdating = True End Sub "<"/script">" Beim zweiten Aufruf von Excel wird das Programm gleich in den Vordergrund geladen....... Nochmals vielen Dank! Lieben Gruß Bjoern

nach oben   nach unten

Re: SUPER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
von: Rolf, Lgh.
Geschrieben am: 28.04.2002 - 13:06:38

Da bei uns teilweise der Aufruf der Exceltabellen über umfangreiche VB6-Programme erfolgt und eine Anpassung der Excel-Tabellen problemloser (schneller) möglich ist habe ich es wie folgt gelöst: Vielleicht kannst Du davon auch noch was gebrauchen. Rolf

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Excel-Datei über VB-script öffnen"