adresi belli klasorden csv dosyası alma
Tarih
28/11/2012 21:08
Konu Sahibi
ucloy
Yorumlar
8
Okunma
2586
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.032
05/11/2008
KONYA
Ofis 2010
Bugün,00:25
Çözüldü 
Sponsor Reklam
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.032
05/11/2008
KONYA
Ofis 2010
Bugün,00:25
Çözüldü 
Sponsor Reklam
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.032
05/11/2008
KONYA
Ofis 2010
Bugün,00:25
Çözüldü 
Sponsor Reklam
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
  Excelden Veri Alma estapan 2 94 Dün, 15:40 estapan
  Accesste Resime Tıklama Ve Ses Dosyası Çalıştırma Nasıl Yapılır? mehami 2 141 14/04/2017, 00:26 mehami
  Tarih İçinden Ay Ve Yılı Alma Allback 2 117 12/03/2017, 10:52 Allback
  Web Den Satır Sayısı Belli Olmayan Tablodan Veri Almak stringeer 2 112 28/02/2017, 08:18 stringeer
  Excelden veri alma ates2014 27 984 20/02/2017, 09:35 caytug


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status