(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
bunun altına alttaki kodu eklerseniz o klasör altındakiler olan klasör açılır abey.Tabii yol değiştirilebilinirde.
.InitialFileName = CurrentProject.Path