AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

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

16/11/2009, 13:01

qhuan

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.
16/11/2009, 16:07

Seruz

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
16/11/2009, 16:34

qhuan

Teşekkür ederim SERUZ,
Çok yardımcı oldu,
16/11/2009, 16:40

assenucler

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

Selam ve sevgiler..
16/11/2009, 23:05

benremix

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