Hallo,
ich hoffe das ich hier auf dem richtigen Brett bin, oder muss ich zu dem VBA Brett.
Ich habe eine Anwendung erstellt für eine Sportveranstaltung mit 40 Tabellen (Exel 2000). Die Veranstaltung dauert 14 Tage und ich muss dann jeden Abend die Tabellen im HTML-Format an den Betreuer der Hompage des Vereins per E-mail schicken. Das heisst, ich müsste jeden Abend 40 Tabellenblätter als HTML speichern. Sehr großer Aufwand. Ich habe jetzt den Tipp bekommen die Tabellen einmal mit „Makro-aufzeichen“ und „speichern unter“ als HTML zu speichern, dann könnte ich jeden Abend das Makro aufrufen und dann alle Tabellen auf einmal im HTML-Format speichern. Wie genau funzt das?
Also Makro aufzeichnen aktivieren, Tabellen als HTML in ein Verzeichnis speichern, und dann???
Mit Dank im voraus
Gruß Skaletti!
Hallo Skalletti,
ich hoffe das ich hier auf dem richtigen Brett bin, oder muss
ich zu dem VBA Brett.
das ist kein VBA-Brett, es ist ein **VB>-Brett.
und ich muss dann jeden Abend die Tabellen im HTML-Format an
den Betreuer der Hompage des Vereins per E-mail schicken. Das
heisst, ich müsste jeden Abend 40 Tabellenblätter als HTML
speichern.
Der Tipp ist okay, zeichne mal so ein makro auf und zeige hier den Code.
Den Code kann man dann umbasteln sodaß er dann 40mal nacheinander Htmls speichert.
Gruß
Reinhard**
Hallo Reinhard,
Danke für die schnelle Antwort.
Gruß Skaletti!
Hier das Makro:
Sub Makro2()
'
' Makro2 Makro
' Pokalschießen 2010
'
' Tastenkombination: Strg+Umschalt+P
'
With ActiveWorkbook.PublishObjects("9.3\_Pokalschießen 2010\_23193")
.HtmlType = xlHtmlStatic
.Filename = \_
"C:\Dokumente und Einstellungen\Administrator\Desktop\HTML\LG aufg. Schueler Einzel.htm"
.Publish (False)
End With
End Sub
With ActiveWorkbook.PublishObjects(„9.3_Pokalschießen
2010_23193“)
.HtmlType = xlHtmlStatic
.Filename = _
„C:\Dokumente und
Einstellungen\Administrator\Desktop\HTML\LG aufg. Schueler
Einzel.htm“
.Publish (False)
ach du kacke 
, PublishObject kenn ich gar nicht.
Was ist denn „9.3_Pokalschießen 2010_23193“?
Ein Tabellenblattname, der Mappenname?
Und sicherheitshalber (naja, eher wegen meiner Unsicherheit*gg*) nachgefragt, diese 40 Tabellen sind 40 Tabellenblätter in einer Mappe oder 40 mappen?
Wie wäre es denn damit?:
Sub tt()
Dim PfadDatei As String
PfadDatei = „C:\Dokumente und Einstellungen\Administrator\Desktop\HTML“
PfadDatei = PfadDatei & „LG aufg. Schueler Einzel.htm“
ActiveWorkbook.SaveAs Filename:=PfadDatei, FileFormat:=xlHtml
End Sub
Gruß
Reinhard
Hi Reinhard,
„9.3_Pokalschießen 2010_23193“ ist die Mappe,
die hat 40 Tabellenblätter.„LG frei Schüler“, „LG frei Jugend“, usw.
Die 40 Tabellenblätter müssen jeweils als HTML-Dokument für
die Hompage des Vereins per E-mail verschickt werden. Jeden
Abend aktuell.
Gruß Skaletti!
Hallo Reinhard,
vielen Dank für deine schnelle Hilfe.
Gruß Skaletti!
So funzt es jetzt:
Sub Makro1()
Dim PfadDatei As String
' Makro1 Makro
' Makro am 29.6.2009 aufgezeichnet
' Tastenkombination: Strg+Umschalt+L
Range("A1:I32").Select
ActiveWorkbook.PublishObjects.Add(xlSourceRange, \_
"C:\Dokumente und Einstellungen\Administrator\Desktop\Pokal\_HTML\LG frei Schueler.htm" \_
, "LG frei Schüler Einzel", "$A$1:blush:I$32", xlHtmlStatic, \_
"9.3\_Pokalschießen 2010\_10317", "").Publish (True)
ChDir "C:\Dokumente und Einstellungen\Administrator\Desktop\Pokal\_HTML"
Range("A1:I32").Select
ActiveWorkbook.PublishObjects.Add(xlSourceRange, \_
"C:\Dokumente und Einstellungen\Administrator\Desktop\Pokal\_HTML\LG frei Jugend.htm" \_
, "LG frei Jugend Einzel", "$A$1:blush:I$32", xlHtmlStatic, \_
"9.3\_Pokalschießen 2010\_10317", "").Publish (True)
ChDir "C:\Dokumente und Einstellungen\Administrator\Desktop\Pokal\_HTML"
Range("A1:I32").Select
ActiveWorkbook.PublishObjects.Add(xlSourceRange, \_
"C:\Dokumente und Einstellungen\Administrator\Desktop\Pokal\_HTML\LG frei Junioren.htm" \_
, "LG frei Junioren Einzel", "$A$1:blush:I$32", xlHtmlStatic, \_
"9.3\_Pokalschießen 2010\_10317", "").Publish (True)
ChDir "C:\Dokumente und Einstellungen\Administrator\Desktop\Pokal\_HTML"
End Sub