Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Import danych z wielu txt do arkusza excel

wies16 30 Sty 2011 22:05 2418 2
  • #1 30 Sty 2011 22:05
    wies16
    Poziom 11  

    Witam.
    Potrzebuję stworzyć makro które będzie importowało określone dane z plików TXT znajdujących się w określonym folderze.
    Z plików muszę pobrać dane:

    1.MODULE
    type
    serial
    2.HEADS
    type
    serial
    3.Nozzle Station
    type
    4. Conveyor
    type


    I zapisać je do osobnych kolumn lub wierszy.
    / dane z pliku 1 - wiersz A
    dane z pliku 2 - wiersz B lub zapis w kolumnach jak wygodniej.




    KOD:

    Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Set wks = ThisWorkbook.Worksheets("Sheet1")
    sciezka = "n:\zestawienie\"

    wks.Range("A2:IV65536").ClearContents

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sciezka).Files

    wiersz = 2
    For Each f2 In f
    With wks
    Open f2 For Input As #1
    Do While Not EOF(1)
    Line Input #1, linia
    wks.Cells(wiersz, 1) = linia
    wiersz = wiersz + 1
    Loop
    Close #1
    End With
    Next
    Application.ScreenUpdating = True
    MsgBox "Koniec"
    End Sub


    Import plików ze wskazanej lokalizacji ?? Dalej nie wiem

    0 2
  • #2 30 Sty 2011 23:49
    arnoldziq
    Moderator Programowanie

    Skoro kolega "potrzebuje", to co kolegę powstrzymuje ?
    I w jaki sposób kolegi "potrzeba" dotyczy użytkowników tego forum ?

    0
  • #3 31 Sty 2011 17:36
    kubatek94
    Poziom 17  

    No ok, a gdzie pytanie? I podaj swoj kod :)

    0