AccessTr.neT
Excele veri aktarırken sayfa seçimi problemi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excele veri aktarırken sayfa seçimi problemi (/konu-excele-veri-aktarirken-sayfa-secimi-problemi.html)



Excele veri aktarırken sayfa seçimi problemi - drummers - 05/12/2011

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.


Cvp: Excele veri aktarırken sayfa seçimi problemi - alpeki99 - 05/12/2011


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.


Cvp: Excele veri aktarırken sayfa seçimi problemi - drummers - 05/12/2011

(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.



Cvp: Excele veri aktarırken sayfa seçimi problemi - drummers - 05/12/2011

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()"


Cvp: Excele veri aktarırken sayfa seçimi problemi - alpeki99 - 05/12/2011

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.


Cvp: Excele veri aktarırken sayfa seçimi problemi - drummers - 05/12/2011

(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 Img-grin