Excelden veri alma

1 2 3 4 5
15/10/2016, 14:56

ates2014

Sy.Atoz112 sorumun çözüldü, teşekkür ederim...
18/02/2017, 14:47

caytug

Private Sub Komut7_Click()
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

End Sub
(13/10/2016, 12:06)atoz112 yazdı: sayın ates2014,

EK'te yer alan örnek uygulamayı deneyiniz.

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

Sayın atoz112
eğer excelden veri alırken sütunlarda başlık olmadan  ilk sıradan itibaren veri almak istersek yukarıdaki kodları nasıl düzenlememiz gerekir.Teşekkürler
18/02/2017, 17:31

atoz112

sayın caytug,

Alıntı:excelden veri alırken sütunlarda başlık olmadan  ilk sıradan itibaren veri almak istersek yukarıdaki kodları nasıl düzenlememiz gerekir.

ifadenize yönelik olarak;

excel uygulamasından veri alırken,ilk sıra diye tabir ettiğiniz başlık ifadelerinin olması gerekir.nedeni de;bu başlık ifadeleri,veri almak üzere tabloya aktarılırken ALAN ADI olarak kullanılıp,tablodaki alan adları ile eşitlik sağlanması akabinde mevcut değerleri aktarmaktadır.

eğer başlık satırını iptal edip,örneğin:
1.satırda BAŞLIK ifadeleri olsun ve diğer değerler de 2.satırdan itibaren mevcut olsun.
A2:C3 gibi bir şekilde bu kodların bitimine alan olarak dahil edilerek kullanılması söz konusu olursa,hata iletisi olarak,ALAN ADI uyuşmazlığını gösterecektir.

dolayısı ile,bu başlık satırındaki ifadeler sadece,bu eşleşmeyi sağlamak amacı ile kullanılır.

bilginize...iyi çalışmalar,saygılar.
20/02/2017, 09:35

caytug

Sayın atoz112
Bilgi için teşekkürler.
1 2 3 4 5