Merhaba arkadaşlar,
Aşağıdaki kodlarla form üzerindeki listbox takileri bir excel kitabı oluşturup sayfa birine yazdırtıyorum, yalnız bu oluşum çok uzun sürüyor.
birde win xp de sorun çıkartıyor, yani çalışmıyor.
Teşekkürler...
Set w = Application.Workbooks.Add
Set s = w.Worksheets(1)
For i = 0 To ListBox1.ListCount - 1
For j = 0 To ListBox1.ColumnCount - 1
s.Cells(i + 1, j + 1) = ListBox1.List(i, j)
Next j
Next i
w.SaveAs ("c:\" & (TextBox3.Text) & ".xls")
MsgBox " C:\ Klasörü içerisine " & (TextBox3.Text) & " Adında Bir Excel Kitabı oluşturulmuştur...", vbDefaultButton1, "AKD.YAZILIM"
Aşağıdaki kodlarla form üzerindeki listbox takileri bir excel kitabı oluşturup sayfa birine yazdırtıyorum, yalnız bu oluşum çok uzun sürüyor.
birde win xp de sorun çıkartıyor, yani çalışmıyor.
Teşekkürler...
Set w = Application.Workbooks.Add
Set s = w.Worksheets(1)
For i = 0 To ListBox1.ListCount - 1
For j = 0 To ListBox1.ColumnCount - 1
s.Cells(i + 1, j + 1) = ListBox1.List(i, j)
Next j
Next i
w.SaveAs ("c:\" & (TextBox3.Text) & ".xls")
MsgBox " C:\ Klasörü içerisine " & (TextBox3.Text) & " Adında Bir Excel Kitabı oluşturulmuştur...", vbDefaultButton1, "AKD.YAZILIM"