(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ı?
Ekteki hata mesajını alıyorum. butona bastığımda bende çalışmadı
(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
