作者：乔山办公网日期：
返回目录：office365
我只有VB 2005，但是道理一样的！
首先通过菜单[项目] -- [添加引用]，选择[COM]选项卡，选择“Microsoft Excel XX.0 Object Library”，[确定]。
其中e799bee5baa6e997aee7ad94e78988e69d83364：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
在Ex.save之前加一行
Ex.displayalerts=false
就可以了
最好在Ex.save之后改回去
Ex.displayalerts=true
在项目中添加Excel类库的引用，然后在VB中定义Excel 的Application，WorkBook和Worksheet
然后对Worksheet中的Range进行操作，不用像Access那样e799bee5baa6e79fa5e98193e58685e5aeb9333建立ADO什么的连接。
比如
Dim exlApp as Excel.Application = Createobject("Excel.Application")
if exlApp is Nothing then exit sub
dim xBook as Excel.WorkBook=exlApp.Workbook.add
if xBook is Nothing then exit sub
dim xSheet as excel.WorkSheet =xbook.WorkSheet.Add
if xSheet is Nothing Then exit sub
with xSheet
.Range("A1").value="Excel Application Test"
.Range("B1" & ":D2").Merge
.Range("B1" & ":D2").Value="合并表格内容"
end with！
你参考下pageoffice吧，他还是夸浏览器的，网上有很多它的示例代码的你搜搜看。