如何自动生成白化文件

hnxyxx

SurferApp.Documents.Open FileName:=App.Path & "\TC01.xls", Options:="Sheet=Sheet2"
SurferApp.Documents  SaveAs FileName:=App.Path & "\test1111111.bln" , FileFormat:="SrfSaveFormatBln"

请问，我从EXCEL导入数据，写了两行代码，能导入数据，但却不能生成BLN文件？
求解。谢谢

holz

1.         Dim wks As IWksDocument
   
2. 
   
3.         Set wks = gsApp.Documents.Open2(FileName, Options)
   
4.         wks.SaveAs(FileName, Options, srfSaveFormatBln)
   

        Dim wks As IWksDocument<br /> <br />         Set wks = gsApp.Documents.Open2(FileName, Options)<br />         wks.SaveAs(FileName, Options, srfSaveFormatBln)<br />

hnxyxx

谢谢上楼的方案，您提供的是可行的。
还有个办法是保存用这个SurferApp.ActiveDocument.SaveAs(FileName, Options, srfSaveFormatBln)
今天测试也是可行的。