2-Gözat dan csv dosyalarınızdan birini seçin.
3-Açılan Metin Alma sihirbazında Sınırlanmışı seçip, ileriyi tıklayın.
4-"İlk Satır Alan Adlarını İçerir" onaylayıp, ileriyi tıklayın.
5-"Birincil Anahtar Olmasın" onaylayıp, ileriyi tıklayın.
6-Metin Alma Sihirbazında Sol altta bulunan "Gelişmiş" Düğmesine tıklayın.
7-Açılan İletişim kutusunda "Farklı Kaydet" düğmesine tıklayın.
8-Yine açılacak İletişim kutusuna herhangi bir isim yazıp "Tamam" düğmesini tıklayın
9-"Farklı Kaydet" Düğmesinin üstündeki "Tamam" düğmesine tıklayın.
10-"Son" düğmesine tıklayın.
11-"Kapat" düğmesini tıklayın.
Yukardaki tüm işlemleri 8. maddede belirtilen işlem içindi.
Bir form oluşturun, formda 1 adet Liste kutusu, bir adette düğme olsun.
Liste kutusunun özelliklerinde
"Satır Kaynak Türü" = Değer
"Çoklu Seçim" = Basit
olarak ayarlayın.
Formun Kod Modülüne aşağıdaki kodlarını kendinize uyarlayarak yapıştırın
Kod:
Private Sub Form_Load()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(Application.CurrentProject.Path)
Set dc = f.Files
For Each Dosya In dc
If Right(Dosya.Name, 3) = "csv" Then Liste0.AddItem Dosya.Name
Next
End Sub
Private Sub Komut2_Click()
For Each varItm In Liste0.ItemsSelected
DoCmd.TransferText acImportDelim, "isim", "ali", Application.CurrentProject.Path & "\" & Liste0.ItemData(varItm), True, ""
Next varItm
End Sub