以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  用这个方法导出，有的小数位特别多，有什么办法解决  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189664)

--  作者：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

--  作者：有点蓝 --  发布时间：2023/12/15 15:03:00 --   导出后，再使用XLS.Book打开文件，遍历更改格式化数据