---

Hallo Zussammen,

Weiß jemand wie man mit einem Makro ein html - File aufrufen? Die Seite sollte aufgerufen werden wenn die Hilfe Button gedrückt wird.
Ich hab schön versuch wie in http://ww3.cad.de/foren/ubb/Forum137/HTML/000746.shtml#000000
aber hat leider nicht geklapt.
Kann jemand mir helfen?
Ich danke euch im Voraus.

Gruss

Robby

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
versuchs mal mit folgendem Code...

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Function StartDoc(ByVal FileName As String, Optional CommandLine As String = "") As Long

    Dim Scr_hDC As Long

    Scr_hDC = GetDesktopWindow()
    StartDoc = ShellExecute(Scr_hDC, "Open", FileName, CommandLine, vbNullString, 1)
    Call Unload(Me)

End Function

Private Sub cmdHelp1_Click()

    Call StartDoc("D:\Hilfe.htm")

End Sub

------------------
MFG
Rick Schulz

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
unter Windows gehts auch so:
------Schnipp-------------
Dim Shell As Object
Set Shell = CreateObject("WScript.Shell")
Shell.Run ("C:\meinehilfe.htm")
oder
Shell.Run ("http://catia.cad.de")
------Schnapp-------------

SG

Jens Hansen 

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rick hallo Jens,

Danke für eure Hilfe,hat aber leider noch nicht geklappt.

Für Rick: Bei dein Programm gibt es fehler Meldung: Kompilierungsfehler in VBskript und Syntaxfehler.
Für Jens: Kompilierungsfehler in VBskript und Anwendungsende wird erwartet.

Ich hab mit unter folgende Programm ein exel Datei aufzurufen, und hat geklapt. Aber was ich will ist ein HTML-Datei bzw. Internet Seite aufzurufen, hab versuch die "Exel.Application" mit "IEXPLORE.Application" zu ersetzen aber hat trotzdem nicht geklappt   

Sub CATMain()
Set xlApp = CreateObject("Excel.Application")
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear
Set MyXL = GetObject("L:\Diplomarbeit\Neu2_DA_Time SheetDruck.xls")
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
End Sub

Könnt ihr vieleicht mir helfen?
Ich danke euch im Voraus

LG

Robby

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo ,

mir funkcionierte Jens Code im CATsript gut...
Bist Du auch im CATscript gepruefen?

Grüße Jan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

das hier funktioniert bei uns sehr gut sowhol unter UNIX und Windows.

Dim OSVAR
DIM Returncode
OSVar=(CATIA.SystemConfiguration.OperatingSystem)
If OSVAR="intel_a" then
CreateObject("WScript.Shell").Run "iexplore.exe http://ww3.cad.de/foren/ubb/Forum137/HTML/000746.shtml#000000"
Else
Returncode=CATIA.SystemService.ExecuteBackgroundProcessus("browser http://ww3.cad.de/foren/ubb/Forum137/HTML/000746.shtml#000000")
End If

Anmerkung:
browser ist ein Skript auf UNIX das den aktuellen Browser aufruft!
mfg

elHarry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo elharry,

Es hat funktioniert!!! Vielen2 dank für deine Hilfe

mfg

Robby

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP