Herkese İyi günler,
Sayın Leventm yaptığı kodlardan dosyadan bir dosyalardan sadece birinci sayfanın verilerini alabiliyoruz.
sorum bir dosyadaki tüm sayfalardan (örneğin a1:h1)in verilerini almak istiyorum sayfa ismi ve sayısı ne olursa olsun. Kısaca sayfa sayısı ve sayfa ismi önemli olmasın.
Sub verial()
Application.ScreenUpdating = False
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("c:\mevcut ürünler\").Files
Workbooks.Open Filename:="C:\veriler\" & dosya.Name
sonsat = Sheets("ürün").[b65536].End(3).Row
Rows("1:" & sonsat).Copy
Workbooks("anadosya.xls").Activate
say = [b65536].End(3).Row + 1
Rows(say).PasteSpecial
[a:d].EntireColumn.AutoFit
Workbooks(dosya.Name).Save
Workbooks(dosya.Name).Close
Next
End Sub
Sayın Leventm yaptığı kodlardan dosyadan bir dosyalardan sadece birinci sayfanın verilerini alabiliyoruz.
sorum bir dosyadaki tüm sayfalardan (örneğin a1:h1)in verilerini almak istiyorum sayfa ismi ve sayısı ne olursa olsun. Kısaca sayfa sayısı ve sayfa ismi önemli olmasın.
Sub verial()
Application.ScreenUpdating = False
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("c:\mevcut ürünler\").Files
Workbooks.Open Filename:="C:\veriler\" & dosya.Name
sonsat = Sheets("ürün").[b65536].End(3).Row
Rows("1:" & sonsat).Copy
Workbooks("anadosya.xls").Activate
say = [b65536].End(3).Row + 1
Rows(say).PasteSpecial
[a:d].EntireColumn.AutoFit
Workbooks(dosya.Name).Save
Workbooks(dosya.Name).Close
Next
End Sub