PB Excel 版本转换后的工作表是隐藏的怎么办,求解

PB Excel 版本转换后的工作表是隐藏的怎么处理,求解
PB Excel 版本转换后的工作表是隐藏的怎么处理,求解

代码如下(实现2003版本的文件转换当前系统Excel最新版本,转换也成功了,但是工作表是隐藏,要点击一下视图->取消隐藏,才能看到):

OleObject xlapp
Integer li_row

string as_sourcepath='C:\1.xls'
string as_despath='C:\1.xlsx'

xlapp = Create oleobject
li_row = xlapp.ConnectToObject(as_sourcepath)
If li_row < 0 Then
messagebox('',li_row)
Else
try
xlapp.application.workbooks(1).worksheets(1).SaveAs(as_despath,51)//指定转换版本或格式
  catch(runtimeerror e)
messagebox('',e.getmessage())
finally
xlapp.application.quit
xlapp.DisconnectObject()
end try
End If


------解决方案--------------------
saveas后再将工作表设为visible

C/C++ code

li_row = xlapp.ConnectToObject(as_despath)If li_row < 0 Then    messagebox('',li_row)Else     try        xlapp.application.workbooks(1).worksheets(1).Visible = true//指定转换版本或格式    catch(runtimeerror e)        messagebox('',e.getmessage())        finally        xlapp.application.quit        xlapp.DisconnectObject()    end tryEnd If