主题：如何遍历工作表？

呃，不是有sheets么？sheet.Name

 

http://www.foxtable.com/help/topics/1144.htm

 

 给你写吧

 

Dim Book As New XLS.Book("c:\reports\test.xls")
For Each s As XLS.Sheet In book.Sheets
    msgbox(s.name)
Next

Dim Book As New XLS.Book("c:\reports\test.xls")
Msgbox(book.Sheets.Count)

 呃.....第五行开始合并？merger是做不到的。自己编写合并代码吧。

 

 http://www.foxtable.com/help/topics/2334.htm

 

 不规则的excel只能用代码合并，你先看看8楼的帮助文档，可以控制从哪一行开始的。

 那你用vba变通一下

 

http://www.foxtable.com/help/topics/2121.htm

 

这个是导出，你参考一下思路吧 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28089

 

 思路是，把先获取所有的excel数据，然后一个一个的写入狐表。

 在狐表里，耗时的操作有：1、新增行；2、表重绘；3、触发其它事件；所以要一次性新增行；所以要停止表重绘；所以要停止触发额外比如datacolchanged事件。