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

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

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

VB.NET 对Excle表格进行读取和写入

时间:2016-10-24 16:33来源:excel.org.cn 作者:admin 点击:
首先通过菜单[项目] -- [添加引用],选择[COM]选项卡, 选择Microsoft Excel XX.0 Object Library,[确定]。 其中:XX.0 ,视你安装的Office版本而定。 代码: Public Class Form1 Private Sub Button1_Click(ByVal
首先通过菜单[项目] -- [添加引用],选择[COM]选项卡,
选择“Microsoft Excel XX.0 Object Library”,[确定]。
其中:XX.0 ,视你安装的Office版本而定。

 代码:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim AppXls As Microsoft.Office.Interop.Excel.Application    '声明Excel对象
        Dim AppWokBook As Microsoft.Office.Interop.Excel.Workbook    '声明工作簿对象
        Dim AppSheet As New Microsoft.Office.Interop.Excel.Worksheet    '声明工作表对象

        AppXls = New Microsoft.Office.Interop.Excel.Application     '实例化Excel对象
        AppXls.Workbooks.Open("C:\学生成绩.xls")                    '打开已经存在的EXCEL文件
        AppXls.Visible = False                                      '使Excel不可见

        'AppWokBook = New Microsoft.Office.Interop.Excel.Workbook    '实例化工作簿对象
        'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet     '实例化工作表对象

        AppWokBook = AppXls.Workbooks(1)            'AppWokBook对象指向工作簿"C:\学生成绩.xls"
        AppSheet = AppWokBook.Sheets("Sheet1")                      'AppSheet对象指向AppWokBook对象中的表“Sheet1”,即:"C:\学生成绩.xls"中的表“Sheet1”

        '下面举一些例子:
        '1、如果不声明工作表对象 AppSheet ,那么应用AppWokBook对象中的表“Sheet1”的语句就是:AppWokBook.Sheets("Sheet1")
        '2、如果不声明工作簿对象 AppWokBook ,那么应用"C:\学生成绩.xls"中的表“Sheet1”的语句就是:AppXls.Workbooks("C:\学生成绩.xls").Sheets("Sheet1")

        '要读取数据表"Sheet1"中的单元格“A1”的值,到变量S1里
        Dim S1 As String
        '方法一
        S1 = AppXls.Workbooks(1).Sheets("Sheet1").Range("A1").Value
        MsgBox(S1)

        '方法二
        S1 = AppWokBook.Sheets("Sheet1").Range("A1").Value
        MsgBox(S1)

        '方法三
        S1 = AppSheet.Range("A1").Value
        MsgBox(S1)

        '把数据写入到单元格“H2”,就是第2行第8个单元格
        '方法一
        AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value = "您好!"
        S1 = AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value        '为了验证,读取并显示它
        MsgBox(S1)

        '方法二
        AppWokBook.Sheets("Sheet1").Cells(2, 8).Value = "你们好!"
        S1 = AppWokBook.Sheets("Sheet1").Cells(2, 8).Value                 '为了验证,读取并显示它
        MsgBox(S1)

        '方法二
        AppSheet.Cells(2, 8).Value = "大家好!"
        S1 = AppSheet.Cells(2, 8).Value                                   '为了验证,读取并显示它
        MsgBox(S1)

        '使用完毕必须关闭EXCEL,并退出
        AppXls.ActiveWorkbook.Close(SaveChanges:=True)
        AppXls.Quit()

'完成此程序,打开EXCEL检查,可以看到在“Sheet1”表的单元格“H2”里是文本“大家好!”

    End Sub (责任编辑:admin)
顶一下
(48)
92.3%
踩一下
(4)
7.7%

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