N Kadar CSV Dosyasını Access İçine Atmak

N Kadar CSV Dosyasını Access İçine Atmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: N Kadar CSV Dosyasını Access İçine Atmak (/konu-n-kadar-csv-dosyasini-access-icine-atmak.html)

Sayfalar: 1 2 3 4 5

RE: N Kadar Excel Dosyasını Access İçine Atmak - feraz - 24/10/2020

(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

RE: N Kadar Excel Dosyasını Access İçine Atmak - berduş - 24/10/2020

teşekkürler @feraz bey
peki yüklediğim dosyayı deneme imkanınız oldu mu?
csv dosyalarını içeri aktardı mı?

RE: N Kadar Excel Dosyasını Access İçine Atmak - aliyuzen - 24/10/2020

üzgünüm ki, beceremedim Img-cray

(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ı

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

RE: N Kadar Excel Dosyasını Access İçine Atmak - berduş - 24/10/2020

sebebini bilmiyorum ama aşağıdaki gif'te göreceğiniz gibi ben de sorunsuz aktardı.
[Resim: do.php?img=10543]

Resim
isterseniz teamviewer ile bağlanıp deneyelim

RE: N Kadar Excel Dosyasını Access İçine Atmak - feraz - 24/10/2020

(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.

RE: N Kadar Excel Dosyasını Access İçine Atmak - berduş - 24/10/2020

(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ı))