以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教:EXCEL报表中的行高设置为何不在原位?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4334)
--  作者：yangming
--  发布时间：2009/9/14 14:23:00
--  请教:EXCEL报表中的行高设置为何不在原位?

请将下列代码放按钮中测试,红色代码

Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Sheet.DefaultColumnWidth = 122 \'设置列宽
Sheet.DefaultRowHeight = 155 \'设置行高
For r As Integer = 0 To e.Form.Controls("TextBox1").Value \'向工作表的单元格中设置值
   For c As Integer = 0 To e.Form.Controls("TextBox1").Value  \'向工作表的单元格中设置值
Dim n As Integer=e.Form.Controls("TextBox1").Value+1
    Sheet(r,c).Value = (r+n*c)
Next
Next

Book.Save("c:\\0913.xls") \'保存工作簿
Dim Proc As New Process
Proc.File = "c:\\0913.xls"
Proc.Start()
--  作者：狐狸爸爸
--  发布时间：2009/9/14 14:38:00
--  
呵呵,我也不懂.
别力他,明确设置每行每列,不用默认
--  作者：yangming
--  发布时间：2009/9/14 14:49:00
--  

改成这样就好了

Sheet.Cols(c).Width = 122
Sheet.Rows(r).Height =155

[此贴子已经被作者于2009-9-14 14:55:16编辑过]