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

schlecht

Altın Üye
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....
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
F1 & "" boşluk neden bıraktınız ? Ayrıca dosya ismi yok. Dosya ismi sonunda uzantısını da yazmayı unutmayın.
 

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
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

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Klasör yolu yazmam gerekiyordu sanırm.
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
F2yerine [F2] şeklinde yazın. Ya da range("f2") yazın. Ya da cells(2,"f")yazın.
 

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Cevabınız için teşekkürler. ("f2") ile sorunumu çözdüm.
 
Katılım
16 Ekim 2022
Mesajlar
2
Excel Vers. ve Dili
office 365
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

DOLAYLI fonksiyonu kapalı dosyalarda çalışmaz.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Elbette var..

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

ExecuteExcel4Macro
Adodb
Index+Match
 
Üst