如果你有Excel任何问题,请留言或者加我们qq 24119011 让我们知道。谢谢

excel表格的基本操作-excel教程网

当前位置: 主页 > 高级教程 > vba >

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

时间:2017-08-15 10:35来源:excel 作者: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 注意,如果是新建未保存的工
 


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)
顶一下
(0)
0%
踩一下
(1)
100%

------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片