Skip to main content

AccessTr.neT


Excele veri aktarırken sayfa seçimi problemi

Excele veri aktarırken sayfa seçimi problemi

Çözüldü #1
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.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2

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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
(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.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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()"
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 05/12/2011, 22:32, Düzenleyen: drummers.
Cevapla
Çözüldü #5
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #6
(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

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task