Új hozzászólás Aktív témák

• #33010 lenkei83 tag

  Új Válasz 2016-10-19 17:19:32 #33010

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lenkei83

  tag

  Sziasztok!

  Megnyitott csv-ben szeretném megszámolni a sorokat, tehát a VBA open valami for input parancs nem jó.
  És éppen ez a bajom. Nyitott fájlt hogyan lehet beadni a for input as parancshoz?

  A lenti kód működik, ha épp nincs megnyitva a fájl, ezt kellene orvosolni valahogyan.

  üdv
  P.

  Dim filenum As Integer
Dim count As Long
Dim tmp As String
xx = FreeFile
[B]Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As xx[/B]
Do While Not EOF(xx)
Line Input #xx, tmp$
count = count + 1
Loop
MsgBox count

Új hozzászólás Aktív témák