Dim flg As New SaveExcelFlags '定义保存样式,只保存可见列
flg.RowNumber = True '加行号flg.CellStyle = True '绘图样式flg.VisibleOnly = FalseDim dlg As New SaveFileDialog '定义一个保存对话框SaveFileDialogdlg.Filter = "Excel文件|*.xls" '设置筛选器If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Tables("表A").SaveExcel(dlg.FileName, "测试", flg)End If