مشاهده نسخه کامل
: afe
23-09-2008, 20:46
سلام
وقتی این کد رو تو ویژوهل بیسیک 2008 اجرا می کنم :
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
'Start a new workbook in Excel
oExcel = CreateObject("Excel.Application")
oBook = oExcel.workbooks.add
'Add data to cells of the first worksheet in the new workbook
oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = "Last Name"
oSheet.Range("B1").Value = "First Name"
oSheet.Range("A1:B1").Font.Bold = True
oSheet.Range("A2").Value = "Doe"
oSheet.Range("B2").Value = "John"
'Save the Workbook and Quit Excel
oBook.SaveAs("C:\Book1.xls")
oExcel.Quit()
این ارور رو می گیرم:
Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))
برای oBook = oExcel.workbooks.add
مشکل کار کجاست؟
همین کد به راحتی تو وی بی 6 اجرا میشه (با تغییراتی در syntax )
وقتی این کد رو تو ویژوهل بیسیک 2008 اجرا می کنم :
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
'Start a new workbook in Excel
oExcel = CreateObject("Excel.Application")
oBook = oExcel.workbooks.add
'Add data to cells of the first worksheet in the new workbook
oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = "Last Name"
oSheet.Range("B1").Value = "First Name"
oSheet.Range("A1:B1").Font.Bold = True
oSheet.Range("A2").Value = "Doe"
oSheet.Range("B2").Value = "John"
'Save the Workbook and Quit Excel
oBook.SaveAs("C:\Book1.xls")
oExcel.Quit()
این ارور رو می گیرم:
Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))
برای oBook = oExcel.workbooks.add
مشکل کار کجاست؟
همین کد به راحتی تو وی بی 6 اجرا میشه (با تغییراتی در syntax )