🚀 go-pugleaf

Witam.
Umiem juz pobrac plik z dysku lokalnego:
Sub Importuj()
  Dim rg As Range
  Dim T As Variant
  Set rg = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'miejsce 
wkopiowania

  Open ".\plik.txt" For Input As #1                  'otwórz plik tekstowy
    Do Until EOF(1)                                      'powtarzaj aż 
napotkasz koniec pliku
      Line Input #1, linia                               'czytaj linię
      T = Split(linia, ",")                              'rozbij na elementy 
wg separatora
      rg.Resize(1, UBound(T)) = T                        'zapisz do komórek
      Set rg = rg.Offset(1, 0)                           'kolejny wiersz 
docelowy
    Loop
    Close #1                                             'zamknij plik 
tekstowy
End Sub

Mam pytanie - jak ".\plik.txt" zastapic http://gdzies.tam.pl/plik.txt?

Pozdrawiam. 



__________ Informacja programu ESET NOD32 Antivirus, wersja bazy sygnatur wirusow 5086 (20100504) __________

Wiadomosc zostala sprawdzona przez program ESET NOD32 Antivirus.

http://www.eset.pl lub http://www.eset.com