VFP调用Excel如何将单元格设为竖排？
如何将单元格的文字设为竖排，即像
例
子
这样的格式？
[解决办法]
oExcel=CREATEOBJECT( "Excel.application ")
oExcel.Workbooks.Open( "d:\test.xls ")
oExcel.visible=.t.
messagebox( '先再看一下 ')
lcString1=oExcel.ActiveSheet.Cells(1,2).value&&取得第1行第2列单元格的值
lcString2= ' '
J=LENC(lcString1)
FOR I=1 TO J
lcString2=lcString2+LEFTC(lcString1,1)+CHR(10)
lcString1=RIGHTC(lcString1,LENC(lcString1)-1)
ENDFOR
oExcel.ActiveSheet.Cells(1,2).value=lcString2&&用竖排后值替换原内容
messagebox( '再看一下 ')
oExcel.ActiveWorkbook.saved
oExcel.Workbooks.close
oExcel.quit
RELEASE oExcel
[解决办法]
难道在OLE调用中没有相应的接口实现这一操作？
你难道不会在EXCEL中录制宏，再看看代码？
oExcel=CREATEOBJECT( "Excel.application ")
oExcel.Workbooks.add
oExcel.visible=.t.
oExcel.ActiveSheet.Cells(1,1).Orientation = -4166
oExcel.ActiveSheet.Cells(1,1).value= "例子 "
oExcel.Workbooks.close
oExcel.quit
RELEASE oExcel
