主题：代码

                    If ws2.cells(6+i,n+48).Formula = "" OrElse ws2.cells(6+i,n+48).value = 0 Then

messagebox.show(ws1.cells(6+i,n-1).Formula)

显示出来的是数据或公式，因而用if ws1.cells(6+i,n-1).Formula ＝ “” then 来判断不行，应该再加什么条件？

Dim book1 As new xls.book(f1)

book1.sheets.SelectedIndex = 1

book1.save(f1)

如果用到EXCEL代码，都会将原来设计好的预览统统变没了，应该改回VAB代码？