在线急等——在vb里面修改excel表格的属性
我要在vb里面实现execl中文字方向的改变：比如文字由横向变为竖向，并且文字居中，如何实现呀？ 问题点数：20、回复次数：3Top
1 楼of123（）回复于 2006-03-16 09:21:22 得分 5
你在 Excel 中记录宏，然后将其 VBA 代码移植到 VB 程序中。Top
2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-16 09:25:43 得分 5
同上
录制宏：
打开Excel，在菜单的"工具"->"宏"->"录制新宏"，然后开始对Excel操作(比如：把文字由横向变为竖向，并且文字居中)，操作完了停止录制宏，在"宏"->"Visual Basic编辑器"->"模块"里的模块就有你录制的过程的代码Top
3 楼Arqui（我要吃饭）回复于 2006-03-16 10:26:35 得分 10
看看这个就明白了http://www.yesky.com/20030217/1652372.shtml
Private Sub Command1_Click() '打开EXCEL过程
If Dir("G:\exceltemp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("G:\exceltemp\Book1.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
With xlsheet.Cells(1, 1)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = xlVertical
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End SubTop
