Szervusztok

>Keresem azt a makrót ami segítségével Excelben egy text fájlból be
>tudok importálni meghatározott sorokat.

Nekem valaha egy .ini allomany adatait kellett becibalni es szetszorni egy Exce
l tablaban. Egyszeruen megnyitottam az allomanyt es beolvastam a tartalmat soro
nkent. Sajnalatos modon a modszer nem szaz szazalekos, mert nehany Windows javi
tocsomag kiakaszt valamit amitol aztan nem mukodik az ilyen allomany olvasas.

Az alabbi peldaban leegyszerusitettem az atlathatosag kedveert : csak olvassa s
oronkent az allomany es tolja be a sorokat az aktiv munkalapra.

Private Sub CommandButton1_Click()
  Dim konyvtar, allomany
  Dim sor, szam

  konyvtar = "c:\valahol"
  allomany = "valami.txt"

  Set ofs = CreateObject("Scripting.FileSystemObject")
  If Not ofs.folderexists(konyvtar) Then
    Call MsgBox("Nincs konyvtar '" + konyvtar + "'", vbExclamation, "Hiba")
    Exit Sub
  End If
  If Not ofs.fileexists(konyvtar + "\" + allomany) Then
    Call MsgBox("Nincs allomany '" + konyvtar + "\" + allomany + "'", vbExclama
tion, "Hiba")
    Exit Sub
  End If
  
  szam = 0
  Set all = ofs.OpenTextfile(konyvtar + "\" + allomany, 1, 0)
  Do While all.atendofstream <> True
    sor = all.readline
    szam = szam + 1
    ActiveSheet.Cells(szam, 1).Value = sor
  Loop
  all.Close
End Sub

A kulon konyvtar es allomany letezes ellenorzese sajnos szukseges volt ugy, mer
t csak az allomanyra valamiert nem ment normalisan.

A tevedes jogat fenntartom. Jelenleg nincs elerheto Excel -em, a fenti kodban l
ehetnek hibak.

Feherke.
http://script.fplanet.hu