View Full Version : خروجی به اکسل
alirezash
سه شنبه 20 مهر 1389, 02:30 صبح
با سلام خدمت دوستان عزیز
قبل از هر چیزی اول بگم که تو تاپیک ها سرچ کردم . ولی سورس بدرد بخوری پیدا نکردم
اگه ممکنه راهنمایی کنید در مورد ساخت یک فایل اکسل و ذخیره اطلاعات یک تکس باکس در آن
ممنون از کمکتون
Mani_rf
سه شنبه 20 مهر 1389, 10:20 صبح
نگاهی به این تاپیک (http://barnamenevis.org/forum/showpost.php?p=668168&postcount=40)بی انداز.
mohsen12345
سه شنبه 20 مهر 1389, 14:14 عصر
با سلام خدمت دوستان عزیز
قبل از هر چیزی اول بگم که تو تاپیک ها سرچ کردم . ولی سورس بدرد بخوری پیدا نکردم
اگه ممکنه راهنمایی کنید در مورد ساخت یک فایل اکسل و ذخیره اطلاعات یک تکس باکس در آن
ممنون از کمکتون
با سلام اول Microsoft excel 12.0 object رو از add refrence اضافه کن بعد از کد های زیر استفاده کن
Private Function saveexel() As String
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim i, j As Integer
xlApp = CType(CreateObject("Excel.Application"), _
Microsoft.Office.Interop.Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, _
Microsoft.Office.Interop.Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), _
Microsoft.Office.Interop.Excel.Worksheet)
xlSheet.Cells(1, 1) = "فیلد اول"
xlSheet.Cells(1, 2) = "فیلد 1و2"
xlSheet.Cells(1, 3) = "فیلد 1و3"
''xlSheet.Cells(2, 2) = "This is column B row 2"
xlSheet.Application.Visible = False
Dim filename As String="aa.xls"
fname = Application.StartupPath + "\Report\" + filename
xlSheet.SaveAs(fname)
xlApp.Quit()
End Function
alirezash
سه شنبه 20 مهر 1389, 15:18 عصر
دوست عزیز از
xlBook = CType(xlApp.Workbooks.Add, Microsoft.Office.Interop.Excel.Workbook)
ارور میده
"Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))"
alirezash
سه شنبه 20 مهر 1389, 17:41 عصر
بابا به خدا سواله خیلی راحتیهههههههههههههههههههه ههههههههههههههههههههههههه هه
جواب بدین
Alghoochi
سه شنبه 20 مهر 1389, 19:11 عصر
این کدو به قسمت General فرمت اضافه کن
Private oldCI As System.Globalization.CultureInfo
این کدم به رویداد Form_Load اضافه کن
oldCI = System.Threading.Thread.CurrentThread.CurrentCultu re
System.Threading.Thread.CurrentThread.CurrentCultu re = _
New System.Globalization.CultureInfo("en-US")
این کدم به رویداد Form_Closing اضافه کن
System.Threading.Thread.CurrentThread.CurrentCultu re = oldCI
این کدها زبان سیستم شما را موقتاً به انگلیسی تغییر میده.
alirezash
چهارشنبه 21 مهر 1389, 13:15 عصر
آقا یک دنیا ممنوننن
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.