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

• #1816 Gülredy tag

  Új Válasz 2012-08-02 19:52:07 #1816

  Ú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

  

  Gülredy

  tag

  Hogyan tudnám ezt a kódot úgy módosítani, hogy ne egy megadott intervallumot írjon ki pl A99-ig hanem mondjuk A99-től lefele az összes sort (balról jobbra) addig amíg van olyan cella amiben adat van?
  Mert ha csak egy nagyobb számot írok a D-nek akkor egy csomó ;-t rak a fájlba, ami meg viszont kell, mert így kell kinéznie a fájban az adatoknak, mindnek külön sorba.
  szerző1;cím1;kiadáséve1;kategória1;
  szerző2;cím2;kiadáséve2;kategória2;
  ....

  Szóval amit beolvas a cellákból azok is ugyan ebben a sorrendben vannak, csak az nem megy hogy ne csak egy sort olvasson be, hanem annyi sort amennyiben adat van!

  Private Sub CommandButton3_Click()
  
  Dim ce As Range
  Open "D:\export_from_xls.txt" For Append As #1
  fileba = ""
  For Each ce In Range("A9:D9")
  fileba = fileba & ce.Value & ";"
  Next ce
  Print #1, fileba
  Close #1
  
  End Sub

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