首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

老版本下写的程序在2005下报错解决思路

2012-02-09 
老版本下写的程序在2005下报错今天偶换机器装了VS2005,打开以前的程序提示需要转换,点转换并了备份,打开运

老版本下写的程序在2005下报错
今天偶换机器装了VS2005,打开以前的程序提示需要转换,点转换并了备份,打开运行说有错误提示是否用以前成功生成的方式运行,如果点否就无法使用,看有几个错误,都是关于execl的,下面贴出来大家帮偶看看。
(导出到excel的例子)
Private   Sub   Button10_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button10.Click
                '导出excel
                Dim   xlsApp   As   Excel.Application   '报错
                xlsApp   =   Nothing
                Dim   xlsBook   As   Excel.Workbook     '报错
                xlsBook   =   Nothing
                Dim   xlsSheet   As   Excel.Worksheet     '报错
                xlsSheet   =   Nothing
                Try
                        xlsApp   =   New   Excel.ApplicationClass     '报错
                        xlsBook   =   xlsApp.Workbooks.Add(True)
                        xlsSheet   =   xlsBook.Worksheets(1)
                        xlsSheet.Activate()
                Catch   ex   As   Exception
                        Throw   New   NullReferenceException(ex.Message)
                End   Try
                Dim   i,   k   As   Integer
                Dim   table   As   DataTable
                table   =   New   DataTable( "pizi ")
                table   =   ds.Tables(0)
                For   i   =   0   To   table.Rows.Count   -   1
                        For   k   =   0   To   table.Rows(i).ItemArray.Length   -   1
                                xlsApp.Cells(i   +   2,   k   +   1)   =   table.Rows(i).ItemArray(k)
                        Next
                Next
                xlsApp.Visible   =   True
        End   Sub

提示Excel.Application  
        Excel.Workbook    
        Excel.Worksheet    
        Excel.ApplicationClass    
报错,报错类型为   错误未定义类型

偶是引用过execl的呀,这是为什么,在以前的老版本中一点问题都没有呀
-------------------------------------------------
还有DateTimePicker1.Text   =   Date.Now.Today这个也警告警告:通过实例访问共享成员、常量成员、枚举成员或嵌套类型;将不计算限定表达式。



请指点下,谢谢。

[解决办法]
重新引用excel com组件
DateTimePicker1.Text = Date.Now.Today.ToString()

热点排行