AccessTr.neT

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.

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

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

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

Selam ve sevgiler..

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

qhuan

Seruz

qhuan

assenucler

benremix