Çözüldü Listbox hafızaya almak

[k0081]

Merhaba arkadaşlar;

Listboxdaki verileri , “tümü” adlı bir değişkene nasıl alabilirim?

Amacım : bu verileri bir text dosyasına yazdırmak. ( veriler alt alta olacak şekilde... )

Yardımcı arkadaşa şimdiden teşekkür ederim.

 

[Orion1]

Listboxın içeriği dizi içine alınıyor.

Dim tumu()
tumu = ListBox1.List

 

[k0081]

Listboxın içeriği dizi içine alınıyor.

Dim tumu()
tumu = ListBox1.List

Teşekkürler hocam. Peki bunu text dosyasına nasıl yazdıracağız ?

 

[Orion1]

Dosyanız linktedir.
Ayni klasöre atıyor.
Önceki verileri silip yeniden yazıyor.
Dosya adı dizitxt.txt

DOSYAYI INDIR

Private Sub CommandButton1_Click()
Dim i As Long, dosya As String
Dim tumu(), sutun As Integer, k As Integer, deg As String
tumu = ListBox1.List
Open ThisWorkbook.Path & "\dizitxt.txt" For Output As #1
For i = LBound(tumu) To UBound(tumu)
    For k = LBound(tumu, 2) To UBound(tumu, 2)
        deg = deg & vbTab & tumu(i, k)
    Next
    deg = Right(deg, Len(deg) - Len(vbTab))
    Print #1, deg
    deg = ""
Next i
Close #1
MsgBox "bitti"
End Sub

Private Sub UserForm_Click()
End Sub

Private Sub UserForm_Initialize()

ListBox1.List = Range("A1:B4").Value

End Sub

 

[k0081]

Hocam Teşekkürler.

 

[Orion1]

Rica ederim.
İyi çalışmalar.