Supportnet / Forum / Tabellenkalkulation
Excel Verlinkung funktioniert nicht im Browser
Frage
Hallo community,
ich habe mal wieder ein Problem und vieleicht kann mir jemand helfen.
Also ich habe eine excel Datei von der aus ich über verschiedene Makros auf andere excel Dateien und auch Word Dateien zugreife (diese also öffne und bestimmte sheets anzeigen lasse). Das ganze hat auch wunderbar funktioniert solange das ganze lokal auf meinem Laufwerk oder auf dem Serverlaufwerk lag und jeweils von dort gestartet wurde. Jetzt sollte das ganze auch zugänglich gemacht werden durch einen Link vom Intranet auf die Datei die auf dem Server liegt. (Rechte die Datei dort zu öffnen und zu bearbeiten habe ich. Das kann nicht das Problem sein). Jetzt ist es aber so, dass ich vom Intranet aus die Word Dateien öffnene kann und auch wieder schließen. Nur wenn ich versuche eine ander Excel Datei zu öffenen geht das nicht. Ich habe dafür auch schon verschiedene Version probiert die dann auch verschiedene Fehlermeldungen hervorgebracht haben. Ich werde die Code-Beispiele mit anhängen damit ihr einen besseren Überblick habt was geht und was nicht.
Also das ist der Code der das word File öffnet sowohl von dem Laufwerk als auch vom Intranet aus.
Sub manual_DE()
'
' manual_DE Macro
' WORD as ActicX-part
Dim path As String
Dim wdAnw As Object
On Error Resume Next
path = ActiveWorkbook.path & "\" 'path to XLS file
'starting word as instanz
Set wdAnw = CreateObject("Word.application")
If Err.Number <> 0 Then
'error, word could be load
MsgBox "Could not load word", _
vbOKOnly + vbCritical, "error"
Set wdAnw = Nothing
Exit Sub
End If
'wdAnw.documents.Add 'neue Datei erzeugt
'load the file
wdAnw.documents.Open path & nameManualDE
If Err.Number <> 0 Then
MsgBox "file " & path & nameManualDE & " not found", _
vbOKOnly + vbCritical, "error"
Set wdAnw = Nothing
Exit Sub
End If
wdAnw.Visible = True 'show word window
'stop programm by a MsgBox
MsgBox "Close word!"
wdAnw.Application.Quit 'close word
Set wdAnw = Nothing
End Sub
So und um eine excel Datei zu öffnen benutze ich folgenden code:
Sub contingency_old()
'
' contingency Macro
' Macro recorded 11/01/2007 by DHL
Dim dest As String, wholeString As String
Dim errx As Integer
Dim path As String
Dim test As String
path = ActiveWorkbook.path & Application.PathSeparator & "Internal\"
On Error GoTo error1
If Range("E3").Value = "" Then
dest = Inputbox(prompt:="please enter the three letter code of the gateway your are looking for: ", _
Title:="", Default:="")
wholeString = dest + " contingency"
Else
dest = Range("E3").Value
wholeString = dest + " contingency"
test = path & wholeString
End If
Workbooks.Open fileName:=path + fileNameContingency
Sheets(wholeString).Select
ActiveWindow.WindowState = xlMaximized
Range("A4").Select
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = True
.DisplayHeadings = False
'.DisplayWorkbookTabs = False
End With
Exit Sub
error1:
errx = Err.Number 'get error code
'MsgBox (errx)
If (errx = 1004) Then
MsgBox ("The contingency file is still in progress." & Chr(13) & "Please use the Network Contingency Handbook November 17th 2006 on N:\cgn-hub\Data\Netplan.grp for further information.")
'MsgBox ("The file " & fileNameContingency & " doesn't exist. Ask the adminstrator of this file for help.")
Windows(fileName).Activate
' Sheets(dest & " overview").Select
Range("A4").Select
ElseIf (errx = 55) Then
MsgBox ("The file " & fileNameContingency & " is still open.")
Windows(fileNameContingency).Activate
Sheets(wholeString).Select
ActiveWindow.WindowState = xlMaximized
Range("A4").Select
ElseIf (errx = 9) Then
MsgBox ("There is no contingency for " & dest & " available.")
Windows(fileName).Activate
Else
MsgBox ("An error was found. Ask the administrator of this file for help.")
Windows(fileName).Activate
Sheets("mainmenu").Select
End If
End Sub
So dieser funktioniert auch ohne Probleme solange ich das lokal oder vom Laufwerk auf dem Server aus starte. Aber sobald ich die Datei öffne durch einen Link zu dieser Datei kann ich diese andere Excel Datei nicht öffnen (alle anderen Makros funktionieren). Er melde dann immer: "Method 'open' of object 'workbooks' failed". Nun habe ich es auch schon probiert indem ich die excel datei öffne mit dem selben code Aufbau wie ich die Word datei öfnen. Da sagt er mir dann, dass das Objekt diese eigenschaften oder methoden nicht unterstützt.
Ich weiß das ganze ist ziemlich spezielle aber vieleicht hat trotzdem jemand eine Idee wie ich meine Dateien öffnen kann. Schon einmal herzlichsten Dank, dass ihr diesen ganzen Text gelesen habt und wenn ihr noch eine Lösung habt dann wäre das super. Wenn noch verständnisfragen auftreten sollten schreibt kurz zurück.
Dank und Gruß
Thomas