خروجی به اکسل

[alirezash]

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

[Mani_rf]

نگاهی به این تاپیک (http://barnamenevis.org/forum/showpost.php?p=668168&postcount=40)بی انداز.

[mohsen12345]

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

با سلام اول 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]

دوست عزیز از

xlBook = CType(xlApp.Workbooks.Add, Microsoft.Office.Interop.Excel.Workbook)
ارور میده


"Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))"

[alirezash]

بابا به خدا سواله خیلی راحتیهههههههههههههههههههه ههههههههههههههههههههههههه هه
جواب بدین

[Alghoochi]

این کدو به قسمت 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]

آقا یک دنیا ممنوننن