利用vb.net操作不同版本Excel怎么写？

在实际程序中编写
Dim MyExcel As Microsoft.Office.Interop.Excel.Application
Dim MyBook As Microsoft.Office.Interop.Excel.Workbook
Dim MySheet As Microsoft.Office.Interop.Excel.Worksheet
引用了Excel2010环境下的Microsoft Excel 14.0 Object Library。
在不同的版本（如2003）中就不能运行了。
怎么编写？是添加一个类还是？
悬赏20分，需要源代码。能用就马上满意。

全部添加进去。excel2010和excel2003的

'首先通过菜单[项目] -- [添加引用]，选择[com]选项卡，选择“microsoft excel xx.0 object library”，[确定]。 添加一个按钮： 试试下面的代码：注意版本；先建立以个excel文件保存到c:\下面，我的计算机是安装office 2010。 public class form1 private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim appxls as microsoft.office.interop.excel.application '声明excel对象 dim appwokbook as microsoft.office.interop.excel.workbook '声明工作簿对象 dim appsheet as new microsoft.office.interop.excel.worksheet '声明工作表对象 appxls = new microsoft.office.interop.excel.application '实例化excel对象 appxls.workbooks.open("c:\工作簿1.xlsx") '打开已经存在的excel文件 appxls.visible = false '使excel不可见 'appwokbook = new microsoft.office.interop.excel.workbook '实例化工作簿对象 'appsheet = new microsoft.office.interop.excel.worksheet '实例化工作表对象 appwokbook = appxls.workbooks(1) 'appwokbook对象指向工作簿"c:\学生成绩.xls" appsheet = appwokbook.sheets("sheet1") 'appsheet对象指向appwokbook对象中的表“sheet1”，即："c:\学生成绩.xls"中的表“sheet1” '下面举一些例子： '1、如果不声明工作表对象 appsheet ，那么应用appwokbook对象中的表“sheet1”的语句就是：appwokbook.sheets("sheet1") '2、如果不声明工作簿对象 appwokbook ，那么应用"c:\学生成绩.xls"中的表“sheet1”的语句就是：appxls.workbooks("c:\学生成绩.xls").sheets("sheet1") '要读取数据表"sheet1"中的单元格“a1”的值，到变量s1里 dim s1 as string '方法一 s1 = appxls.workbooks(1).sheets("sheet1").range("a1").value msgbox(s1) '方法二 s1 = appwokbook.sheets("sheet1").range("a1").value msgbox(s1) '方法三 s1 = appsheet.range("a1").value msgbox(s1) '把数据写入到单元格“h2”，就是第2行第8个单元格 '方法一 appxls.workbooks(1).sheets("sheet1").cells(2, 8).value = "您好！" s1 = appxls.workbooks(1).sheets("sheet1").cells(2, 8).value '为了验证，读取并显示它 msgbox(s1) '方法二 appwokbook.sheets("sheet1").cells(2, 8).value = "你们好！" s1 = appwokbook.sheets("sheet1").cells(2, 8).value '为了验证，读取并显示它 msgbox(s1) '方法二 appsheet.cells(2, 8).value = "大家好！" s1 = appsheet.cells(2, 8).value '为了验证，读取并显示它 msgbox(s1) '使用完毕必须关闭excel，并退出 appxls.activeworkbook.close(savechanges:=true) appxls.quit() '完成此程序，打开excel检查，可以看到在“sheet1”表的单元格“h2”里是文本“大家好！” end sub end class