babak62
چهارشنبه 23 بهمن 1387, 11:20 صبح
سلام به همه.
من در بر برنامه ام نیاز دارم از Excel استفاده کنم.
کد برنامه ام رو مینویسم:
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
Start Excel and get Application object.
("oXL = CreateObject("Excel.Application
oXL.Visible = True
oXL.UserControl = True
_=Dim oldCI As System.Globalization.CultureInfo
System.Threading.Thread.CurrentThread.CurrentCultu re
_=System.Threading.Thread.CurrentThread.CurrentCul ture
("New System.Globalization.CultureInfo("en-US
()oWB = oXL.Workbooks.Add
System.Threading.Thread.CurrentThread.CurrentCultu re = oldCI
oSheet = oWB.ActiveSheet
' Add table headers going cell by cell.
"oSheet.Cells(1, 1).Value="First Name
درست در این خط یه error میده که من سر در نمیارم.:عصبانی++:
Exception from HRESULT: 0x800A03EC
کسی میتونه کمک کنه؟tnx
من در بر برنامه ام نیاز دارم از Excel استفاده کنم.
کد برنامه ام رو مینویسم:
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
Start Excel and get Application object.
("oXL = CreateObject("Excel.Application
oXL.Visible = True
oXL.UserControl = True
_=Dim oldCI As System.Globalization.CultureInfo
System.Threading.Thread.CurrentThread.CurrentCultu re
_=System.Threading.Thread.CurrentThread.CurrentCul ture
("New System.Globalization.CultureInfo("en-US
()oWB = oXL.Workbooks.Add
System.Threading.Thread.CurrentThread.CurrentCultu re = oldCI
oSheet = oWB.ActiveSheet
' Add table headers going cell by cell.
"oSheet.Cells(1, 1).Value="First Name
درست در این خط یه error میده که من سر در نمیارم.:عصبانی++:
Exception from HRESULT: 0x800A03EC
کسی میتونه کمک کنه؟tnx