关于宏代码在lotus script中部分不能运行的问题

[xdszg]

我先在excel中录制了宏,然后把代码放入lotus script中,发现这些属性的值都不能认识,如:xlCenter,xlLeft,好象这些都是excel的属性值.请问如何解决,100分.

[mystar1977]

弄清楚Ls中的ole对象和VBA中的对象区别，有些程序是vba特有的内部机制，需要你用内部参数来代替一些属性值

[xdszg]

TO davidnim
你觉得应该定义成什么对象.

[davidnim]

能不能将你的代码贴出来看看？

[davidnim]

EXECL的属性当然也可以使用，关键是你的对象定义是否正确？

[xdszg]

怎么没有人回答,难道高手只有传说中才有吗?:)
斑竹帮我问问!

[quhaifeng]

让你把代码贴出来呢！

[frankleee]

提示错误：OLE：Automation Object Error！
请指教？

Set xlApp = CreateObject("Excel.Application")
......
......
xlApp.Range(xlsheet.Cells(4,1), xlsheet.Cells(rows,cols+6)).Select
xlApp.Selection.Font.Name = "Arial"
xlApp.Selection.Font.Size = 9
xlApp.Selection.Columns.AutoFit
'xlsheet.selection.PageSetup.PrintGridlines = True

xlApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
xlApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With xlApp.Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With xlApp.Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With xlApp.Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With xlApp.Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With xlApp.Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With xlApp.Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

[xdszg]

楼上的错误跟我的好象是一样的哟!
就是xlEdgeLeft,xlInsideHorizontal.....这样的Excel属性值在Lotus里运行会出错.
到底是怎么一会事情?
谁能帮我?
100分!

[quhaifeng]

半年前的问题，怎么还没解决啊？