excele gönderilen veriyi yeni sayfa olarak ekleme - 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ığı: excele gönderilen veriyi yeni sayfa olarak ekleme (/konu-excele-gonderilen-veriyi-yeni-sayfa-olarak-ekleme.html) |
excele gönderilen veriyi yeni sayfa olarak ekleme - accessman - 13/05/2011 hayırlı cumalar eklediğim örnekte Access dosyasındaki adresler formundaki ekcele gönder butonuna tıklayınca aktif kayıttaki adresno adı soyadı bilgilerini aynı klasördeki Excel dosyasına göndermek istiyorum ama bu gönderdiğim bilgiler daha sonra gerektiğinde tekrar yazdırılabilmesi için saklanabilmeli amacım butonu tıkladığımda hangi kayıtta isem o kaydın adresno değeri ile excel dosyasında yeni bir sayfa açılmalı ve o kayıttakı bilgiler ilgili hücrelere yazılmalı inşallah anlatabilmişimdir örnekte 3. ve 4. kayıtlar excele gönderildiği takdirde olması gerekeni gösterdim yani adresler formunda herhangi bir kayıtta iken excele gönder butonuna tıkladığımda daha önceden kayıtlı olan aynı klasör altındaki excele gönder xls dosyasına ilgili kaydın adresno değeri ile yani sayfa açılacak hatta olursa bu açılan sayfa ikinci bir mudahaleye gerek olmadan yazdrırılırsa süper olur yardımlarınınız iiçin teşekkürler Cvp: excele gönderilen veriyi yeni sayfa olarak ekleme - DUAYEN - 13/05/2011 Access den pek anlamam ama yinede bu kod belki işini görür kendine göre uyarlama yaparsın artık .[/code] [code]Sub TransferEt() Dim excel_Dosya As Object, FormAdı As String, Yol As String Set excel_Dosya = CreateObject("excel.Application") Yol = ThisWorkbook.Path & "\Veriler.mdb" Set Syf = Sheets("Sayfa1") Strlr = Syf.Range("A1:T65536").End(xlUp).Row FormAdı = "TransferVerileri" With excel_Dosya .OpenCurrentDatabase Yol With .DOCMD On Error Resume Next .DeleteObject acTable, FormAdı On Error GoTo 0 .TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, FormAdı, ThisWorkbook.FullName, Strlr .Opentable FormAdı, acViewNormal, acAdd .Close End With .Quit End With Set excel_Dosya = Nothing End Sub Cvp: excele gönderilen veriyi yeni sayfa olarak ekleme - accessman - 13/05/2011 bu kodu benim örneğime uyarlayabilirmisiniz Cvp: excele gönderilen veriyi yeni sayfa olarak ekleme - DUAYEN - 13/05/2011 Sn ; Accesman size söyledim Access den anlamıyorum.siz kendinize göre uyarlayın biraz çaba sarfedin lütfen. |