13518219792
我的是2007版本，其它类似
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、网站设计、昭平网络推广、微信小程序开发、昭平网络营销、昭平企业策划、昭平品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供昭平建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com
1.在工程中引用Microsoft Excel 12.0 Object Library
2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作VB.NET EXCEL常用命令：
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
还有很多，这个要自己慢慢摸索
1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。
2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。
3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。
4. 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。
5.现在输入代码：
Sub 查找()
Dim jieguo As String, p As String, q As String
Dim c As Range
jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)
If jieguo = "False" Or jieguo = "" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveSheet.Cells
Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)
If Not c Is Nothing Then
p = c.Address
Do
c.Interior.ColorIndex = 4
q = q c.Address vbCrLf
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address p
End If
End With
MsgBox "查找数据在以下单元格中：" vbCrLf vbCrLf _
q, vbInformation + vbOKOnly, "查找结果"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。
7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。
使用了VB.NET开发一个访问excel读取数据并修改的小程序，有一些经验性的东西和大家共享，如果有误还请大家指正。
大致分为这样几个部分来说明：
1、 准备部分：
准备部分我们需要添加excel library的引用到工程中：我使用office2003，它的库文件为 Microsoft excel 11.0 object library。如果使用excel2000，那么它使用的是Microsoft excel 9.0 object library。
有需要时，我们添加Imports 命名空间。
我在这个程序中只是访问了excel的数据，不需要命名空间了哈。
2、 声明一些对象：
这些对象并不是都需要，前面三个应该有，后面的，你需要什么对象就声明：
Dim excelapp As Excel.Application ‘声明一个application对象
Dim excelworkbook As Excel.Workbook ‘声明一个工作簿对象
Dim excelsheet As Excel.Worksheet ‘声明一个工作表对象
等等…如：
Dim excelrange As Excel.Range ‘声明一个范围对象
3、 访问一个excel文件：
excelapp = New Excel.Application
excelworkbook = excelapp.Workbooks.Open(strfile) ‘访问到工作簿：这个strfile 是文件的路径，我从打开文件对话框中得到的。
excelsheet = excelworkbook.Sheets.Item(1) ‘访问到工作表：item使用索引值来得到sheet对象的引用
excelsheet.activate
我们可以得到此文件中的值：
定义一个string变量：
Dim strcellvalue as string
Strcellvalue=excelsheet.cells(1,1).value ‘得到A1单元格的内容。
修改的时候反过来就可以了：
excelsheet.cells(1,1).value= Strcellvalue
4、 善后：
在程序的每一个退出口操作excel对象，保存或者不保存：
Excelworkbook.save
Excelworkbook.close
Excelapp=nothing
5其它：
需要注意~上面的代码需要一些容错机制，比如：
If Not excelworkbook Is Nothing Then 这样的话来达到程序的正确运行
需要判断现在excel又没有打开。如果有excel进程正在运行。你的代码很可能会影响到打开的excel，像Excelworkbook.close这样的语句虽然前面已经很好的唯一指定了工作簿，但不能很武断的进行鲁莽的操作，我们需要判断现在excel的运行情况。
另外，VB.NET 读取Excel 2007的xlsx文件和读取老的.xls文件是一样的，都是用Oledb读取,仅仅连接字符串不同而已。读取xlsx 用的是Microsoft.Ace.OleDb.12.0;具体操作方法如下：
Public Shared Function GetExcelToDataTableBySheet(ByVal FileFullPath As String, ByVal SheetName As String) As DataTable
'string strConn = "Provider=Microsoft.Jet.OleDb.4.0;" + "data source=" + FileFullPath + ";Extended Properties='Excel 8.0; HDR=NO; IMEX=1'"; //此连接只能操作Excel2007之前(.xls)文件
Dim strConn As String = ("Provider=Microsoft.Ace.OleDb.12.0;" "data source=") + FileFullPath ";Extended Properties='Excel 12.0; HDR=NO; IMEX=1'"
'此连接可以操作.xls与.xlsx文件
Dim conn As New OleDbConnection(strConn)
conn.Open()
Dim ds As New DataSet()
Dim odda As New OleDbDataAdapter(String.Format("SELECT * FROM [{0}]", SheetName), conn)
'("select * from [Sheet1$]", conn);
odda.Fill(ds, SheetName)
conn.Close()
Return ds.Tables(0)
End Function
读取Excel文件时，可能一个文件中会有多个Sheet，因此获取Sheet的名称是非常有用的。根据Excel物理路径获取Excel文件中所有表名的具体操作方法如下：
Public Shared Function GetExcelSheetNames(ByVal excelFile As String) As [String]()
Dim objConn As OleDbConnection = Nothing
Dim dt As System.Data.DataTable = Nothing
Try
'string strConn = "Provider=Microsoft.Jet.OleDb.4.0;" + "data source=" + excelFile + ";Extended Properties='Excel 8.0; HDR=NO; IMEX=1'"; //此连接只能操作Excel2007之前(.xls)文件
Dim strConn As String = ("Provider=Microsoft.Ace.OleDb.12.0;" "data source=") + excelFile ";Extended Properties='Excel 12.0; HDR=NO; IMEX=1'"
'此连接可以操作.xls与.xlsx文件
objConn = New OleDbConnection(strConn)
objConn.Open()
dt = objConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
If dt Is Nothing Then
Return Nothing
End If
Dim excelSheets As [String]() = New [String](dt.Rows.Count - 1) {}
Dim i As Integer = 0
For Each row As DataRow In dt.Rows
excelSheets(i) = row("TABLE_NAME").ToString()
i += 1
Next
Return excelSheets
Catch
Return Nothing
Finally
If objConn IsNot Nothing Then
objConn.Close()
objConn.Dispose()
End If
If dt IsNot Nothing Then
dt.Dispose()
End If
End Try
End Function
第一步，新建项目。
1
打开vb.net，也就是打开Microsoft visual studio 2010，第一次使用的时候设置为basic语言就行。新建项目--打开excel。
2
新建成功。
END
第二步，添加引用。
1
“项目”--“添加引用”。
2
添加Microsoft Excel 14.0 Object Library。
END
第三步，添加打开文件对话框工具。
1
工具箱--对话框--openfiledialog。
2
添加成功。
END
第四步，添加命令按钮控件。
1
工具箱--公共控件--button。
在控件上右击鼠标，进入属性设置。
2
text属性设置为“打开excel”。
3
name属性也设置为“打开excel”。
END
第五步，编写程序。
1
鼠标双击命令按钮，进入编程界面，编写程序。
END
第六步，运行程序。
1
鼠标单击启动调式图标，程序开始运行。
2
单击打开excel命令按钮，调用打开文件对话框，选择自己要打开的excel文件。
END
第七步，保存程序。
第一次程序运行完，关闭程序，出现关闭项目提示，选择保存。
2
选好自己要保存的位置。
