vb导出的excel如何在每个格子中居中阿

moyaxu 2003-10-20 03:27:21
Set oExcel = CreateObject("Excel.Application")
Set obook = oExcel.Workbooks.Add
Set osheet = obook.Worksheets(1)
Set osheet = oExcel.Application.Workbooks(1).Worksheets("Sheet1")

osheet.Range("A1:L1").Select '设置单元个

oExcel.Selection.Merge '设置标题
osheet.Range("A1:L1").Select
With oExcel.ActiveCell.Characters(Start:=1, Length:=26).Font
.Name = "宋体"
.fontstyle = "加粗"
.Size = 18
'.Height = 22
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = True
'.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


Set osheet = oExcel.Application.Workbooks(1).Worksheets("Sheet1") '设置表格
osheet.cells(1, 1).Value = "xx"

前面一行的xx如何居中呢?
...全文
539 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
hhjjhjhj 2003-10-22
  • 打赏
  • 举报
回复
"多谢大头大虾,但我还有疑问:为什么要设成 -4108呢?"
--------用CreateObject方法时VB不认识xlCenter等常数
如用引用的办法就没问题
lihonggen0 2003-10-22
  • 打赏
  • 举报
回复
居中:
Columns(1).HorizontalAlignment =xlCenter

.HorizontalAlignment = xlRight
.HorizontalAlignment = xlLeft
.HorizontalAlignment = xlCenter


这些在EXCEL中录制宏,就可以看到代码的!!!
lihonggen0 2003-10-22
  • 打赏
  • 举报
回复

在EXCEL中画线:

With osheet
.Range(.Cells(1, 1), .Cells(10, 10)).Borders.LineStyle = xlContinuous
End With
moyaxu 2003-10-22
  • 打赏
  • 举报
回复
我还有一个问题是:如何在EXCEL中画线阿
moyaxu 2003-10-22
  • 打赏
  • 举报
回复
多谢大头大虾,但我还有疑问:为什么要设成 -4108呢?
since1990 2003-10-22
  • 打赏
  • 举报
回复
up
moyaxu 2003-10-22
  • 打赏
  • 举报
回复
多谢各位大虾,最后我还有一个问题:就是设置一行的宽度的语句该怎么写呢?
since1990 2003-10-20
  • 打赏
  • 举报
回复
up
hhjjhjhj 2003-10-20
  • 打赏
  • 举报
回复
不对!!应该
osheet.Range("A1:L1").HorizontalAlignment = -4108 '左右
hhjjhjhj 2003-10-20
  • 打赏
  • 举报
回复
呵 Range("A1:L1") 已经 Merge 了
osheet.Range("A1:L1").HorizontalAlignment = xlCenter '左右
moyaxu 2003-10-20
  • 打赏
  • 举报
回复
不行阿,为什么我用了osheet.cells(1, 1).HorizontalAlignment = xlCenter,就会报“实时错误1004,不能设置类range的HorizontalAlignment 属性”
China200878 2003-10-20
  • 打赏
  • 举报
回复
楼上的OK
hhjjhjhj 2003-10-20
  • 打赏
  • 举报
回复
osheet.cells(1, 1).HorizontalAlignment = xlCenter '左右
osheet.cells(1, 1).VerticalAlignment = xlCenter '上下

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧