@Boardverantwortlichen und alle VBA und Excel-Fans

MunichFreak · 22. Juli 2005 um 11:06

auf der Seite finden sich unter den Links zum teil die oft genannten Seiten hier aber auch einige andere Schmankerl.
Die Seite an sich ist schon der Hammer und die Links haben es auch in sich. Würde es begrüssen wenn das in die Boardbeschreibung mit aufgenommen werden könnte oder FAQ’s oder so…

Alex_Winter · 22. Juli 2005 um 14:25

Hallo MunichFreak!

Danke für den Tip! Die Seite habe ich aber schon länger gefunden und daher schon aufgenommen. Wenn du aber noch weitere interessante Links hast, teile mir sie bitte mit. Sie werden dann sofort in die FAQ 1576 aufgenommen.

Gruß Alex

Reinhard_fb8cb7 · 22. Juli 2005 um 15:03

Danke für den Tip! Die Seite habe ich aber schon länger
gefunden und daher schon aufgenommen. Wenn du aber noch
weitere interessante Links hast, teile mir sie bitte mit. Sie
werden dann sofort in die FAQ 1576 aufgenommen.

Hi Alex,
zum Selbststudium via pdf:
http://www.joanneum.ac.at/services/vbaexcel/VBA.PDF
hatte mir früher kostenlos mal eine pdf von hier:
http://www.google.com/url?sa=D&q=ftp://ftp.fernuni-h…
heruntergeladen, da kommt jetzt aber eine Fehlermeldung (forbidden??)
Vielleicht steht die pdf jetzt ja hier:
ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/b…
oder es sind sind gute pdfs für andere Officeanwendungen.
Meine eine Fesplatte wurde formatiert, wenn ich die Daten retten kann
habe ich auch die pdf wieder.
Wenn w-w-w oder sonst hier ein benutzer mir Webspace anbietet kann ich sie ja mailen und derjenige kann sie hochladen.
Vieleicht mit Hagen abklären ob die das zulassen.
Gruß
Reinhard

Reinhard_fb8cb7 · 22. Juli 2005 um 15:07

Hi alex,
fand einen Link zu der Hagen-pdf:
http://www.fernuni-hagen.de/URZ/urzbib/ls_broschuere…
(für vba bis ganz unten scrollen)
Vielleicht sind da auch einige PDFs für andere Bretter-FAQs sehr interessant.
Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 22. Juli 2005 um 19:21

Hi Alex,
ist für einen alleine eine Menge Holz 59 Dateien zu laden.
Ich bastle gerade an einem Excel-Makro was dies automatisch macht und das wird bald fertig sein. Man kann dann n Spalte A eige oder alle 59 Dateien angeben und der Code lädt sie herunter und öffnet sie je ach Wunsh auch noch.
Vielleicht kann man ja im Teamwork eine Tabelle erstellen wo Zug um Zug der Inhalt/Titel der PDFs beschrieben wird, ich habe das bei einigen schon getan.

Reinhard_fb8cb7 · 22. Juli 2005 um 22:38

Hi Alex,
mit größter Hilfe von Nepu, der irgendwie zu
http://www.online-excel.de/ gehört, Klasselink, schaffte ich es den Code zu basteln.
Er lädt die PDFs herunter.

In ein klassenmodul das den Namen clsAdressen tragen MUSS:

Option Explicit

Private mAdressen As Collection

Private Sub Class\_Initialize()
 Set mAdressen = New Collection
End Sub

Private Sub Class\_Terminate()
 Set mAdressen = Nothing
End Sub

Public Property Get prpAdressen() As Collection
 Set prpAdressen = mAdressen
End Property



in Modul1:

Option Explicit

Private Declare 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

Private objAdressen As clsAdressen

Public Sub prcStart()
 Dim intIndex As Integer
 Set objAdressen = New clsAdressen
 Call prcInitAdressen
 With objAdressen.prpAdressen
 For intIndex = 1 To .Count
 URLDownloadToFile 0, \_
 .Item(intIndex), "C:\VBA" & CStr(intIndex) & ".pdf", 0, 0
 Next
 End With
 Set objAdressen = Nothing
End Sub

Private Sub prcInitAdressen()
 With objAdressen.prpAdressen
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a001.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0019809.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a002.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0029502.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a003.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0030407.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a005.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0059802.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a006.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0069809.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a017.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0179911.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a026.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0260003.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a027.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0279510.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a028.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0289401.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a037.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0379202.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b001.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0010308.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b002.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0020409.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b003.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0039701.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b004.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0049807.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b005.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0050208.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b006.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0069412.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b008.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0089906.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b009.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0099911.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b010.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0109708.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b011.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0119710.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b012.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0129911.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b014.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0140101.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b015.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0150409.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b016.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0160210.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b026.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0260410.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b027.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0279705.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b062.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0620007.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b072.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0729604.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/c003.pdf"
 .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/c0030407.pdf"
 End With
End Sub

Gruß
Reinhard

Reinhard_fb8cb7 · 22. Juli 2005 um 22:43

Code hir benutzbar gemacht
Option Explicit

Private Declare 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

Private objAdressen As clsAdressen

Public Sub prcStart()
Dim intIndex As Integer
Set objAdressen = New clsAdressen
Call prcInitAdressen
With objAdressen.prpAdressen
For intIndex = 1 To .Count
URLDownloadToFile 0, _
„ftp“ & „://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/“ & .Item(intIndex), „C:\VBA“ & CStr(intIndex) & „.pdf“, 0, 0
Next
End With
Set objAdressen = Nothing
End Sub

Private Sub prcInitAdressen()
With objAdressen.prpAdressen
.Add „a001.pdf“
.Add „a0019809.pdf“
.Add „a002.pdf“
.Add „a0029502.pdf“
.Add „a003.pdf“
.Add „a0030407.pdf“
.Add „a005.pdf“
.Add „a0059802.pdf“
.Add „a006.pdf“
.Add „a0069809.pdf“
.Add „a017.pdf“
.Add „a0179911.pdf“
.Add „a026.pdf“
.Add „a0260003.pdf“
.Add „a027.pdf“
.Add „a0279510.pdf“
.Add „a028.pdf“
.Add „a0289401.pdf“
.Add „a037.pdf“
.Add „a0379202.pdf“
.Add „b001.pdf“
.Add „b0010308.pdf“
.Add „b002.pdf“
.Add „b0020409.pdf“
.Add „b003.pdf“
.Add „b0039701.pdf“
.Add „b004.pdf“
.Add „b0049807.pdf“
.Add „b005.pdf“
.Add „b0050208.pdf“
.Add „b006.pdf“
.Add „b0069412.pdf“
.Add „b008.pdf“
.Add „b0089906.pdf“
.Add „b009.pdf“
.Add „b0099911.pdf“
.Add „b010.pdf“
.Add „b0109708.pdf“
.Add „b011.pdf“
.Add „b0119710.pdf“
.Add „b012.pdf“
.Add „b0129911.pdf“
.Add „b014.pdf“
.Add „b0140101.pdf“
.Add „b015.pdf“
.Add „b0150409.pdf“
.Add „b016.pdf“
.Add „b0160210.pdf“
.Add „b026.pdf“
.Add „b0260410.pdf“
.Add „b027.pdf“
.Add „b0279705.pdf“
.Add „b062.pdf“
.Add „b0620007.pdf“
.Add „b072.pdf“
.Add „b0729604.pdf“
.Add „c003.pdf“
.Add „c0030407.pdf“
End With
End Sub