Bu kod ile TextBox verilerimi excele aktarıyorum.




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.

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