snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 19.655
Geachte marktbezoekers,
Ik wil de gegevens van een bestand op Internet gebruiken om een Userformcontrol te vullen.
Met vier methoden lukt dat (zie hieronder).
De methode Getobject laat het afweten.
Heeft iemand een idee waarom Getobject wel een bestand uit het eigen systeem kan openen en niet een bestand uit Internet ?
Wat werkt:
Wat niet werkt:
Bij voorbaat mijn dank.
Ik wil de gegevens van een bestand op Internet gebruiken om een Userformcontrol te vullen.
Met vier methoden lukt dat (zie hieronder).
De methode Getobject laat het afweten.
Heeft iemand een idee waarom Getobject wel een bestand uit het eigen systeem kan openen en niet een bestand uit Internet ?
Wat werkt:
Code:
Private Sub UserForm_Initialize()
Listbox1.List = ThisWorkbook.Sheets.Add(, Sheets(Sheets.Count), , "http://www.snb-vba.eu/bestanden/Q_test.xlsx").Cells(1).CurrentRegion.Value
Listbox1.List = Workbooks.Add("http://www.snb-vba.eu/bestanden/Q_test.xlsx").Sheets(1).Cells(1).CurrentRegion.Value
Listbox1.List = Workbooks.Open("http://www.snb-vba.eu/bestanden/Q_test.xlsx").Sheets(1).Cells(1).CurrentRegion.Value
ThisWorkbook.FollowHyperlink "http://www.snb-vba.eu/bestanden/Q_test.xlsx"
ListBox1.List = Workbooks("Q_test.xlsx").Sheets(1).Cells(1).CurrentRegion.Value
End Sub
Wat niet werkt:
Code:
Private Sub UserForm_Initialize()
ListBox1.List = GetObject("http://www.snb-vba.eu/bestanden/Q_test.xlsx").Sheets(1).Cells(1).CurrentRegion.Value
End Sub
Bij voorbaat mijn dank.