Excel'den Data Alıp Tablonun Altına Eklemek

Excel'den Data Alıp Tablonun Altına Eklemek - 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'den Data Alıp Tablonun Altına Eklemek (/konu-excel-den-data-alip-tablonun-altina-eklemek.html)

Excel'den Data Alıp Tablonun Altına Eklemek - qhuan - 16/11/2009

Arkadaşlar Merhaba,
Uzun süre araştırmama rağmen,
Ekte gönderdiğim dosyadaki gibi, bir browse tuşu ile Excel dosyasını alip örnekte olduğu gibi listeden seçilecek tablo1'in altına bu datayı eklemeyi başaramadım.
Yardım edebilirseniz çok sevinirim,
Şimdiden teşekkürler.

Cvp: Excel'den Data Alıp Tablonun Altına Eklemek - Seruz - 16/11/2009

DoCmd.TransferSpreadsheet komutu ile gerçekleştirebilirsiniz.
Örnek ektedir.

Kod:

Private Sub btn_Transfer_Click()

On Error GoTo Hata

If IsNull(Me.txtPath) Or IsNull(Me.Tablo_Listesi) Then Exit Sub

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Me.Tablo_Listesi.Column(1), Me.txtPath, True

    MsgBox "Transfer yapıldı"

Exit Sub

Hata:

    MsgBox Err.Description, vbCritical, "mkmkmkm"

    Exit Sub

End Sub

Cvp: Excel'den Data Alıp Tablonun Altına Eklemek - qhuan - 16/11/2009

Teşekkür ederim SERUZ,
Çok yardımcı oldu,

Cvp: Excel'den Data Alıp Tablonun Altına Eklemek - assenucler - 16/11/2009

Sayın Seruz teşekkür...

Selam ve sevgiler..

Cvp: Excel'den Data Alıp Tablonun Altına Eklemek - benremix - 16/11/2009

Katkı ve paylaşım için teşekkürler. Saygılar....