另外问问高手VB能把excel转换城thml,狐表为什么不添加这个功能?
我在百度一段代码,请问狐表要实现怎么写?
所见即所得这种办法
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = Excel.Application
Set xlWorkBook = xlApp.Workbooks.Open("c:/te.xls")
xlApp.Visible = True
Set xlSheet = xlWorkBook.Worksheets(1)
xlSheet.SaveAs FileName:="c:/te.htm",FileFormat:=xlHtml
xlWorkBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlWorkBook = Nothing
Unload Me