HTML die Zweite (mit *.XLT)

Private Sub Oeffnen() Dim oExplorer As Object Dim var As Variant var = ThisWorkbook.Path & "\VAHilfe.htm" If Dir(ThisWorkbook.Path & "\" & "VAHilfe.htm") = "" Then MsgBox "Datei nicht gefunden!" Else Set oExplorer = CreateObject("InternetExplorer.Application") With oExplorer .Width = 600 .Height = 350 .Top = 100 .Left = 100 .Navigate var .StatusBar = False .MenuBar = False .Toolbar = False .Visible = True .Resizable = False .Offline = True End With Set oExplorer = Nothing End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Dieter
Und ich hab, glaub ich, doch Recht :-)
Habe gerad mal Deinen Code getestet.
Zuerst in einer normalen XLS-Datei und dann in einer XLT-Datei.
In der XLS-Datei funktioniert alles einwandfrei.
Aber nicht in der XLT-Datei. (alles auf Festplatte, nicht CD)
Beim Doppelklick auf die XLT-Datei befindet sich zwar in der geöffneten Datei das Makro, aber bei dieser Datei handelt es sich noch um eine NICHT gespeicherte Datei, da beim Öffnen einer Vorlagendatei nicht die Datei an sich geöffnet wird, sonder nur eine Kopie von der Vorlage.
Und die Kopie ist eben noch nicht gespeichert.
Demzufolge kann die Eigenschaft ThisWorkbook.Path auch noch keine Zuweisung erhalten haben. Du schreibst ja selbst genau dies.
Und trotzdem verwendest Du ThisWorkbook.Path ?
Ich denke, der bessere Weg wird sein, dass Du nach der HTM-Datei suchst, und dessen eigenen Speicherpfad dann verwendest.
Eine mögliche Lösung wäre die Folgende:
(Du musst den kompletten Code in einem allgemeinen Modul speichern)

Private Declare Function SearchTreeForFile Lib "imagehlp.dll" (ByVal RootPath As String, ByVal FileName As String, ByVal OutputPath As String) As Long
Public var
Sub Oeffnen()

Dim oExplorer As Object
Dim liLWsuche As Integer
var = ""
'es werden alle Laufwerke nach der Datei durchsucht; wenn gefunden, wird die For-Schleife abgebrochen
For liLWsuche = 67 To 90
Call FindFile(Chr(liLWsuche) & ":\", "VAHilfe.htm")
If var <> "" Then
Exit For
End If
Next
Set oExplorer = CreateObject("InternetExplorer.Application")

With oExplorer
.Width = 600
.Height = 350
.Top = 100
.Left = 100
.Navigate var
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = False
.Offline = True
End With

Set oExplorer = Nothing
End Sub
Function FindFile(ByVal Path As String, ByVal File As String) As String

Dim s As String * 1024

If SearchTreeForFile(Path, File, s) Then
FindFile = Left$(s, InStr(s, vbNullChar) - 1)
var = FindFile
End If
End Function

Mit diesem Code wird außer C:\ jedes Laufwerk nach der HTM-Datei durchsucht, da jedes Laufwerk ja ein CD-Laufwerk sein könnte.
Da ich davon ausgehe, dass die HTM-Datei auf jeden Fall irgendwo vorhanden ist, habe ich auf eine Fehlerkontrolle verzichtet, was passieren soll, wenn die Datei nicht gefunden wird.
Und wenn Du sicher gehen möchtest, dass NUR auf CD-Laufwerken gesucht werden soll, müsstest Du eine weitere Funktion einbauen, die vor der Dateisuche, die Art der Laufwerke bestimmt.
Habe gerad mal nach irgendeiner HTM-Datei auf einer CD suchen lassen. Es hat nur ca. 3 Sekunden gedauert.
So :-)
Ich hoffe, dass ich nun nix falsch verstanden hatte, und dass vor allem sich der Name der HTM-Datei nicht ändert. Dann wäre fast alles umsonst :-)
Konnte ich helfen?
Ciao
Thorsten

Hi Dieter
Ich wieder :-)
Also...(erst mal etwas by the way ;-) )
Der Grund, weshalb ich nun gar nix mehr verstand, ist der, dass ich Deine Einstiegsfrage in diesem Thread total vergessen hatte.
- Ursprünglich wolltest Du wissen, wie man innerhalb einer XLT-Datei die geöffnete Kopie derselben irgendwo (z Bsp unter C:\Test\Test1.xls) speichern kann
- irgendwann kamen wir von dieser Frage ab, und es ging schleichend über in eine neue Frage: "Wieso wird die HTM-Datei nicht gefunden"
Na ja, und daran hatten wir uns ja etwas "festgebissen" :-)
Und da nun, mich hats auch gefreut :-), das Prob mit der HTM-Datei gelöst war, muss ja immer noch die 1. Frage beantwortet werden ;-)
Oki...nun bin ich wieder im Bild....und wir können weiter tun :-)
-----by the way ende ------- :-)
Und nun direkt zu Deinen Fragen ;-)
Versuch mal dies:
1. Wenn mein Kunde die Dateien NICHT auf seine Festplatte kopiert, soll die neu erstellte XLS trotzdem in einem zu erstellenden Verzeichnis gespeichert werden...
Schreib zu Deinem Code im AutoOpen-Makro diese Zeilen (unterhalb dem, was da schon steht)

Dim lstrDatName as String
'wenn in E6 (noch) nix drin steht, dann soll die Datei unter C:\Varius-II\Varius-II.xls gespeichert werden; dadurch erübrigt sich auch Frage 2. aus der Mail
If Sheets("Kundendaten").Range("E6")="" then
    'Kontrolle, ob das Verzeichnis Varius-II auf C:\ schon existiert
    lstrDatName = Dir("C:\Varius-II", vbDirectory)
        'wenn nicht, wird es nun erstellt
        If lstrDatName="" then MKDir("C:\Varius-II")
    'und die Datei wird gespeichert
    ThisWorkbook.Save "c:\Varius-II\Varius-II.xls"

End If

3. Wenn mein Kunde (oder jeder andere User) Daten in die Datei eingegeben hat und (was häufig geschieht) die Tabelle über das Kreuz schließt, soll automatisch unter dem vergebenen Dateinamen ohne Rückfrage gespeichert werden.
Schreib dieses:

Private Sub Workbook_BeforeClose(Cancle As Boolean)
'erst Dein Code, der hier schon steht
If Sheets("Kundendaten").Range("E6")="" then
        ThisWorkbook.Save "c:\Varius-II\Varius-II.xls"
        ThisWorkbook.Close
    Else
        ThisWorkbook.Save "c:\Varius-II\ & Sheets("Kundendaten").Range("E6").Value & ".xls"
        ThisWorkbook.Close
End If
End Sub

So, erst mal fertig für heute :-)
Es kann sein, dass Du vielleicht nachkorrigieren musst, da ich diesen Code hier einfach nur so reinschrieb, ohne zu testen....aber ich bin müde :-)
Bin neugierig auf Deinen nächsten Beitrag hierzu ;-)
Ciao & wech...
Thorsten

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread