vb操作excel的问题???

Question

这里的“高手”不是说“用代码收买人心”吗？

Answer 1

这是一个打开现有1.xls，并另存为文本文件，最后删除的例子Private Sub Form_Load()
Dim MyApp As Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Set MyApp = CreateObject("excel.application")
MyApp.Visible = False
Set MyBook = MyApp.Workbooks.Open("c:\1.xls")
Set MySheet = MyBook.Worksheets(1)
MySheet.SaveAs "C:\xls.txt", 42
MyBook.Close False
MyApp.Quit
Set MyApp = Nothingif dir("C:\1.xls")<>"" then
   kill "C:\1.xls"
end if
End Sub