Der Fehler kommt bei adr = adressen1(z)
und sogar schon bei MsgBox adressen1(0), soll ich da Dim 0 as Integer einbauen :)
Gruß
Reinhard
ps: die 3er-Teilung erfolgt weil VBA nur 25 Trennungszeichen "_ " zulässt in einer Prozedur
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
Public Sub test()
URLDownloadToFile 0, _
"ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a001.pdf", _
"D:\VBA.pdf"", 0, 0"
End Sub
Sub ttt()
Dim n As Integer
For n = 0 To 58
MsgBox adr(n)
Next n
End Sub
Function adr(ByVal z As Integer) As String
Dim adressen1
Dim adressen2
Dim adressen3
MsgBox adressen1(0)
Select Case z
Case Is <= 24
adr = adressen1(z)
Case Is <= 45
adr = adressen2(z - 25)
Case Else
adr = adressen3(z - 45)
End Select
adressen1 = Array("ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a001.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0019809.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a002.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0029502.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a003.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0030407.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a005.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0059802.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a006.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0069809.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a017.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0179911.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a026.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0260003.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a027.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0279510.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a028.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0289401.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a037.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a0379202.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b001.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0010308.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b002.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0020409.pdf")
adressen2 = Array("ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b003.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0039701.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b004.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0049807.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b005.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0050208.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b006.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0069412.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b008.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0089906.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b009.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0099911.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b010.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0109708.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b011.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0119710.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b012.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0129911.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b014.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0140101.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b015.pdf")
adressen3 = Array("ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0150409.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b016.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0160210.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b026.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0260410.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b027.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0279705.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b062.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0620007.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b072.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/b0729604.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/c003.pdf" _
, "ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/c0030407.pdf")
End Function