PDA

View Full Version : خواندن از فايل اکسل



goleleila
دوشنبه 14 مرداد 1387, 12:07 عصر
سلام به همه دوستان
مي خواستم بدونم چه جوري مي تونم محتويات فايلهاي اکسل رو داخل ديتاست Import کنم.
اگه بخوام حدود 400 تا فايل اکسل رو که همگي داراي قالب يکساني هستند ،تبديل به يک فايل کنم چه راهي رو پيشنهاد مي کنيد.
اگه کسي نرم افزاري تو اين زمينه داره هم ممنون ميشم لطف کنه.

zarrin_306
دوشنبه 14 مرداد 1387, 12:35 عصر
در صورتی که بخواهیم اطلاعات یک Sheet از یک فایل اکسل را در دیتا گرید نمایش دهیم

button1'

dim myconnection as system.data.oledb.oledbconnection

try

dim dtset as system.data.dataset
dim mycommand as system.data.oledb.oledbdataadapter


myconnection = _
system.data.oledb.oledbconnection("provider=microsoft.jet.oledb.4.0;" & _
"data source= c:\text.xls; "extended properties=excel 8.0;")

mycommand.tablemappings.add("Table","Table1")
dtset=new system.data.dataset
mycommand.fill(dtset)
datagrid1.datasource=dtset.tables(0)
myconnection.dispose()

catch ex as exeption
myconnection.close()
end try
end sub
end class

zarrin_306
دوشنبه 14 مرداد 1387, 12:38 عصر
در صورتی که بخواهیم اطلاعات یک Sheet از یک فایل اکسل را در دیتا گرید نمایش دهیم

button1'

dim myconnection as system.data.oledb.oledbconnection

try

dim dtset as system.data.dataset
dim mycommand as system.data.oledb.oledbdataadapter


myconnection = _
system.data.oledb.oledbconnection("provider=microsoft.jet.oledb.4.0;" & _
"data source= c:\text.xls; "extended properties=excel 8.0;")

mycommand.tablemappings.add("Table","Table1")
dtset=new system.data.dataset
mycommand.fill(dtset)
datagrid1.datasource=dtset.tables(0)
myconnection.dispose()

catch ex as exeption
myconnection.close()
end try
end sub
end class

نیازی هم به نرم افزار نیست فقط کلاسی تعریف کن و بعد از system .io استفاده کن و نام جدول را به که اضافه کن و بعد کد خودش اونو طبق نام پیدا کرده و در دیتا گرید نمایش خواهد داد.
موفق باشید.

goleleila
دوشنبه 14 مرداد 1387, 13:40 عصر
کد رو نوشتم اين پيغام رو ميده
The SelectCommand property has not been initialized before calling 'Fill'
از اين خط ايراد مي گيره
mycommand.Fill(dtset)

در مورد دومي گه گفتيد اگه ميشه ،توضيح بيشتري بديد.
ممنونم

zarrin_306
دوشنبه 14 مرداد 1387, 21:14 عصر
بله شما درست می گی یه تیکش یادم رفته بود حالا این کد کامل با نمونه درست شده که درست کار می کنه امتحانشم کردم

parsavb
سه شنبه 15 مرداد 1387, 06:59 صبح
چند وقت پیش بحث مفصلی راجع به این موضوع شد ببین به دردت می خوره اینجاست
اینجا (http://barnamenevis.org/forum/showthread.php?t=109189)