可以在表里面设置好宽高,再saveExcel
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Title="请选择保存文件"
dlg.InitialDirectory=ProjectPath & "Reports\"
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dlg.FileName="test"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim flg As New SaveExcelFlags
'flg.RowNumber = True
flg.CellStyle = True
Tables("abc表").grid.Rows(2).Height = 100
Tables("abc表").Grid.Cols("第二列").width = 300
Tables("abc表").SaveExcel(dlg.FileName, "abc表",flg) '保存文件
End If