Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige