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

• #8577 m.zmrzlina senior tag perfag #8575

  Új Válasz 2010-11-03 00:23:38 #8577

  Ú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

  

  m.zmrzlina

  senior tag

  válasz perfag #8575 üzenetére

  Ez se rossz, még ha a legtöbb esetben nem is a legjobban használható módszer.

  The following example reads a text file and then places each line of data in a single cell (beginning with the active cell):In most cases, this procedure won't be very useful because each line of data is simply dumped into a single cell.

  Sub ImportData()
  Open "c:\data\textfile.txt" For Input As #1
  r = 0
  Do Until EOF(1)
  Line Input #1, data
  ActiveCell.Offset(r, 0) = data
  r = r + 1
  Loop
  Close #1
  End Sub

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