adresi belli klasorden csv dosyası alma
Tarih
28/11/2012 21:08
Konu Sahibi
ucloy
Yorumlar
8
Okunma
2486
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ucloy
Aktif Üye
Kullanici Avatari
Aktif Üye
95
10/10/2009
15
Kocaeli
Ofis XP
29/04/2016,12:54
Çözüldü 
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


Ek Dosyalar
.zip   Kopya_ Maytas_Klasor+ csv Veril al + ayır.zip (Dosya Boyutu: 163,12 KB / İndirme Sayısı: 7)
ucloy, 10-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
Dün,23:57
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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


ucloy
Aktif Üye
Kullanici Avatari
Aktif Üye
95
10/10/2009
15
Kocaeli
Ofis XP
29/04/2016,12:54
Çözüldü 
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
ucloy, 10-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
Dün,23:57
Çözüldü 
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


ucloy
Aktif Üye
Kullanici Avatari
Aktif Üye
95
10/10/2009
15
Kocaeli
Ofis XP
29/04/2016,12:54
Çözüldü 
ekledim Sayın Kural

orjinal dosya ilk mesajım da var
son yolladıgımda Maytaş hocamın ki bozuldu


Ek Dosyalar
.zip   Kopya_ Maytas_Klasor+ csv Veril al + ayır_eklı.zip (Dosya Boyutu: 149,58 KB / İndirme Sayısı: 3)
ucloy, 10-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
Dün,23:57
Çözüldü 
eklediğimi inceleyin.


Ek Dosyalar
.zip   Kopya_ Maytas_Klasor+ csv Veril al + ayır_eklı.zip (Dosya Boyutu: 49,59 KB / İndirme Sayısı: 10)
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  webden veri alma, veri tabanına ekleme.... mbo69221088 15 232 Dün, 00:08 mbo69221088
  Webden veri alma stringeer 11 245 08/12/2016, 09:26 stringeer
  Dosya konumunu alma tufanbal 7 138 02/12/2016, 10:48 tufanbal
  web sayfasının belli bir kısmını gösterme maras321 2 85 30/11/2016, 17:38 maras321
  Sorguda Kullanıcı Adını alma tufanbal 4 127 08/11/2016, 08:10 tufanbal


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya