锐客网

  1. 首页 > 睿知 > it技术 > >

vbnet访问表格 vbnet操作数据库

IT技术excel

vb.net如何调用打开外部excel文档第一步，新建项目 。
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
选好自己要保存的位置 。
vb.net怎么访问excel表格我的是2007版本，其它类似
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关闭宏
还有很多，这个要自己慢慢摸索
vb.net如何与excel建立连接，并从里面查询并读取数据？1.新建一张表格vbnet访问表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找 。
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 = qc.AddressvbCrLf
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Addressp
End If
End With
MsgBox "查找数据在以下单元格中："vbCrLfvbCrLf _
q, vbInformationvbOKOnly, "查找结果"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮” 。
7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成vbnet访问表格了亮色 。
VB.NET操作访问Excel1、office2003的驱动应该是：Microsoft.Jet.OleDb.4.0.你必须加引用这个包 。
2、这个是office自带的驱动vbnet访问表格，不需要打包vbnet访问表格了，客户机器上装vbnet访问表格了office就OK了 。
根据客户机子的office版本，加载对应的驱动吧 。
希望能帮到你 。有问题继续追问吧 。
vb.net EXCEL 问题使用了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=https://www.04ip.com/post/excelsheet.cells(1,1).value ‘得到A1单元格的内容 。
修改的时候反过来就可以了：
excelsheet.cells(1,1).value= https://www.04ip.com/post/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(ByValFileFullPath 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
【vbnet访问表格 vbnet操作数据库】关于vbnet访问表格和vbnet操作数据库的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何修复DNS服务器漏洞？ dns服务器漏洞怎么修复

    下一篇：新媒体如何好好建设，新媒体建设方案