Bu kod ile TextBox verilerimi excele aktarıyorum.
Kod:
Dim xls As New Excel.Application
Dim w As Excel.Workbook = xls.Workbooks.Open("C:\deneme.xls")
xls.Visible = True
w.Sheets("Sayfa3").range("C6") = TextBox1.Text
Fakat çalışma kitabındaki tüm sayfalar seçilmiş olarak açılıyor. Benim istediğim yazdığım sayfanın seçili olarak ekrana gelmesi. Burada select i nereye koyacağımı bilemedim. Teşekkürler.
Dim strWorkSheet As String
Dim xExcel As Excel.Application
Dim xWorkBook As Excel.Workbook
Dim xWorkSheet As Excel.Worksheet
xExcel = New Excel.Application
xExcel.Visible = True
xWorkBook = xExcel.Workbooks.Open("Excel_Dosyam.xls")
xWorkSheet = xWorkBook.Worksheets("Sayfamın_Adı")
xWorkSheet.Activate()
olabilirmi acaba? Örnek dosya olmasını lütfen ihmal etmeyiniz.
(05/12/2011, 22:11)alpeki99 yazdı: [ -> ]
Dim strWorkSheet As String
Dim xExcel As Excel.Application
Dim xWorkBook As Excel.Workbook
Dim xWorkSheet As Excel.Worksheet
xExcel = New Excel.Application
xExcel.Visible = True
xWorkBook = xExcel.Workbooks.Open("Excel_Dosyam.xls")
xWorkSheet = xWorkBook.Worksheets("Sayfamın_Adı")
xWorkSheet.Activate()
olabilirmi acaba? Örnek dosya olmasını lütfen ihmal etmeyiniz.
Dosya boyutu yüksek ve herkesin VB 2010 kullanmadığını varsayarak eklemedim.
Yukarıdaki kodunuza birşey ekliyebilirmisiniz.
Örnek: Textbox1 verisini benim istediğim sayfaya ve benim belirliyeceğim hücreye yazsın.
Teşekkürler.
Kod:
Dim xls As New Excel.Application
Dim w As Excel.Workbook = xls.Workbooks.Open("C:\deneme.xls")
xls.Visible = True
w.Sheets("Sayfa3").range("C6") = TextBox1.Text
w.Sheets("Sayfa3").Activate()
Ben olayı böyle çözdüm ama, siz ne dersiniz?
"w.Sheets("Sayfa3").Activate()"
9. satırda hangi sayfanın seçili olduğunu belirttikten sonra 10. satırda o sayfayı aktif ettik. Bu vakitten sonra belirttiğimiz hücre adresi zaten istediğimiz sayfa olmuş olması lazım.
(05/12/2011, 22:37)alpeki99 yazdı: [ -> ]9. satırda hangi sayfanın seçili olduğunu belirttikten sonra 10. satırda o sayfayı aktif ettik. Bu vakitten sonra belirttiğimiz hücre adresi zaten istediğimiz sayfa olmuş olması lazım.
Teşekkürler. Olay tamamdır
