Erweiterung- oder neues Vba-Modul

Werte Excel Gemeinde,
ich habe im HERBER Archiv folgendes Vba Modul unter:
https://www.herber.de/forum/archiv/740to744/t740055.htm
gefunden. Ich arbeite damit sehr viel und gerne, es funktioniert wunderbar.
Dem Verfasser Josef Ehrensberger, ich hoffe er sieht es und kann an meinen
Fragen auch mitwirken, an dieser Stelle ein grosses Lob und Danke.
1. Beim Download der Dateien kommen unerwünscht Button mit, die nicht ge-
braucht werden (wichtig ist der Text), kann man diese während oder nach
dem Download löschen?
2. Während dem Download werden die Dateien mit vorgebenen Angaben beschriftet
und fliessen allesamt in einen Win Ordner.
Meine Frage: Ist es möglich, gleichzeitig pro Datei einen Win Ordner zu
generieren, diesen mit dem Dateinamen zu beschriften und die entsprechende
Datei in den Einzelordner kopieren. Die Dateien im Sammelordner müssen
erhalten bleiben. Kann man dies in das o.g. Modul mit einbauen? Wenn
nicht, dann als seperates Modul.
Wäre schön, wenn es hierfür eine Lösung gäbe.
MfG wolf ludwig

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Lob an Sepp

27.08.2015 14:41:38

Michael

AW: Lob an Sepp

27.08.2015 15:51:11

Wolf

AW: Lob an Sepp

27.08.2015 17:03:10

Michael

zum Verständnis

28.08.2015 01:08:42

Michael

AW: zum Verständnis

28.08.2015 09:27:30

Wolf

AW: zum Verständnis

28.08.2015 12:31:55

Michael

AW: zum Verständnis

29.08.2015 10:44:10

Wolf

Fragen, Lösung?

29.08.2015 17:09:25

Michael

Option Explicit Sub ShapesAnzeigen() Dim shp As Shape 'For Each shp In Sheets("DeinTabellenBlatt").Shapes 'oder so: For Each shp In ActiveSheet.Shapes If shp.Type = 12 Then If MsgBox(shp.Name & " (Typ: " & shp.Type & ") löschen?", 3) = vbYes Then shp.Delete Else MsgBox shp.Name & " Typ: " & shp.Type & " " & shp.TopLeftCell.Address End If Next End Sub Sub ObjekteAnzeigen() Dim o As Object ActiveSheet.DrawingObjects.Select For Each o In Selection If MsgBox(o.Name & " löschen?", 3) = vbYes Then o.Delete Next End Sub

Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _ szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Sub DownloadFiles() Dim lngResult As Long, lngRow As Long, lngLast As Long Dim strFolder As String, strError As String strFolder = "C:\Users\Wolf Ludwig\Documents\Download" 'Zielverzeichnis - Anpassen If Right(strFolder, 1) "\" Then strFolder = strFolder & "\" lngLast = Cells(Rows.Count, 2).End(xlUp).Row For lngRow = 1 To lngLast lngResult = URLDownloadToFile(0, Cells(lngRow, 3), strFolder & Cells(lngRow, 2) & ".html", 0, _ 0) If lngResult 0 Then strError = strError & Cells(lngRow, 3) & vbLf End If Next If Len(strError) > 0 Then MsgBox "Folgende Dateien konnten nicht geladen werden!" & vbLf & vbLf & _ strError, vbInformation, "Hinweis" End If End Sub

Hallo Wolf,
die Betonung liegt auf "Weiterverarbeiten".
Wie und womit möchtest Du weiterverarbeiten? Wenn mit Excel, dann kann man meinen obigen Code an passender Stelle einfügen.
Nur: direkt beim Herunterladen mit der vorhandenen Befehlskombination hat man keine weiteren Einflußmöglichkeiten.
Außer quasi, die Datei direkt nach dem Herunterladen zu öffnen und zu beackern, und da gibt es eben auch verschiedene Möglichkeiten: a) als .HTM in Excel öffnen, die Shapes löschen und wieder als .HTM speichern (aber ich könnte mir vorstellen, daß das dauert) oder b) als TEXT in Excel einlesen und den Text bearbeiten.
Oder den ganzen Download anders gestalten.
Ich muß zugeben, daß ich vom Fleck weg erwartet hätte, daß Sepps Befehl ALLES kopiert und alle nicht-HTM-Elemente in einen extra Ordner ablegt.
Zur Veranschaulichung:
Userbild

Du kannst eine Internet-Seite vom Browser aus (übers Menü oder mit Strg+s) speichern, und zwar wahlweise als reine HTM-Datei oder "vollständig", so daß zusätzlich zur HTM-Datei ein gleichnamiger Ordner erzeugt wird, in dem sich die Grafiken usw. tummeln.
Deshalb mein eingangs erwähnter Vorschlag, einfach diese zusätzlichen Ordner zu löschen.
URLDownloadToFile lädt aber offensichtlich nur die reine HTML-Datei, die dann etwa so aussieht, wenn Du sie im Browser öffnest:
Userbild

Anstelle von Hans' Bild sieht man nur den dafür reservierten Platz - bei Buttons wäre es ähnlich.
So. Ist es DAS, was Du meinst?
Daß Du derart "reservierte", aber nicht genutzte "Flächen" entfernt haben möchtest?
Ich habe Ransis Code aus ...
https://www.herber.de/forum/archiv/1220to1224/1222895_Internetlink_oeffnen_und_Datei_speichern.html
... um die Löschfunktion erweitert ...

Public Sub machs()
Dim WB As Workbook
Dim shp As Shape
Set WB = Workbooks.Open("https://www.herber.de/autor.html")
With WB
.SaveAs "C:\Dein_Ordner\Download\Herber_mit_X.xls"
.SaveAs "C:\Dein_Ordner\Download\Herber_mit_H.htm"
' ********************************* von hier ***********************
For Each shp In .ActiveSheet.Shapes
shp.Delete
Next
' **** bis hier werden alle Shapes gelöscht ************************
.SaveAs "C:\Dein_Ordner\Download\Herber_ohne_X.xls"
.SaveAs "C:\Dein_Ordner\Download\Herber_ohne_H.htm"
.Close True
End With
End Sub

... und er speichert je mit und ohne Shapes als xls oder htm ab - allerdings wird das HTM-Design mangels .css - Datein dabei völlig zerschossen - aber so hast Du den enthaltenen Text annähernd frei von mißliebigen Elementen.
Du mußt nur evtl. Pfade anpassen (oder leg Dir nen Ordner C:\Dein_Ordner (samt Unterordner) an, dann mußt Du Dich nicht immer in die Tiefen des Users durchhangeln.
Außerdem habe ich mit X2000 entwickelt; ggf. kannst Du statt .xls .xlsx verwenden.
Wenn die ausgegebenen Datein für Dich ok sind, läßt sich das easy in die vorhandene Schleifenstruktur reinpfriemeln, und Excels Warnhinweise kann man auch abschalten.
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Erweiterung- oder neues Vba-Modul

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread