Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenbereich linksbündig

Forumthread: Tabellenbereich linksbündig

Tabellenbereich linksbündig
22.10.2018 10:50:58
Moritz
Hallo,
ich habe das Problem, dass bei Ausführen des Makros der Tabellenbereich zentriert eingefügt wird. Meine Frage wäre jetzt was ich ändern muss um die Tabelle linksbündig in die Email einzufügen?
Vielen Dank schon mal im Vorraus.
https://www.herber.de/bbs/user/124798.xlsm
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenbereich linksbündig
22.10.2018 12:59:09
ChrisL
Hi
Probiere mal...
Private Function fncRangeToHtml(strWorksheetname$, strRangeaddress$) As String
Dim objFilesytem As Object, objTextstream As Object, strFilename1$, strFilename2$
Dim strInput As String
strFilename1 = Environ$("temp") & "/temp.htm"
strFilename2 = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=strFilename1, _
Sheet:=strWorksheetname, _
Source:=strRangeaddress, _
HtmlType:=xlHtmlStatic).Publish True
Open strFilename1 For Input As #1
Open strFilename2 For Output As #2
Do While Not EOF(1)
Line Input #1, strInput
Print #2, Replace(strInput, "align=center", "align=left")
Loop
Close #1
Close #2
Kill strFilename1
Set objFilesytem = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFilesytem.GetFile(strFilename2). _
OpenAsTextStream(1, -2)
fncRangeToHtml = objTextstream.ReadAll
objTextstream.Close
Set objTextstream = Nothing: Set objFilesytem = Nothing: Kill strFilename2
End Function
cu
Chris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige