Question

VB.net中怎样在一个已经打开的Excel工作表中赋值？

首先，这个Excel是已经打开了的，并不需要ExBook = Ex.WorkBooks.Open(" ")，哪位高手帮忙解答下，尽量运行下成功了告诉我，太感谢了。

Answer 1

vb2008在window10的office2007测试通过，以下是代码

    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 = "123" '表示把已经打开的第一个工作簿的第一个工作表的A1单元格赋值为“123”
            excelObj = Nothing
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub