Excel'e seçerek veri gönderme - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Excel'e seçerek veri gönderme (/konu-excel-e-secerek-veri-gonderme.html) Sayfalar:
1
2
|
Cvp: Excel'e seçerek veri gönderme - kdurmaz - 31/01/2009 Yani, bunun için ne yapmalıyım, daha açıklayıcı olur musunuz rica etsem? system32 nin altına baktım MSCOMCTL.OCX dosyası var. Cvp: Excel'e seçerek veri gönderme - ozanakkaya - 31/01/2009 vb penceresini aç, Vba penceresindeki Tools-References'i aç, "Browse..." yi tıkla ve system32 klasöründeki MSCOMCTL.OCX'i seç ve Aç butonunu tıkla. bu şekilde Microsoft Windows Common Controls 6.0 (SP6) referanslara eklenir. Cvp: Excel'e seçerek veri gönderme - kdurmaz - 31/01/2009 sevgili sledgeab, Adım adım sonuca ulaşıyoruz galiba, ama hala tamamlanmış değil. Söylediğin yöntem o sorunu çözdü fakat bu kez LBExcel modülünde bir hata oluştu. Şöyleki: Açılan kutudan ilgili tablo adını seçtik, alan adları aşağıda listelendi. "Ver Excele" dediğimizde ------------------------------ Option Compare Database Option Explicit Dim ExC As Excel.Application Dim ExW As Workbook Dim ExS As Worksheet ----------------------------- "Dim ExC As Excel.Application" satırında aynı compile error verdi. Eklemem gereken başka bir referans mı var acaba. saygılar, sevgili sledgeab, Bu sorunu da çözdüm, sana bir önceki yanıtı yazarken aklıma acaba Microsoft Office Excel'i de referanslara eklersem sorun hallolur mu dedim ve ekledim, sorun çözüldü. Şimdi benim tablomdaki alan isimlerinden ikisinde excele gönderirken sorun yaratıyor onu anlamaya çalışıyorum, çözebilirsem ne ala, çözemezsem tekrar yardımını isteyeceğim. saygılar, Sevgili sledgeab, Bahsettiğim problemi de giderdim. Konu benim için çözümlenmiştir. Yardımların için teşekkürler. Ayrıca sn. alpeki99 ve sn.Bilgisayarcıya da yardımlarından dolayı teşekkür ederim. Bu site benim hayatımı kolaylaştırıyor, hepinize sevgi ve saygılarımı sunuyorum. Saygılarımla, Cvp: Excel'e seçerek veri gönderme - osman06 - 07/03/2013 mrb bende de aşağıdaki gibi bir hata mesajı veriyor. sıkıntı nedir acaba complite erros sub or function not defined ve aşağıdaki kodda işaretli yeri açıyor Private Sub ListeyiYukle(KaynakAdi As String) Dim s As String Dim i As Integer Dim SutunSay As Integer Dim lstItem As ListItem If Len(KaynakAdi & "xx") <= 2 Then Exit Sub TabloAdi = KaynakAdi s = "Select * from " & KaynakAdi If Not AdoAc1(s) Then MsgBox "Tablo/Sorgu açılamadı", vbInformation Exit Sub End If With ListView1 .ListItems.Clear .ColumnHeaders.Clear .View = lvwReport .GridLines = True .FullRowSelect = True .Checkboxes = True .ColumnHeaders.Add , , "Alan", .Width - 200 End With SutunSayisi = Rs1.Fields.Count - 1 For i = 0 To SutunSayisi Set lstItem = ListView1.ListItems.Add() lstItem.Text = Nz(Rs1.Fields(i).Name, "-") Next AdoKapa 1 End Sub |