如何在VB中向EXCEL插入一条直线

Question

如何在VB中向EXCEL插入一条直线,要求是横线,在第4和第5行的中间,请给出完整代码

Answer 1

先给个VBA的：
Sub Macro1()
y = ActiveSheet.Rows("1:4").Height
x = ActiveSheet.Columns("A:P").Width
ActiveSheet.Shapes.AddLine(0, y, x, y).Select
End Sub

再来个VBS的
MsgBox "先建立一个Excel应用程序对象。"
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible=True
MsgBox "下面新建一个工作薄。"
Set ExcelWorkbook = ExcelApp.Workbooks.Add
MsgBox "下面在当前的工作表的第四行和第五行之间画一条A列-O列的直线。"
With ExcelWorkbook.Activesheet
y = .Rows("1:4").Height
x = .Columns("A:P").Width
.Shapes.AddLine 0, y, x, y
End With
MsgBox "下面退出Excel程序。"
ExcelApp.DisplayAlerts=False
ExcelApp.Quit

VB应该和VBS的一样，不用改变代码，可以直接移植

Answer 2

你在EXCEL录制宏就行了。然后在vb中设置EXCEL对象，把宏复制过来就行了。

Answer 3

用vb还是excel中的vba？