vb读取写入导出excel

1. test()  
2. '从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000）  
3. Dim xlApp As Excel.Application  
4. Dim xlBook As Excel.Workbook  
5. Dim xlSheet As Excel.Worksheet  
6.   
7. '---------------------操作现有的excel---------------------  
8. Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象  
9. Set xlBook = xlApp.Workbooks.Open("c:/sheep.xls") '打开已经存在的EXCEL工件簿文件  
10. xlApp.Visible = True '设置EXCEL对象可见（或不可见）  
11. Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表  
12. xlSheet.Cells(1, 2) = "sssss" '给单元格（row,col）赋值  
13. s = xlSheet.Cells(2, 2).Value  
14. xlBook.Close (True) '关闭工作簿  
15. xlApp.Quit '结束EXCEL对象  
16. Set xlApp = Nothing '释放xlApp对象  
17. 'xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏  
18. 'xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏  
19. '------------------------end------------------------------  
20.   
21. '---------------------导出新的excel-------------------------  
22. Set xlApp = CreateObject("Excel.Application")  
23. Set xlBook = xlApp.Workbooks.Add   '创建工作簿  
24. xlApp.Visible = False  
25. Set xlSheet = xlBook.Worksheets(1) '创建工作表  
26. xlSheet.Name = "表一" '表名  
27. xlSheet.Cells(1, 1) = "shshshs"  
28.   
29. xlSheet.SaveAs "c:/销售.xls"  
30. 'xlSheet.SaveAs App.Path & "/销售/" & mystr & ".xls"  
31. xlBook.Close (True) '关闭工作簿  
32. xlApp.Quit '结束EXCEL对象  
33. Set xlApp = Nothing '释放xlApp对象  
34. '-------------------------end-----------------------------