Auto_Open- Problem
13.12.2006 15:35:50
Denis
ich habe ein kleines Problem,
hoffentlich könnt Ihr mir dabei weiterhelfen.
Ich habe auf unserem Intranet Verknüpfungen mit PDF- Dateien erstellt. In diesen PDF- Dateien können Excel Dateien per Hyperlink aufgerufen werden und ein VBA- Code startet (mit AUto_Open).
Unten findet Ihr einen Auszug aus dem VBA- Code.
Ich habe nun folgende Problematik :
Durch das, das ich das Excel- File nicht direkt öffne, sondern im Intranet (d.h. über den Explorer)- startet zwar der Code - doch an einer gewissen Stelle ***(siehe unten) geht es nicht weiter.
Der Grund ist, dass Excel nur halb im Hintergrund geöffnet wird (aus irgendwelchen Gründen), denn wenn ich zuvor irgendeine leere Excel Datei öffne funktioniert das Ganze.
Kann mir jemand sagen, wie ich dieses Problem umgehen kann.
Ich hoffe das war jetzt einigermassen Verständlich.
Falls nicht - bitte Fragen.
Ich danke Euch schon einmal für Eure Antworten
Gruss
Denis
Gehe ich jetzt aber folgendermassen vor, dass ich bevor ich in den PDFs eine Excel Datei geöffnet habe.
---------------------------------------------------------------------
Private Sub Auto_Open()
...
Pfad = ThisWorkbook.Path
'Einlesen Dateiname
name = ThisWorkbook.name
'Einlesen Username
user = Application.UserName
' Die Ersten beiden Zeichen des Usernames einlesen
user = Mid(user, 1, 2)
...
...
Kürzeltext = InputBox("Datei wird kopiert. Bitte Ihr Kürzel überpüfen und bestätigen :", "Bestätigen Kopieren der Datei", user, vbYesNo) 'Abfrage ob Speichern und Einlesen des Kürzels
*************************************bis hier hin funktioniert alles
beim nächsten Schritt stürzt Excel ab - wie gesagt - wenn ich die Excel Datei von der Festplatte öffne oder nicht über das Intranet funktioniert es ?
*************************************************
filesavename = Application.GetSaveAsFilename(Pfad & Format(Now, "yymmdd ") & Kürzeltext & " " & name, fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls") 'Dateinamenvorgabe zum speichern
ActiveWorkbook.SaveAs filesavename
------------------------------------------------------------------------