VB.net中如何对Excel工作表单元格赋值_excel表格的基本操作-excel教程网

VB.net中如何对Excel工作表单元格赋值

时间:2017-08-15 10:35 来源:excel.org.cn 作者:huang 点击:次

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim excelObj As Object = GetObject(, "Excel.Application")
            If excelObj.Workbooks.Count = 0 Then '注意，如果是新建未保存的工作簿不算打开
                MsgBox("没有工作簿打开")
                excelObj = Nothing
                Exit Sub
            End If
            excelObj.Workbooks(1).Worksheets(1).Range("A1").Value = "222" '表示把已经打开的第一个工作簿的第一个工作表的A1单元格赋值为“222”
            excelObj = Nothing
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub (责任编辑：huang)