Çözüldü Dosya yolunu hücreden alma

[schlecht]

Yol = "..........................................\" & F1 & " \" & G1 & "_" & F1 & ""

dosya adını f1 ve g1 den aldırmak istiyorum nerede hata yapıyorum acaba ?

Dosya yolu

Yol = "..........................................\2010\85_2010 şeklinde

İyi çalışmalar....

 

[hamitcan]

F1 & "" boşluk neden bıraktınız ? Ayrıca dosya ismi yok. Dosya ismi sonunda uzantısını da yazmayı unutmayın.

 

[schlecht]

Sub say()
Range("B2:C100").ClearContents
Set con = CreateObject("AdoDB.Connection")
Set cat = CreateObject("Adox.Catalog")
Set syf = CreateObject("Adox.Table")
Set fso = CreateObject("Scripting.FileSystemObject")
Yol = "\\deneme\" & F2 & " \" & G2 & "_" & F2 & ""

Set Klasor = fso.GetFolder(Yol): sat = 2
For Each Dosyalar In Klasor.Files
con.Open "Provider=Microsoft.ace.OleDb.12.0;Data Source=" & _
Dosyalar & ";Extended Properties=""Excel 12.0;HDR=no"""
cat.ActiveConnection = con
For Each syf In cat.Tables
Set Rs = con.Execute("Select count(F1) FROM [" & syf.Name & "]")
Cells(sat, 2).Value = Replace(Dosyalar.Name, ".xlsx", "")
Cells(sat, 3).Value = Rs(0).Value - 1
sat = sat + 1
con.Close
Next syf
Next Dosyalar
End Sub


Hocam kodun tamamı bu, dosya uzantısına ihityaç yok sanırım klasördeki tüm xlsx dosyalarında ki verileri sayıyor.

dosya yolunda son 2 klasör adını hücreden aldırmak istiyorum.

 

[schlecht]

Klasör yolu yazmam gerekiyordu sanırm.

 

[askm]

F2yerine [F2] şeklinde yazın. Ya da range("f2") yazın. Ya da cells(2,"f")yazın.

 

[schlecht]

Cevabınız için teşekkürler. ("f2") ile sorunumu çözdüm.

 

[teknomaster]

Merhaba
a1 de dosya yolu - B1 DE DOSYA ADI - C1 de o dosyadaki sayfa adı ve veri alacağım hücre yazıyor bunu formül ile çektiğimizde dosya açıkken çalışıyor ama dosya kaplı iken hata veriyor bunu nasıl yapabilirim yardımcı olabilir misiniz.

A1
'C:\Users\Techno Master\Desktop\fatih\
B1
1.XLSX
C1
Sayfa1'!$B$1
D1
=DOLAYLI("'["&B1&"]"&C1)

 

[Korhan Ayhan]

Merhaba,

DOLAYLI fonksiyonu kapalı dosyalarda çalışmaz.

 

[teknomaster]

Başka nasıl bir yöntem yapabilirim. vb tarafında var mı ?

 

[Korhan Ayhan]

Elbette var..

Forumda aşağıdaki ifadelerle arama yapabilirsiniz..

ExecuteExcel4Macro
Adodb
Index+Match