Excelden veri alma

1 2 3 4 5
13/10/2016, 10:00

ates2014

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

atoz112

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.
13/10/2016, 11:01

ates2014

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ı...
13/10/2016, 11:12

ozanakkaya

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
13/10/2016, 11:26

ates2014

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



13/10/2016, 11:29

ozanakkaya

Merhaba,

Referanslara "Microsoft Office 1X.0 Object Library" referansını ekleyiniz.
1 2 3 4 5