(24/10/2020, 13:54)berduş yazdı: aşağıdaki dosya önce CSVAktar tanım dosyası oluşturularak yapılan bir çalışmadır, tüm alanlar kısa metin türünde ayarlanmıştır. dilerim işinize yarar
Buton kodu

Private Sub BtnCSVAl_Click()



Dim DosyaBul As Object

Dim vrtSelectedItem As Variant

Dim tblAdi, Tur As String

Set DosyaBul = Application.FileDialog(3)

'"CSVAktar" dosyasını biz oluşturup kaydettik

With DosyaBul

    .AllowMultiSelect = True

    .ButtonName = "Dosya Seç"



    .Filters.Clear

    .Filters.Add "CSV Dosyası", "*.csv"

'    .Filters.Add "Excel", "*.xls,*.xlsx,*.xlsm"

    .Filters.Add "Hepsi", "*.*"

    .FilterIndex = 0

    .Title = "Seç..."

        If .Show = True Then

            For Each vrtSelectedItem In .SelectedItems

            DoCmd.TransferText acImportDelim, "CSVAktar", "ALL Excel File", vrtSelectedItem, True, ""

            

            Next vrtSelectedItem

        MsgBox "Kopyalama Bitti"

        Else

        MsgBox "Kopyalama iptal edildi"

        Exit Sub

        End If

End With



End Sub

With DosyaBul

.InitialFileName = CurrentProject.Path

(24/10/2020, 14:14)berduş yazdı: teşekkürler @feraz bey
peki yüklediğim dosyayı deneme imkanınız  oldu mu?
csv dosyalarını içeri aktardı mı?

(24/10/2020, 13:54)berduş yazdı: aşağıdaki dosya önce CSVAktar tanım dosyası oluşturularak yapılan bir çalışmadır, tüm alanlar kısa metin türünde ayarlanmıştır. dilerim işinize yarar
Buton kodu

Private Sub BtnCSVAl_Click()



Dim DosyaBul As Object

Dim vrtSelectedItem As Variant

Dim tblAdi, Tur As String

Set DosyaBul = Application.FileDialog(3)

'"CSVAktar" dosyasını biz oluşturup kaydettik

With DosyaBul

    .AllowMultiSelect = True

    .ButtonName = "Dosya Seç"



    .Filters.Clear

    .Filters.Add "CSV Dosyası", "*.csv"

'    .Filters.Add "Excel", "*.xls,*.xlsx,*.xlsm"

    .Filters.Add "Hepsi", "*.*"

    .FilterIndex = 0

    .Title = "Seç..."

        If .Show = True Then

            For Each vrtSelectedItem In .SelectedItems

            DoCmd.TransferText acImportDelim, "CSVAktar", "ALL Excel File", vrtSelectedItem, True, ""

            

            Next vrtSelectedItem

        MsgBox "Kopyalama Bitti"

        Else

        MsgBox "Kopyalama iptal edildi"

        Exit Sub

        End If

End With



End Sub

(24/10/2020, 14:14)berduş yazdı: teşekkürler @feraz bey
peki yüklediğim dosyayı deneme imkanınız  oldu mu?
csv dosyalarını içeri aktardı mı?

(24/10/2020, 14:29)feraz yazdı: Evet denedim.