VB Excelle Veri Yazdırma

[neowin]

Arkadaslar merhaba ekte bulunan projedeki alanları doldurup kaydet dediğimde sırayla bir excell dosyasına yazdırmak istiyorum yardımlarınız için simdiden tesekkürler.

 

[neowin]

86 kez görüntülenmis ama cevap yok sanırım bilgisi olan arkadaslar daha bakmadı diye düsünüyorum yoksa yeni üyelikten dolayı mı pek umursanmadı acaba ama böyle olduğunu sanmıyorum

 

[Zeki Gürsoy]

Merhaba,

Burası excel forum olduğundan herkes visual studio ile çalışmıyor.

VS ile çalıştığınıza göre VB bilginizin iyi olduğunu tahmin ederek aşağıdaki gibi rota izlemeniz gerekiyor.

[COLOR=DarkGreen]' VB Net [/COLOR]

xl = createobject("excel.application")[COLOR=DarkGreen] ' uygulama[/COLOR]
xl.visible=true[COLOR=DarkGreen] ' görünür[/COLOR]
wb = xl.workbooks.add [COLOR=DarkGreen]' yeni kitap[/COLOR]
sh = wb.worksheets(1)[COLOR=DarkGreen] ' birinci sayfa[/COLOR]

sh.range ("a1") = textbox1.value 

msgbox ("tamam")

 

[neowin]

bilgi için teşekkürler arkadasım vb çalışıyorum ama çok bir bilgim yok yeni baslayanlardanım

 

[neowin]

Merhaba,

Burası excel forum olduğundan herkes visual studio ile çalışmıyor.

VS ile çalıştığınıza göre VB bilginizin iyi olduğunu tahmin ederek aşağıdaki gibi rota izlemeniz gerekiyor.

[COLOR=DarkGreen]' VB Net [/COLOR]

xl = createobject("excel.application")[COLOR=DarkGreen] ' uygulama[/COLOR]
xl.visible=true[COLOR=DarkGreen] ' görünür[/COLOR]
wb = xl.workbooks.add [COLOR=DarkGreen]' yeni kitap[/COLOR]
sh = wb.worksheets(1)[COLOR=DarkGreen] ' birinci sayfa[/COLOR]

sh.range ("a1") = textbox1.value 

msgbox ("tamam")

verdiğiniz sekilde hata veriyor fakat boyle yaptığım zaman oluyor ama benim derdim su sıralı olarak yazdırmak istiyorum yani 1. satır doluysa 2. satıra yazsın gibi

Dim xlApp As Object
Dim xlWB As Object
xlApp = CreateObject("Excel.Application")

' if you want to make it visible
xlApp.Visible = True

'and to do stuff with it
xlWB = xlApp.Workbooks.Open("D:\Kitap1.xlsx")
xlWB.Sheets("Sayfa1").range("A2") = TextBox1.Text
xlWB.Sheets("Sayfa1").range("B2") = TextBox2.Text
'and at the end
xlWB.Save()
xlWB.Close()
xlApp.Quit()
xlWB = Nothing
xlApp = Nothing
MessageBox.Show("Kaydınız Başarıyla Alınmıştır. Teşekkürler")
End Sub

 

[omerceri]

Aşağıdaki gibi deneyin

Dim say as integer
say = xlWB.Sheets("Sayfa1").range("A10000").end(3).Row +1
xlWB.Sheets("Sayfa1").range("A" & say) = TextBox1.Text
xlWB.Sheets("Sayfa1").range("B" & say) = TextBox2.Text

 

[neowin]

Omer Çeri Çok tesekkürler