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
Task