bu kodu kullan ve FileName:=CurrentProject.Path & "\" & "asd.xls", _
CurrentProject.Path bu kısmı senin ağdaki Excel sayfalarının yerini yaz böylece bütün Excel sayfalarındaki verileri tek tabloya toplarsın

DoCmd.TransferSpreadsheet transfertype:=acImport, SpreadsheetType:=5, _
tablename:="Tablo1", FileName:=CurrentProject.Path & "\" & "asd.xls", _
Hasfieldnames:=True, Range:="ad!A1:A11"

En son haline bir bakın

Sn Accessman elinize sağlık süper görünüyor. Teşekkürler... Saygılar.

Öncelikle basta accessman olmak üzere ilgilenen tüm arkadaslara tesekkurler. Evde internetim olmadigindan daha önce yazamadim. Yalniz Excel 2007 ile kayit edilmis dosyalari hala Access e alamiyorum. Ayni dosya icinde olsalar dahi. Bu konuda yollamis oldugunuz dosyalar kesin cözüm sunuyorlar mi yoksa ben uyarlamayi mi beceremedim? Tekrar tesekkurler

Sn:scihansafak
'PROGRAMIN BULUNDUĞU KLASÖRDEKİ Excel DOSYASINDAN VERİ ALMAK İÇİN

DoCmd.TransferSpreadsheet acImport, 8, "Tabelle1", CurrentProject.Path & "\" & "Verbrauch-temp.xlsx", False, "Tabelle1!A3:I47"

Buradaki uzantı Office2007 icin xlsx dir.

Tekrar Selamlar, Vakit buldukca elimdeki databank ile ugrasmaya calisiyorum. Su an ki problemim biraz daha karisik sanirim. Excellden aldigim Tablodaki degerleri Access de bir ara yüzeyde hesaplatarak yeni bir tabloya almam gerekiyor. Ancak Excel deki degerler ornegin haftada bir isleniyor bense aylik kullanimi hesaplamaliyim, isin kisasi her dorduncu degerden birinci degeri cikararak yeni tabloya gecmeli, bununla birlikte tarih de aa.yyyy olarak bulunmali yeni tabloda. Elimde olan dosyayi yüklüyorum. Hala yardimci olabilecek arkadaslar varsa cok makbule gececektir inanin. Herkese kolay gelsin, tesekkurler