رفتن به مطلب
  • 0

لود کردن فایل اکسل


mohammad0064

سوال

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

LoadTable (File.DirAssets,"book2.xls")

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

9 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

 

واسه لود کردن فایل اکسل کتابخانه اکسل رو فعال کنید و :

Dim workbook1 As ReadableWorkbook
Dim moviesSheet As ReadableSheet
workbook1.Initialize(File.DirAssets, "esme file")
moviesSheet = workbook1.GetSheet(0)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام

 

واسه لود کردن فایل اکسل کتابخانه اکسل رو فعال کنید و :

Dim workbook1 As ReadableWorkbook
Dim moviesSheet As ReadableSheet
workbook1.Initialize(File.DirAssets, "esme file")
moviesSheet = workbook1.GetSheet(0)

 در دستور DirAssets فایل اکسل مورد نظر در کجای حافظه ذخیره میشه اگه ذخیره نمیشه چجوری میشه در ی مکانی از حافظه ذخیره کرد بعد از او اونجا لود کنیم فایل اکسل را که از نوع خواندنی و نوشتنی هم باشه.

باتشکر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 در دستور DirAssets فایل اکسل مورد نظر در کجای حافظه ذخیره میشه اگه ذخیره نمیشه چجوری میشه در ی مکانی از حافظه ذخیره کرد بعد از او اونجا لود کنیم فایل اکسل را که از نوع خواندنی و نوشتنی هم باشه.

باتشکر

سلام

 

کدی ک بهتون دادم سیو نمیکنه

 

میاد و ی فایل اکسل رو از DirAssets ک پوشه داخلی برنامه هست لود میکنه و میخونه

 

فایل اکسلتون رو از منوی Files بیسیک4اندروید ادد کنید و با کدی ک دادم بازش کنید

 

شما میخواید ذخیره کنید

 ؟؟؟؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

 

کدی ک بهتون دادم سیو نمیکنه

 

میاد و ی فایل اکسل رو از DirAssets ک پوشه داخلی برنامه هست لود میکنه و میخونه

 

فایل اکسلتون رو از منوی Files بیسیک4اندروید ادد کنید و با کدی ک دادم بازش کنید

 

شما میخواید ذخیره کنید

 ؟؟؟؟؟

آره میخوام ذخیره بشه بعد از اونجا لود کنم که هرموقع خواستم تغییراتی تو فایل اکسل بدم نیاز نباشه نرم افزار رو دوباره بریزم تو گوشی

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خوب شما اول بیاید فایل اکسلیو ک داخل Assets ریختین کپی کنین توی گوشی بعدش هم با کدی ک دادم از اونجا لود کنید 

 

کپی :

File.Copy(File.DirAssets , "esme file" , File.DirInternal , "esme file")

لود کردنش از جایی ک کپی کردید :

Dim workbook1 As ReadableWorkbook
Dim moviesSheet As ReadableSheet
workbook1.Initialize(File.DirInternal, "esme file")
moviesSheet = workbook1.GetSheet(0)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

خوب شما اول بیاید فایل اکسلیو ک داخل Assets ریختین کپی کنین توی گوشی بعدش هم با کدی ک دادم از اونجا لود کنید 

 

کپی :

File.Copy(File.DirAssets , "esme file" , File.DirInternal , "esme file")

لود کردنش از جایی ک کپی کردید :

Dim workbook1 As ReadableWorkbook
Dim moviesSheet As ReadableSheet
workbook1.Initialize(File.DirInternal, "esme file")
moviesSheet = workbook1.GetSheet(0)

مشکل اینجاست که وقتی از دستور Dir استفاده کنی فایل اکسل رو فقط خواندنی میکنه دیگ نمیشه تغییرات داد مثلا وصل کنم به لب تاپ و بخوام تغییرات بدم پیغام میده این فایل از نوع  read only  هست.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

مشکل اینجاست که وقتی از دستور Dir استفاده کنی فایل اکسل رو فقط خواندنی میکنه دیگ نمیشه تغییرات داد مثلا وصل کنم به لب تاپ و بخوام تغییرات بدم پیغام میده این فایل از نوع  read only  هست.

 

 
اهان حالا فهمیدم
 
شما باید WorkBook و Sheet + سلولی رو ک میخواید توش تغییرات بدین رو Writable یا نوشتنی کنید ب این شکل
 
کتابخانه اکسل روفعال کنید 
 
Dim newWorkbook As WritableWorkbook
newWorkbook.Initialize(File.DirRootExternal, "اسم فایل.xls")
Dim sheet1 As WritableSheet
sheet1 = newWorkbook.AddSheet("اسم برگه یا شیت مورد نظر در فایل اکسل", 0)
Dim cell As WritableCell
cell.InitializeText(1, 0, "Hello")
sheet1.AddCell(cell)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

 
اهان حالا فهمیدم
 
شما باید WorkBook و Sheet + سلولی رو ک میخواید توش تغییرات بدین رو Writable یا نوشتنی کنید ب این شکل
 
کتابخانه اکسل روفعال کنید 
 
Dim newWorkbook As WritableWorkbook
newWorkbook.Initialize(File.DirRootExternal, "اسم فایل.xls")
Dim sheet1 As WritableSheet
sheet1 = newWorkbook.AddSheet("اسم برگه یا شیت مورد نظر در فایل اکسل", 0)
Dim cell As WritableCell
cell.InitializeText(1, 0, "Hello")
sheet1.AddCell(cell)

 

مرسی خیلی ممنون حل شد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

مرسی خیلی ممنون حل شد

 ببخشید بازم همون ایراد رو گرفت من سورس رو میذارم ی نگاه بیاندازید.

باتشکرexcel sms ok.rar

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...