Plik z internetu do arkusza Excel

Thread View: pl.comp.lang.vbasic

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Bartess Wed, 05 May 2010 08:13

#104636

Author: Bartess
Date: Wed, 05 May 2010 08:13

33 lines
1991 bytes

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads