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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表格数据导入的时候，如果用代码改变表格的格式

共有2794人关注过本帖树形打印复制链接主题：表格数据导入的时候，如果用代码改变表格的格式

redbule2

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：1257 威望：0 精华：0 注册：2017/11/6 12:18:00

表格数据导入的时候，如果用代码改变表格的格式 发帖心情

Post By：2020/10/29 11:42:00 [显示全部帖子]

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

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

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

redbule2

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：1257 威望：0 精华：0 注册：2017/11/6 12:18:00

Post By：2020/10/29 11:51:00 [显示全部帖子]

不能手工啊，文件接口返回的，我要把接口返回的表格导入数据库

redbule2

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：1257 威望：0 精华：0 注册：2017/11/6 12:18:00

Post By：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

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

redbule2

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：1257 威望：0 精华：0 注册：2017/11/6 12:18:00

Post By：2020/10/29 12:13:00 [显示全部帖子]

搞定了，谢谢

下一主题 >> << 上一主题

主题：表格数据导入的时候，如果用代码改变表格的格式