snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 20.386
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 SubWat 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 SubBij voorbaat mijn dank.
 
	 
 
		 (ik vermoed niet heel erg). De technische uitleg van mijn vorige antwoord blijft staan, maar ik wilde dit eenvoudigere antwoord niet uit het forum houden.
 (ik vermoed niet heel erg). De technische uitleg van mijn vorige antwoord blijft staan, maar ik wilde dit eenvoudigere antwoord niet uit het forum houden.