AccessTr.neT

Merhaba arkadaşlar,
Excelden veri alma kodum, ofisin 32 bit inde çalışıyordu, ofisi 64 bit yapınca çalışmaz oldu,
neden acaba?

sayın ates2014,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT
modüldeki kodlar 32 bit / 64 bit durumuna göre yeniden düzenlenmiştir.


bilginize...iyi çalışmalar,saygılar.

Sy.Atoz112, sizin ofis32 bit mi 64 bit mi,
gönderdiğiniz belgeyi denedim malesef çalışmıyor,
opendialoğ açılmıyor.?
64 bitte denerseniz görürsünüz farkı...

Merhaba,
dialog modülündeki "GetOpenFile_CLT" fonksiyonunu 64 Bitte çalıştıramazsınız.

modülü tamamen silip butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim Klasor As String

Dim Sonuc As String

With DoCmd

    .SetWarnings False

    .RunSQL "delete from TblUrunler "

    .SetWarnings True

End With



    With Application.FileDialog(msoFileDialogOpen)

    

        .Title = "Select a file"

        .Filters.Clear

        .Filters.Add "Excel files", "*.xlsx, *.xls"

        .AllowMultiSelect = False

        .Title = "Belge Seçiniz"

        .InitialFileName = CurrentProject.Path

        

        Sonuc = .Show

        

            If (Sonuc <> 0) Then

                Klasor = Trim(.SelectedItems.Item(1))

                 DoCmd.TransferSpreadsheet transfertype:=acImport, SpreadsheetType:=5, _

                tablename:="TblUrunler", FileName:=Klasor, _

                Hasfieldnames:=True

                Me.SiraNo.SetFocus

                Me.Requery

        End If

    End With

Sy.ozan kodu ekledim aşağıdaki hata çıktı, sonra kod satırında
With Application.FileDialog(msoFileDialogOpen)
bu satır sarı renkli.

Merhaba,

Referanslara "Microsoft Office 1X.0 Object Library" referansını ekleyiniz.