[讨论]Excel报表格式设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]Excel报表格式设置

共有3087人关注过本帖树形打印复制链接主题：[讨论]Excel报表格式设置

monvzhilei

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

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

[讨论]Excel报表格式设置 发帖心情

Post By：2015/5/12 19:07:00 [只看该作者]

我想引用表数据的时候，对单元格格式设置为缩小字体自动填充。本来以为很简单，但是预览报表，发现一点不起作用。

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

monvzhilei

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

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/12 19:10:00 [只看该作者]

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/12 19:18:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls")
Dim fl As String = ProjectPath & "Reports\订单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
'Rg.EntireColumn.AutoFit '自动调整列宽
'Rg.EntireRow.AutoFit '自动调整行高
'Rg.WrapText = True
rg.ShrinkToFit = True
App.Visible = True

monvzhilei

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

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/12 20:44:00 [只看该作者]

这个代码输入以后，每次都跳出下图所示对话框。点击关闭按钮，也能出现报表。不知道怎么一回事请呢。

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/12 20:45:00 [只看该作者]

用快捷键Alt+F4去掉错误，模板名改成你自己的模板

monvzhilei

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

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/12 22:10:00 [只看该作者]

首先这个代码里面，我模版。报表都修改好了的。

运行以后，出现这个对话框。关闭之，报表都是可以正常出来了。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/12 22:12:00 [只看该作者]

打开你电脑的任务管理器->进程，把所有的excel.exe进程全部杀死看看。

如果还报错，就是代码问题，贴出你写的完整代码。

monvzhilei

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

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/12 22:26:00 [只看该作者]

以下内容为程序代码:

1 Dim Book As New XLS.Book(ProjectPath & "Attachments\学籍卡xls")
2 Dim fl As String = ProjectPath & "Reports\excell.xls"
3 Book.Build() '生成细节区
4 Book.Save(fl) '保存工作簿
5
6 Dim App As New MSExcel.Application
7 Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
8 Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
9 Dim Rg As MSExcel.Range = Ws.Cells
10 'Rg.EntireColumn.AutoFit '自动调整列宽
11 'Rg.EntireRow.AutoFit '自动调整行高
12 'Rg.WrapText = True
13 rg.ShrinkToFit = True
14 App.Visible = True

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

monvzhilei

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

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/12 22:27:00 [只看该作者]

上面的代码。能够正常运行。除了这个错误对话框。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/12 22:28:00 [只看该作者]

打开你电脑的任务管理器->进程，把所有的excel.exe进程全部杀死看看。

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

总数 17 1 2 下一页

主题：[讨论]Excel报表格式设置