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

[mohammad0064 4]

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

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

 

[Elyas Erfani 3,582]

سلام

 

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

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

[mohammad0064 4]

 

سلام

 

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

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

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

باتشکر

[Elyas Erfani 3,582]

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

باتشکر

سلام

 

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

 

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

 

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

 

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

 ؟؟؟؟؟

[mohammad0064 4]

سلام

 

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

 

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

 

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

 

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

 ؟؟؟؟؟

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

[Elyas Erfani 3,582]

خوب شما اول بیاید فایل اکسلیو ک داخل 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)

[mohammad0064 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)

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

[Elyas Erfani 3,582]

مشکل اینجاست که وقتی از دستور 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)

[mohammad0064 4]

 

 

اهان حالا فهمیدم

 

شما باید 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)

 

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

[mohammad0064 4]

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

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

باتشکرexcel sms ok.rar