加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

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

(2019-10-26 22:40:58)
分类: ◆VB.NET_(批处理)
VB.NET 对Excle表格进行读取和写入
━━━━━━━━━━━━━━━━━━━━━━━━━

首先通过菜单[项目] - - [添加引用],选择[COM]选项卡,
选择“Microsoft Excel XX.0 Object Library”,[确定]。
其中:XX.0 ,视你安装的Office版本而定。

 代码:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal As System.EventArgsHandles 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

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有