Tabellenbereich linksbündig

Forumthread: Tabellenbereich linksbündig

22.10.2018 12: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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenbereich linksbündig

22.10.2018 14:59:09

ChrisL

AW: Tabellenbereich linksbündig

22.10.2018 14: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

Forumthread: Tabellenbereich linksbündig

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread