Skip to main content

AccessTr.neT


Excel Den Hücre Verisi Alma ?

Excel Den Hücre Verisi Alma ?

#73
(19/01/2020, 15:20)berduş yazdı:
(19/01/2020, 15:03)Myalim yazdı: Tek sorunumuz sıfırdan oluşan veri yüklü Excel
sıfırdan nasıl oluşturuyorsunuz?
ben de mesela sıfırdan dosya oluşturup veri ekleyip kapattım Access sorunsuz aldı
Aslında hocam çözdüm sayılır form açıldığında olay yordamına Bilgiler. Xls açacak bir kod yazdım dolayısıyla çözüldü diyebiliriz. Son kez cevaplanmışlara taşıyabiliriz, her şey için çok çok teşekkürlwr
Cevapla
#74
Kod yazmıştım belki lazım olur Img-grin


Private Sub Komut0_Click()

  Call excelAcKapat


'    myWorkbook.Close False  buradaki tek tırnak kalkarsa kapanır excel


Kod:
Option Compare Database

Sub excelAcKapat()

    Dim yol As String
    Dim appExcel As Object
    Dim myWorkbook As Object
    yol = CurrentProject.Path & "\Bilgiler.xlsx"
   
    Set appExcel = CreateObject("Excel.Application")
    Set myWorkbook = appExcel.Workbooks.Open(yol)
   
    appExcel.Visible = True
'    myWorkbook.Close False
   
    Set appExcel = Nothing
    Set myWorkbook = Nothing


End Sub

.rar Test berdus hoca.rar (Dosya Boyutu: 40,13 KB | İndirme Sayısı: 5)
Cevapla
#75
(19/01/2020, 15:54)feraz yazdı: Kod yazmıştım belki lazım olur Img-grin


Private Sub Komut0_Click()

  Call excelAcKapat


'    myWorkbook.Close False  buradaki tek tırnak kalkarsa kapanır excel


Kod:
Option Compare Database

Sub excelAcKapat()

    Dim yol As String
    Dim appExcel As Object
    Dim myWorkbook As Object
    yol = CurrentProject.Path & "\Bilgiler.xlsx"
   
    Set appExcel = CreateObject("Excel.Application")
    Set myWorkbook = appExcel.Workbooks.Open(yol)
   
    appExcel.Visible = True
'    myWorkbook.Close False
   
    Set appExcel = Nothing
    Set myWorkbook = Nothing


End Sub

Hocam bu da çok makbule geçti çok çok teşekkür ederim
Cevapla
#76
@feraz hocamınkine alternatif olarak)

kodu aşağıdaki gibi düzenler misiniz
    Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sConn As String, sConn2 As String
Dim degerler, cinsiyet, sSql, GcDgr As String
txtDosyaAdres = CurrentProject.Path & "\Bilgiler.xlsx" ' Buraya dosya adresi ve adı yazılacak
'hy Excel Acıp kapatma_____________________________________
Dim xlApp As Object

Set xlApp = CreateObject("Excel.Application") 'exceli aç
With xlApp
.Workbooks.Open (txtDosyaAdres) 'Excel dosyasını aç
.ActiveWorkbook.Close False ' kaydetmeden kapat _
eğer kaydetmesini isterseniz .ActiveWorkbook.Close TRUE yapmalısınız
If .Workbooks.Count = 0 Then .Quit ' kaç Excel dosyası açık eğer başka açık dosya yoksa Excel kapatır
End With
'hy Excel Acıp kapatma_____________________________________Bitti
degerler = ""

sSql = "select F2,F6,f15 from [Bilgiler1$] where f2 Is Not Null" '
sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & txtDosyaAdres
sConn2 = ";Extended Properties=""Excel 12.0 Xml;HDR=No;Imex=1"";"

Set con = New ADODB.Connection
con.Open sConn & sConn2

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sSql, con, adOpenKeyset 'rather use this so RecordCount works

If rs.RecordCount = 0 Then Exit Sub
rs.MoveLast
rs.MoveFirst
x = 0
Do Until rs.EOF = True
x = x + 1
cinsiyet = cinsiyet & rs.Fields(2)
GcDgr = ", '" & rs.Fields(1) & "'"
If x = 8 Then GcDgr = ", '" & CStr(CDate(rs.Fields(1))) & "'" 'doğum tarihini tarihe çevirmek için
If x = 11 Then GcDgr = "" 'NUFUSA KAYITLI OLDUĞU satırını pas geçmesi için
degerler = degerler & GcDgr
rs.MoveNext
Loop
degerler = Mid(degerler & ", '" & cinsiyet & "'", 2)

sSql = " insert into [Veriler1] (seriNo, kimlikNo, soyad, adi, babaAd, anneAd, dogumYeri, dogumTarih, medeni, durumu, nufusil, nufusilce, nufusKoyMahalle,cinsiyet) " & _
" values (" & degerler & ")"
CurrentDb.Execute sSql
Set rs = Nothing
Cevapla
#77
(19/01/2020, 16:06)berduş yazdı: üstteki mesajı tekrar düzenledim
yanlış kod yapıştırmışım
tamamdır hocam deniyorum
Cevapla
#78
mesajı tekrar güncelledim yarım yapıştırmışım kusura bakmayın
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task