标题：用这个方法导出，有的小数位特别多，有什么办法解决

1楼

xxfoxtable 发表于：2023/12/15 14:40:00

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim flg As New SaveExcelFlags

flg.RowNumber = True

flg.CellStyle = True

Tables("查看库存_table1").SaveExcel(dlg.FileName, "库存",flg) '保存文件

messagebox.show("导出成功!","提示")

End If

2楼

有点蓝 发表于：2023/12/15 15:03:00

导出后，再使用XLS.Book打开文件，遍历更改格式化数据

共2 条记录, 每页显示 10 条, 页签: [1]