F1Book合并问题?急!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

F1Book保存成Excel但无法打开?
     具体为当我在F1Book中设置的合并格式行数为256行时能够正常打开保存的Excel,如果设置的合并格式行数为258行时则打开Excel失败?
     设置格式代码:
      For I = 1 To 384改为385时打开保存的Excel失败 Step 3
                '填充第一行表头
                '设置标题
                '选择标题区域
                .SetSelection I + 3, 1, I + 4, 1
                '设置标题格式
                Set lCellFormat = .CreateNewCellFormat
                With lCellFormat
'                    .AlignHorizontal = F1HAlignCenter
'                    .AlignVertical = F1VAlignCenter
'
'                    .FontName = "宋体"
'                    .FontSize = 10
'                    .FontBold = False
                    .MergeCells = True                End With
                '格式赋值
                .SetCellFormat lCellFormat
                '标题文本
                .TextRC(I + 3, 1) = "年月"                '设置标题
                '选择标题区域
                .SetSelection I + 3, 2, I + 4, 2                '格式赋值
                .SetCellFormat lCellFormat
                '标题文本
                .TextRC(I + 3, 2) = "人员代码"                '设置标题
                '选择标题区域
                .SetSelection I + 3, 3, I + 4, 3                '格式赋值
                .SetCellFormat lCellFormat
                '标题文本
                .TextRC(I + 3, 3) = "姓名"                '设置标题
                '选择标题区域
                .SetSelection I + 3, 4, I + 3, 11                '格式赋值
                .SetCellFormat lCellFormat
                '标题文本
                .TextRC(I + 3, 4) = "应发工资"                '设置标题
                '选择标题区域
                .SetSelection I + 3, 12, I + 3, 15                '格式赋值
                .SetCellFormat lCellFormat
                '标题文本
                .TextRC(I + 3, 12) = "其它费用"                '设置标题
                '选择标题区域
                .SetSelection I + 3, 16, I + 4, 16                '格式赋值
                .SetCellFormat lCellFormat
                '标题文本
                .TextRC(I + 3, 16) = "本月应领工资及费用"                '设置标题
                '选择标题区域
                .SetSelection I + 3, 17, I + 3, 20                '格式赋值
                .SetCellFormat lCellFormat
                '标题文本
                .TextRC(I + 3, 17) = "其他扣款"                '设置标题
                '选择标题区域
                .SetSelection I + 3, 21, I + 4, 21                '格式赋值
                .SetCellFormat lCellFormat
                '标题文本
                .TextRC(I + 3, 21) = "实领工资"
'
                '标题文本
                .TextRC(I + 4, 4) = "物贴"
                .TextRC(I + 4, 5) = "企业补助"
                .TextRC(I + 4, 6) = "社会工龄"
                .TextRC(I + 4, 7) = "行业工龄"
                .TextRC(I + 4, 8) = "补充养老"
                .TextRC(I + 4, 9) = "保留工资"
                .TextRC(I + 4, 10) = "川委办"
                .TextRC(I + 4, 11) = "小计"
                .TextRC(I + 4, 12) = "药费"
                .TextRC(I + 4, 13) = "交通补贴"
                .TextRC(I + 4, 14) = "家委会补贴"
                .TextRC(I + 4, 15) = "福利"
                .TextRC(I + 4, 17) = "总务扣款"
                .TextRC(I + 4, 18) = "人身保险"
                .TextRC(I + 4, 19) = "水电气"
                .TextRC(I + 4, 20) = "小计"
            Next
     保存代码:
       Dim F1Space As New F1FileSpec
      
     On Error GoTo fileCancel
        F1Space.Name = lTitlestr
        F1Space.Type = F1FileExcel97
        
        Me.FB.SaveFileDlgEx "保存", F1Space
        Me.FB.WriteEx F1Space.Name, F1Space.Type
        Exit Sub
fileCancel:
       If Err.Number = 20023 Then
          Exit Sub
       Else
          Resume Next
       End If谢谢帮助解决!