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

• martonx veterán

  #1811

  #1810 Gülredy

  2012-08-01 23:25:17

  Új Válasz

  Ú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

  

  martonx

  veterán

  #1810 Gülredy

  #1810 Gülredy

  Sziasztok!
  Remélem jó helyre írok, Excel-es visual basic-ből kérnék egy apró segítséget.

  Egy nagyobb feladat részfeladata lenne, hogy egy listbox-ba bevitt tartalmat (gomb nyomásra bevitt tartalmat) egy export gomb nyomására egy txt fájlba kell exportálni.
  Ez meg is lenne, de megvan adva hogy milyen formátumba kell exportálni, az én megoldásommal pedig ugyan úgy exportálja ahogy a listában van!

  Szóval itt az én kódom:

  Private Sub CommandButton_export_Click()
  
  Dim i As Long
  Open "D:\export.txt" For Output As #1
  For i = 0 To lista.ListCount - 1
  lista.Selected(i) = True
  Print #1, lista.List(lista.ListIndex)
  Next
  Close #1
  End Sub

  Ez így exportálja nekem a listát fájlba: (az adatokat csak találomra írtam)

  Márai
  Füveskönyv
  1980
  Verseskötet
  ----------

  De ilyen módon kellene beírnia a fájlba:
  szerző1;cím1;1999;Regény

  Hogyan tudnám a jelenlegi kódomat módosítani ahhoz hogy formázott legyen? Vagy teljesen más kódot kellene használni hozzá?
  Régen tanultam már a visual basic-et...

  Előre is köszönöm a válaszokat!

  fileba = ""
  For i = 0 To lista.ListCount - 1
  lista.Selected(i) = True
  fileba = fileba & lista.List(lista.ListIndex) & ";"
  Next
  Print #1, fileba

  Annyiból nem tökéletes, hogy a legutolsó ;-t le kell majd hagynod a végéről. De valamit te is csinálj

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