后期绑定的ExcelApplication
水如烟 2006-12-25 04:13:37 只可惜,利用不了事件.好长的,现在还在做着,看看能不能做全.
为了设计方便,目前在某些类中还是引用了Excel,最后定稿后,再去掉引用,相关变量全改为Object.
示例:
Public Class Form1
Private gApplication As LzmTW.MSOffice.Excel.ExcelApplication
Private gWorksheet As LzmTW.MSOffice.Excel.Worksheet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
gApplication = New LzmTW.MSOffice.Excel.ExcelApplication
gApplication.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
gApplication.Quit()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
gApplication.Workbooks.Add()
gWorksheet = gApplication.ActiveWorksheet
gWorksheet.Rows(10).Select()
Console.WriteLine(gWorksheet.Rows.Count)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
With gWorksheet.Range(gWorksheet.Cells(1, 2), gWorksheet.Cells(5, 5))
.Value = "AA"
With .Borders(LzmTW.MSOffice.XlBordersIndex.xlEdgeRight)
.LineStyle = LzmTW.MSOffice.XlLineStyle.xlDouble
.Color.SetValue(Color.Blue)
.Weight = LzmTW.MSOffice.XlBorderWeight.xlHairline
End With
Console.WriteLine(.Rows.Count)
.Rows(2).Select()
End With
End Sub
End Class