- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码生成的excle文件，自动调整行高和列宽的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141411)
-- 发布时间：2019/9/28 14:32:00
-- [求助]代码生成的excle文件，自动调整行高和列宽的问题
Dim Book As New XLS.Book \'定义一个Excel工作簿
Book.DefaultFont = New Font("宋体",12) \'设置默认字体
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Sheet.Name = "详情统计" \'设置工作表的名称
Book.Save(cunchu) \'保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(cunchu)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True
Dim Proc As New Process \'打开工作簿
Proc.File = cunchu
Proc.Start()
错误提示
此主题相关图片如下：微信截图_20190928143132.png
[此贴子已经被作者于2019/9/28 14:36:06编辑过]
-- 发布时间：2019/9/28 14:38:00
--
这个是系统dll有问题导致的：https://www.baidu.com/baidu?word=80040154+没有注册类
2、试试安装下面的数据访问组件:
http://www.foxtable.com/download/AccessDatabaseEngine.exe
-- 发布时间：2019/9/28 14:46:00
--
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.ForeColor = Color.Red
\'设置样式的字体颜色
For i As
Integer = 0
To
9
Sheet(i,
0).Value = i
If i Mod
2 =0
Then \'如果是偶数行
Sheet(i,0).Style =Style \'设置单元格样式
End
If
Next
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
如果不调用excle组建，通过系统这样生成一个excle能否做到整体自动调整列宽和行高呢？
另外组建已经装过了
此主题相关图片如下：000000.png
[此贴子已经被作者于2019/9/28 14:47:07编辑过]
-- 发布时间：2019/9/28 15:07:00
--
这种方式只能逐个遍历单元格举行设置。
建议卸载office，换个不同的额office完整版安装一下。如果有安装wps，卸载掉
-- 发布时间：2019/9/28 15:43:00
--
鼓捣半天还是不行，请问可否推荐一个安装包
此主题相关图片如下：1111.png
此主题相关图片如下：2222.png
-- 发布时间：2019/9/28 15:45:00
--
我没有。只能上网自己搜。估计还是系统dll的问题：https://www.baidu.com/baidu?word=80040154+没有注册类