mit vba html in pdf umwandeln

Forumthread: mit vba html in pdf umwandeln
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: mit vba html in pdf umwandeln

daniela

Hallo zusammen,
ich möchte die Website https://www.wmaccess.com/wmaccess/standard/wmaccess aufrufen aus einer Excel Datei heraus, in pdf umwandeln und dann unter I:\II_88\8\fm abspeichern mittels eines Makros.
Kann mir jmd. helfen?
Die Suche im Internet hat mich nicht weitergebracht.
Vielen Dank für tips.
Dani

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: mit vba html in pdf umwandeln

mumpel
AW: mit vba html in pdf umwandeln

daniela
AW: mit vba html in pdf umwandeln

JoWE

AW: mit vba html in pdf umwandeln

05.09.2012 19:11:59

mumpel

Hallo!
Was verbirgt sich denn hinter dieser Seite? Eine Exceldatei? Ich kann es so nicht testen, mangels Zugriffsberechtigung. Und welches PDF-Programm wird verwendet?
Gruß, René

AW: mit vba html in pdf umwandeln

05.09.2012 20:25:52

daniela

Hallo Rene,
eigentlich möchte ich mich auf der Seite auch anhand eines makros automatisch einloggen, aber das ist eine andere Baustelle.
Einfach die aufgerufene Website aus Html in PDF umwandeln. Braucht man da den Html Code der Website?
Hab schon gegoogelt, aber nichts passendes gefunden.
Nach Einloggen verbirgt sich wieder Html. Das Programm ist freepdf.
Kannst du mir da weiterhelfen?
Dani

AW: mit vba html in pdf umwandeln

05.09.2012 21:42:14

JoWE

Hallo Dani,
schon mit der WEB-Abfrage probiert?

Sub webabfrage_ergebnis_2_pdf()
Selection.Insert Shift:=xlDown
Cells.Select
Selection.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.google.de" _
, Destination:=Range("$A$1"))
.Name = "Test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

Gruß
Jochen