Hallo,
melde mich mal wieder im Forum.
Versuche ein Tabellenblatt mit Buttonclick als HTML zu speichern.
Klappt soweit das gespeichert wird unter dem angegebenen Namen.
In der Datei stehen aber nur unlesbare Zeichen.
Wer kann helfen?? Hier das Makro.
Private Sub CommandButton1\_Click()
Call Speichern
End Sub
Sub Speichern()
Dim strDateiname As String
'ggf. Laufwerk und Ordner als Vorgabe setzen
ChDir "\"
ChDrive "c:\"
strDateiname = Application.GetSaveAsFilename \_
("HTML Mannsch.htm", "Webseite (\*.htm),\*.htm")
If TypeName(strDateiname) = "String" Then 'Wenn Dateiname angegeben wurde und mit OK bestätigt :
ActiveSheet.Copy 'Kopiert nur das aktuelle Blatt in eine neue Mappe
ActiveWorkbook.SaveAs strDateiname 'neue Mappe unter eingegebenenm Namen speichern
ActiveWorkbook.Close 'Neue Mappe wieder schliessen
MsgBox "Dateiname :" & vbLf & vbLf & strDateiname, vbOKOnly + vbInformation, "Datei wurde gespeichert :"
End If
'MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname
End Sub
Mit bestem Dank im voraus.
Gruß Skaletti!
melde mich mal wieder im Forum.
Versuche ein Tabellenblatt mit Buttonclick als HTML zu
speichern.
Klappt soweit das gespeichert wird unter dem angegebenen
Namen.
In der Datei stehen aber nur unlesbare Zeichen.
Hallo Skaletti,
zunächst mal, chdrive braucht nur einen Buchstaben, ich würde das so schreiben:
ChDrive „c“
ChDir „c:“
Ansonsten, ich habe jetzt nicht den Code getestet, habe aber die Erwartungshaltung, wenn ich eine kleine Beilspielmappe bastle und den Code benutze, daß da keine unlesbaren Zeichen drin sind.
Deshalb halte ich es für Zielfördernder du lädts mit FAQ:2606 eine Beispielmappe hoch wo das auftritt.
Achja, welche Excelversion?
Gruß
Reinhard
Hallo Reinhard,
danke für deine schnelle Antwort.
Excel 2000
Hier die Beispielmappe.
Gruß Skaletti!
http://www.hostarea.de/server-09/September-26c444d7d…
Excel 2000
http://www.hostarea.de/server-09/September-26c444d7d…
Hallo Skaletti,
ich glaube bei deinem SaveAs fehlen Parameter, speziell Fileformat. Speicher mal so:
ActiveWorkbook.SaveAs Filename:=„C:\Test\September-26c444d7db.htm“, _
FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
Wahrscheinlich kannste die parameter mit False einfach weglassen , probiers aus bzw. schau in F1 nach was die Voreinstellungen dazu sind.
Gruß
Reinhard
Excel 2000
http://www.hostarea.de/server-09/September-26c444d7d…
Hallo Skaletti,
ich glaube bei deinem SaveAs fehlen Parameter, speziell
Fileformat. Speicher mal so:
ActiveWorkbook.SaveAs
Filename:=„C:\Test\September-26c444d7db.htm“, _
FileFormat:=xlHtml, ReadOnlyRecommended:=False,
CreateBackup:=False
Wahrscheinlich kannste die parameter mit False einfach
weglassen , probiers aus bzw. schau in F1 nach was die
Voreinstellungen dazu sind.
Parameter False müssen bleiben.
Gruß
Reinhard
Hallo Reinhard,
das funzt so Prima, ist perfekt.
Danke für deine Mühe und Hilfe.
Schönen Sonntagabend noch.
Gruß Skaletti!