读excel文件然后赋值给spreadsheet Dim mExcel As Excel.Application Dim mSheet As Excel.WorksheetSet mExcel = CreateObject("Excel.Application")mExcel.Workbooks.open (strpath) Set mSheet = mExcel.Sheets(SheetName)fro i =0 to mshet.userange.row.count FOR j =0 to mshet.userange.column.count spreadsheet.activesheet.cells(i,j) =msheet.cells(i.j) next next '大致就这样
然后就可以打开了。
在EXCTL文件中没有保存为XML格式的选项,是不是说的其他格式的呢?如何保存为*.xml格式呢?
保存后用什么命令打开呢?
输入文件名下面有文件类型,选XML啊.
Dim mExcel As Excel.Application
Dim mSheet As Excel.WorksheetSet mExcel = CreateObject("Excel.Application")mExcel.Workbooks.open (strpath)
Set mSheet = mExcel.Sheets(SheetName)fro i =0 to mshet.userange.row.count
FOR j =0 to mshet.userange.column.count
spreadsheet.activesheet.cells(i,j) =msheet.cells(i.j)
next
next
'大致就这样
这样的话,原来EXCEL表中的格式都没有了。
使用spreadsheet来打开文件,就是想保留原来的格式的。
我也是这样操作,
但我的EXCEL在另存为时,弹出的窗口中没有存为XML文件类型的选项。
我用的是EXCEL 2000,vansoft大虾用的是什么版本的EXCEL?另外,保存为XML文件后,在spreadsheet中如何打开呢?格式会不会变?