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

• #33031 Pakliman tag lenkei83 #33026

  Új Válasz 2016-10-21 10:49:55 #33031

  Ú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

  

  Pakliman

  tag

  válasz lenkei83 #33026 üzenetére

  Szia!

  Csak egy pillantást tudtam vetni rá, de szerintem a hiba For Output As #xx lesz.
  Ez esetben olvasni nem tudsz a fájlból.

  Egy lehetőség a sok közül:

  For Each mezokod In mezokod_tartomany_1

If mezokod <> "" And mezokod.Offset(0, -6) <> "" Then
Print #xx, mezokod.Value & "=" & mezokod.Offset(0, -6).Value
End If
Next mezokod

Close #xx 'ÚJ SOR!!

Dim LineofText As String
Dim rw As Long
rw = 0

xx = FreeFile() 'ÚJ SOR!!
Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As #xx 'ÚJ SOR!!

Do While Not EOF(xx)
Line Input #xx, LineofText
rw = rw + 1
Loop
MsgBox rw

Close #xx

  Az 'ÚJ SOR!! részeket kell beírnod a kódba.
  Figyelj! Az Open-nél Input van!

  Remélem műxik majd

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