在线急等——在vb里面修改excel表格的属性

[snail_90]

我要在vb里面实现execl中文字方向的改变：比如文字由横向变为竖向，并且文字居中，如何实现呀？

[of123]

你在 Excel 中记录宏，然后将其 VBA 代码移植到 VB 程序中。

[faysky2]

同上

录制宏：
打开Excel，在菜单的"工具"->"宏"->"录制新宏"，然后开始对Excel操作(比如：把文字由横向变为竖向，并且文字居中)，操作完了停止录制宏，在"宏"->"Visual Basic编辑器"->"模块"里的模块就有你录制的过程的代码

[Arqui]

看看这个就明白了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 Sub