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

S

schlecht

Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
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....
 
F1 & "" boşluk neden bıraktınız ? Ayrıca dosya ismi yok. Dosya ismi sonunda uzantısını da yazmayı unutmayın.
 
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.
 
F2yerine [F2] şeklinde yazın. Ya da range("f2") yazın. Ya da cells(2,"f")yazın.
 
Cevabınız için teşekkürler. ("f2") ile sorunumu çözdüm.
 
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)
 
Merhaba,

DOLAYLI fonksiyonu kapalı dosyalarda çalışmaz.
 
Elbette var..

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

ExecuteExcel4Macro
Adodb
Index+Match
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst