Skip to main content

AccessTr.neT


Accessten Excel E

Accessten Excel E

Çözüldü #1
Option Compare Database

Private Sub AKTAR_Click()
' REFERANSLARDAN MİCROSOFT Excel ... OBJECT LİBRARY TANIMLAMINIZ GEREKİYOR..
Dim Exapp As Excel.Application
Dim rs As Recordset
Dim yol As String
Dim x As Long
On Error Resume Next
Set Exapp = GetObject("", "excel.application")
If Err.Number <> 0 Then
  Err.Clear
        Set Exapp = CreateObject("Excel.Application")
End If
    On Error GoTo Error_Handler
   
'exel yol tanımlıyoruz..
yol = CurrentProject.Path & "\gonderilen_yer.xlsx"
'exceli açarak yükler.. false derseniz.. exceli açmadan yükler.. size kalmış
Exapp.Visible = True
Exapp.Workbooks.Open yol

'eski Excel verileri siliyoruz...
With Exapp
          .Range("a5", .Range("a5").End(xlDown).End(xlDown).End(xlToRight)).Select
          .Range("a5", .Range("a5").End(xlDown).End(xlDown).End(xlToRight)).Delete
          .Range("a5").Select
End With

'rapor sorgusunu açılıyor...
Set rs = CurrentDb.OpenRecordset("görevlendirme_icmal")

x = 5
Do While Not rs.EOF

With Exapp
    .Cells(x, 1) = rs("il")          ' 1 A KOLONU
    .Cells(x, 2) = rs("İLÇE")            '2 B KOLONUDUR
    .Cells(x, 3) = rs("GÖREV BAŞLAMA")
    .Cells(x, 4) = rs("PERSONEL SAYISI")
    .Cells(x, 5) = rs("AA")
    .Cells(x, 6) = rs("BB")
    .Cells(x, 7) = rs("SORUMLU TEL")
End With
rs.MoveNext
x = x + 1
Loop
'SORGUYU KAPATIYORUZ..
rs.Close
'İŞLEMİ BİTİRİYORUZ.. VE ÇIKIYORUZ..
Exit Sub

Error_Handler:
Exapp.ActiveWorkbook.Close True
Exapp.Workbooks.Close
Exapp.Quit
Set Exapp = Nothing
Resume 0

End Sub


Merhaba hocalarım,  o kadar örnek inceledim sonunda bunu buldum düzenledim biraz işime yaradı ama, aynı kitapta 2 syfaya, 3. sayafaya da başka butonlarla veri aktarmam lazım bubun gibi   bunu üzerinde nasıl bir ekleme yapılmalı yardımcı olabilrimisiniz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Accessten Excel E - Yazar: ferdiqq - 11/11/2019, 18:13
Cvp: Accessten Excel E - Yazar: berduş - 11/11/2019, 18:36
Cvp: Accessten Excel E - Yazar: ferdiqq - 11/11/2019, 22:46
Cvp: Accessten Excel E - Yazar: berduş - 11/11/2019, 23:33
Cvp: Accessten Excel E - Yazar: ferdiqq - 12/11/2019, 00:29
Cvp: Accessten Excel E - Yazar: berduş - 12/11/2019, 00:55
Cvp: Accessten Excel E - Yazar: ferdiqq - 12/11/2019, 11:58
Cvp: Accessten Excel E - Yazar: berduş - 12/11/2019, 12:51
Cvp: Accessten Excel E - Yazar: ferdiqq - 12/11/2019, 13:00
Cvp: Accessten Excel E - Yazar: ozanakkaya - 12/11/2019, 13:13
Cvp: Accessten Excel E - Yazar: ferdiqq - 12/11/2019, 13:31
Cvp: Accessten Excel E - Yazar: ferdiqq - 12/11/2019, 14:01
Cvp: Accessten Excel E - Yazar: berduş - 12/11/2019, 14:15
Cvp: Accessten Excel E - Yazar: ferdiqq - 12/11/2019, 14:30