(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
teşekkürler @
feraz bey
peki yüklediğim dosyayı deneme imkanınız oldu mu?
csv dosyalarını içeri aktardı mı?
üzgünüm ki, beceremedim
(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
sebebini bilmiyorum ama aşağıdaki gif'te göreceğiniz gibi ben de sorunsuz aktardı.
![[Resim: do.php?img=10543]](https://resim.accesstr.net/do.php?img=10543)
Resim
isterseniz teamviewer ile bağlanıp deneyelim
(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ı?
Rica edrim abey.Evet denedim.Aktardı abey.
(24/10/2020, 14:29)feraz yazdı: [ -> ]Evet denedim.
en heyecanlı yerde bırakmışsınız)
düzgün çalıştı mı?
verileri sorunsuz aldı mı?
pardon şimdi gördüm devamını))