VBA Datei Speichern Unter Dialog mit HTML+Paramete

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub aatest() Dim sTitel As String Dim newFullName Dim wb As Workbook Set wb = ThisWorkbook 'Test zeilen sTitel = "" newFullName = "C:\Users\Public\Test\Test20100718.htm" wb.PublishObjects.Add SourceType:=xlSourceWorkbook, Filename:=newFullName, _ HtmlType:=xlHtmlStatic, Title:=CStr(sTitel) 'alter Code 'wb.PublishObjects.Add(xlSourceWorkbook, newFullName, , , xlHtmlStatic, , _ CStr(HTMLParam.Titel.Text)) 'dein neuer Code wb.PublishObjects.Add xlSourceWorkbook, newFullName, , , xlHtmlStatic, , _ CStr(HTMLParam.Titel.Text) End Sub

'Beispiele für aufgezeichneten Code - Die Parameterbezeichnungen hab ich manuell ergänzt 'Sheet als Webseite (statisch) With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceSheet, _ Filename:="C:\Lokale Daten\Test\HTML-Publishing01.htm", _ Sheet:="Tab1 (2)", Source:="", HtmlType:=xlHtmlStatic, _ DivID:="HTML-Publishing_9484", Title:="Test HTML 20100719-A") .Publish (True) .AutoRepublish = False End With 'Arbeitsmappe als Webseite (interaktiv) With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceWorkbook, _ Filename:="C:\Lokale Daten\Test\HTML-Publishing02.htm", _ HtmlType:=xlHtmlCalc, _ DivID:="HTML-Publishing_9484", Title:="Test HTML 20100719-B") .Publish (True) .AutoRepublish = False End With

Hi Franz,
ach Du meine Fresse, das glaube ich ja nicht... Das muss doch gehen!!! Ich muss bestimmt noch irgend etwas setzen, was ich vergessen habe. Ich habe wie von Dir vorgeschlagen mit xlHTMLCalc getestet und bingo es geht!!!
Komischer Weise sieht meine Makro-Aufzeichnung so aus, wenn ich keine Interaktivität hinzufüge:
ActiveWorkbook.SaveAs Filename:="S:\xlTest\Mappe1.htm", FileFormat:=xlHtml _
, ReadOnlyRecommended:=False, CreateBackup:=False
Ich glaube damit kann ich erst mal auch leben. Wenn ich mit veröffentlichen arbeite habe ich unter 2003 immer Interaktivität, was ich aber nicht will. Falls noch jemand eine Idee hat freue ich mich, anonsten implementiere ich eben einmal SaveAs und ein mal PublishObjects.
Nebenbei, static geht, wenn ich nur eine Tabelle angebe.
Schon verrückt...

Sub bbtest() Dim wb As Workbook, sFilename As String Set wb = ActiveWorkbook sFilename = wb.FullName If wb.Saved = False Then wb.Save wb.SaveAs Filename:="S:\xlTest\Mappe1.htm", FileFormat:=xlHtml, _ ReadOnlyRecommended:=False, CreateBackup:=False Workbooks.Open Filename:=sFilename wb.Close savechanges:=False End Sub

Tja, vollkommen komisch unter 2003. Mal gehts, mal nicht. Ich kann aber irgendwie kein reproduzierbares Verhalten erzeugen... Hat jemand ein ähnliches Problem?
Hier mein (unvollständiger) Code:
Dim typ As Long ' 0 = gesamte Tabelle, 1 = spezifischer Bereich
typ = 0 ' Tabelle
Dim r As Range
Set r = wb.Application.Selection
' Keine Range? (kann eigentlich gar nicht sein, aber egal...)
If r Is Nothing Then
typ = 0
Else
' Mehr als eine Are? Dann Tabelle
If r.Areas.Count > 1 Then
typ = 0
Else
' Nur eine Zelle? Dann Tabelle
If r.Count = 1 Then
typ = 0
Else
typ = 1
End If
End If
End If
If typ = 0 Then
HTMLParam.Auswahl.Caption = "Auswahl: Tabelle"
Else
HTMLParam.Auswahl.Caption = "Auswahl: " & r.Address
End If
G_Abbruch = True
' Kleines eigenes Formular
HTMLParam.Show vbModal
If Not G_Abbruch Then
' War im Formular die Interaktivität angeklickt?
Dim htmlTyp As Long
If HTMLParam.Interaktivität.Value <> False Then
htmlTyp = xlHtmlCalc
Else
htmlTyp = xlHtmlStatic
End If
Err.Clear
On Error Resume Next ' falls was schief geht!
' Wenn die gesamte Arbeitsmappe ausgewählt wurde
If HTMLParam.GesamteArbeitsmappe.Value <> False Then
' Wenn statisch dann...
If htmlTyp = xlHtmlStatic Then
xlapp.EnableEvents = False
wb.SaveAs filename:=newFullName, FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
xlapp.EnableEvents = True
If Err.Number <> 0 Then
MsgBox "Die Datei konnte nicht gespeichert werden, bitte versuchen Sie es später erneut.", vbInformation
Err.Clear
End If
' Set po = wb.PublishObjects.Add(xlSourceWorkbook, newFullName, , , xlHtmlStatic, , CStr(HTMLParam.Titel.Text))
' po.Publish True
' po.AutoRepublish = False
' Ansonsten dynamisch!!!
Else
' Und publischen
With wb.PublishObjects.Add(xlSourceWorkbook, newFullName, , , xlHtmlCalc, , CStr(HTMLParam.Titel.Text))
.Publish True
.AutoRepublish = False
End With
If Err.Number <> 0 Then
MsgBox "Die Datei konnte nicht gespeichert werden, bitte versuchen Sie es später erneut.", vbInformation
Err.Clear
End If
End If
' Ansonsten wurde nur ein Bereich oder die aktive Tabelle selektiert
Else
' Tabelle?
If typ = 0 Then
With wb.PublishObjects.Add(xlSourceSheet, newFullName, wb.ActiveSheet.name, , htmlTyp, , CStr(HTMLParam.Titel.Text))
.Publish True
.AutoRepublish = False
End With
If Err.Number <> 0 Then
MsgBox "Die Datei konnte nicht gespeichert werden, bitte versuchen Sie es später erneut.", vbInformation
Err.Clear
End If
' Ne, dann definierter Bereich
Else
With wb.PublishObjects.Add(xlSourceSheet, newFullName, wb.ActiveSheet.name, r.Address, htmlTyp, , CStr(HTMLParam.Titel.Text))
.Publish True
.AutoRepublish = False
End With
If Err.Number <> 0 Then
MsgBox "Die Datei konnte nicht gespeichert werden, bitte versuchen Sie es später erneut.", vbInformation
Err.Clear
End If
End If
End If
End If
Set r = Nothing

Beliebteste Forumthreads (12 Monate)

VBA Datei Speichern Unter Dialog mit HTML+Paramete

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

345 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Datei Speichern Unter Dialog mit HTML+Paramete

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

345 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread