专家坐堂-表格数据导入的时候，如果用代码改变表格的格式Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格数据导入的时候，如果用代码改变表格的格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157790)

--  作者：redbule2
--  发布时间：2020/10/29 11:42:00
--  表格数据导入的时候，如果用代码改变表格的格式

此主题相关图片如下：qq图片20201029114129.png

好多科学计数法。，搞不定啊

[此贴子已经被作者于2020/10/29 11:42:19编辑过]

--  作者：有点蓝
--  发布时间：2020/10/29 11:46:00
--

参考：http://www.foxtable.com/webhelp/topics/2121.htm

试试手工导入合并数据：http://www.foxtable.com/webhelp/topics/2334.htm
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0

--  作者：redbule2
--  发布时间：2020/10/29 11:51:00
--
不能手工啊，文件接口返回的，我要把接口返回的表格导入数据库

--  作者：有点蓝
--  发布时间：2020/10/29 11:58:00
--
说是手工导入，并不是让你真的用“手”导。一样是使用代码自动导的，方式不一样而已

--  作者：redbule2
--  发布时间：2020/10/29 12:03:00
--
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("A1").NumberFormat = "G/通用格式" \'通用格式
Ws.Range("B1").NumberFormat = "0_ "   \'数值
Ws.Range("C1").NumberFormat = "#,##0.00_);[红色](#,##0.00)" \'货币
Ws.Range("D1").NumberFormat = "_ * #,##0.00_;_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ " \'会计专用
Ws.Range("E1").NumberFormat = "yyyy-m-d" \'日期
Ws.Range("F1").NumberFormat = "h:mm:ss" \'时间
Ws.Range("G1").NumberFormat = "0.00%"    \'百分比
Ws.Range("H1").NumberFormat = "# ?/?"    \'分数
Ws.Range("I1").NumberFormat = "0.00E+00" \'科学记数
Ws.Range("J1").NumberFormat = "@"   \'文本
App.Visible = True

这些代码，只能控制一个单元格吧，而且还报错了

--  作者：有点蓝
--  发布时间：2020/10/29 12:09:00
--
帮助里有怎么取整列的用法。

具体写了什么代码？出什么错误？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

--  作者：redbule2
--  发布时间：2020/10/29 12:13:00
--
搞定了，谢谢