PDA

View Full Version : Solved: Download with UserForm



omnibuster
01-20-2009, 04:09 PM
Hi.
Again I need advice and help.
My project stopped and .. (My knowledge in VBA & English bad).
In my C/disk I have a folder "Samples" wich containes some Excel Files for download with MS Web Query.
Now I think do this with VBA+Form+List.
How get the list item.name for download??

omnibuster
01-22-2009, 04:10 PM
I solved my problem myself.
Thanks.

Likes says Danny Clover: I am too old for this sh... .:)

Benzadeus
01-23-2009, 10:03 AM
Could you share your solution with us?

omnibuster
01-23-2009, 02:26 PM
Could you share your solution with us?


Please.
Works for me.

alan6449
02-06-2009, 12:46 AM
can share the code

omnibuster
02-06-2009, 02:52 AM
http://vbaexpress.com/forum/showthread.php?t=24970


Still no completed?
I was truing to do this way, but error same?

Sub UUS(wbkb)
Dim wkbk As Workbook
' wbkb.Activate '???
'Application.GetOpenFilename (wkbk)
' Windows("wkbk").Activate
' Windows.wkbk.Activate
' Windows("wkbk.xls").Activate
Dim i As Integer
Dim X
Dim y
For X = 1 To Workbooks.count
MsgBox Workbooks(X).Name
'For y = 1 To Workbooks(X).Worksheets.count
'MsgBox Workbooks(X).Worksheets(y).Name
'Next y
If Workbooks(X).Name <> "Smpl.xls" Then
Workbooks(X).Activate
End If



Next



runtime- error: 9
Subscribt out of range