变形是因为单元格的格式不同,毕竟两个不同的产品是不可能完全一样的。
你可以参考下面这个函数定义你自己的单元格格式:
'grid :表格控件row1,col1: 指定左上方的单元格row2,col2: 指定右下方的单元格sheet : 指定表单,缺省为-1,表示使用当前的sheet
Public Function mergeGridCells(grid As F1Book, row1 As Long, col1 As Long, row2 As Long, col2 As Long, Optional sheet As Integer = -1)
On Error GoTo errHandler
If sheet > 0 Then grid.sheet = sheet
Dim cellfrmt As F1CellFormat
Set cellfrmt = grid.CreateNewCellFormat
cellfrmt.MergeCells = True
grid.SetSelection row1, col1, row2, col2
grid.SetCellFormat cellfrmt
Exit Function
errHandler:
myPrintErrorInfo "无法合并表格中的指定单元格!"
End Function
对于OpenFileDlg方法我也不会用,否则我就不告诉你另外那个方法了,呵呵!你知道了可要告诉我呀:)