Skip to main content

AccessTr.neT


adresi belli klasorden csv dosyası alma

adresi belli klasorden csv dosyası alma

Çözüldü #1
Herkese merhaba


Ekteki

“Kopya_ Maytas_Klasor+ csv Veril al + ayır” Vt Win 7 ve Acsess run time olan bir PC de çalışmadı

Vt daki “Maytas_Form” formu açılıyor “ klasore gozat” penceresi de açılıyor ama dosyaları
listelemiyor

“Maytas_Form” da klasör seçme yerinde doğrudan
C: /OKUMA/ adresindeki “. csv” dosyaları listelemesi de benim için yeterli

Mevcut kodu nasıl değiştirmek gerekir


Private Sub Komut2_Click()
Me.Liste18.RowSource = ""

Dim Obj As Object, Klasor As String
Set Obj = CreateObject("shell.application")
Klasor = Klasor_Secimi 'Api fonksiyonu
If Klasor = "" Then Exit Sub
KlasorYolu.Caption = Klasor
Call Tablo_Olustur
Dim Litem As MSComctlLib.ListItem
ListView3.ColumnHeaders.Clear
ListView3.ColumnHeaders.Add , , "Dosya Adı", ListView3.Width / 3
ListView3.ColumnHeaders.Add , , "Dosya Yolu", ListView3.Width * 2 / 3
ListView3.View = lvwReport
ListView3.GridLines = True
ListView3.ListItems.Clear

If IsNull(Uzanti_Liste.Value) Then
Dosya_Listele Klasor
Else
Dosya_Listele Klasor, Uzanti_Liste.Value
End If
If Listelendi Then
Me.Liste18.RowSource = "SELECT [DosyaYolu] & [DOsyaadi] AS Deyim1 FROM YeniTablo"
MsgBox "Dosyalar listelendi ve YeniTablo'ya alındı.", vbInformation, "Sonuç"
End If


End Sub


İyi akşamlar
.zip Kopya_ Maytas_Klasor+ csv Veril al + ayır.zip (Dosya Boyutu: 163,12 KB | İndirme Sayısı: 8)
Cevapla
Çözüldü #2
Aşağıdaki kodu yeni bir formda yeni bir buton olayına yazınız. Maytaş hocamın örneğinden bağımsız olarak bunu yapın.
Kolay Gelsin.

Sub dosyalarial()
' Öncelikle Referanslar içine Microsoft Office XX.0 Library Eklenecek...
Dim kural As Variant
With Application.FileDialog(msoFileDialogFilePicker)
'açılan pencere adı
.Title = "Okuma Dosyaları..."
.Filters.Clear
.Filters.Add "CSV Dosyaları", "*.csv"
.FilterIndex = 3
.AllowMultiSelect = True
.InitialFileName = "c:\okuma\"
.Show
If .SelectedItems.Count > 0 Then
For Each kural In .SelectedItems
kural = Trim(kural)
Debug.Print kural


' Bu döngünün içine tabloya alma komutları girecek...
' Açılan pencereden dosyalarınızı seçeceksiniz...
' Sonra Tamam Tıklandıktan Sonra Dosyalar Sırayla Alınmaya Başlayacak...


Next
End If
End With
End Sub


20:49 itibari ile değişiklik yaptım. Ona göre alınız.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
Merhaba Sayın Kural Hocam

Yazdıkarınızı yaptım dosyayı gördim ama döngünün içini dolduramadım.
benim bunu Maytaş Hocamın prg içine almam gerek çünkü bu dosyaları ayıracağım
Cevapla
Çözüldü #4
diğer çalışmada nasıl aldığınızı ekleyinde bakalım.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #5
ekledim Sayın Kural

orjinal dosya ilk mesajım da var
son yolladıgımda Maytaş hocamın ki bozuldu
.zip Kopya_ Maytas_Klasor+ csv Veril al + ayır_eklı.zip (Dosya Boyutu: 149,58 KB | İndirme Sayısı: 4)
Son Düzenleme: 28/11/2012, 23:15, Düzenleyen: ucloy.
Cevapla
Çözüldü #6
eklediğimi inceleyin.
.zip Kopya_ Maytas_Klasor+ csv Veril al + ayır_eklı.zip (Dosya Boyutu: 49,59 KB | İndirme Sayısı: 12)
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da