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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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