vb如何读取excel文件

最新推荐文章于 2023-10-25 13:51:21 发布
最新推荐文章于 2023-10-25 13:51:21 发布
阅读量2.7w 收藏 47
点赞数 7
分类专栏： Excel VB
Excel 同时被 2 个专栏收录
7 篇文章 0 订阅
订阅专栏
VB
3 篇文章 1 订阅
订阅专栏

转自：http://zhidao.baidu.com/link?url=f567gT9oPD0F_MoLS61zCVsFGzGpzSQvUM9hU-wC7SdALJucmFDGMMU_E0c8ntTnK8ms2fkUF-a8xTDJrgJV_H1Iq2wa7WKCydAFksm95ba

1、调用Excel对象打开EXCEL文件后，读取文件内容
***************************************
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。
 
因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。
第一层：Application对象，即Excel本身；
第二层：workbooks对象集，指Excel的工作簿文件
第三层：worksheets对象集，表示的是Excel的一个工作表；
第四层：Cells和Range对象，指向Excel工作表中的单元格。
新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层：
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。
Private Sub Excel_Out_Click()
 Dimi, j As Integer
 Setxlapp = CreateObject("Excel.Application") '创建EXCEL对象
 'Set xlbook = xlapp.Workbooks.Open(App.Path& "\test.xls")'打开已经存在的test.xls工件簿文件
 Setxlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
 'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
 'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
xlapp.Visible = True '设置EXCEL对象可见（或不可见）
 Setxlsheet = xlbook.Worksheets(1) '设置活动工作表''
                              ''~~~当前工作簿的第一页,这里也可以换成“表名”
 
'下面就是简单的在一些单元格内写入数字
 Fori = 7 To 15
  For j = 1 To 10
xlsheet.Cells(i, j) = j   '当前工作簿第一页的第I行第J列
  Next j
 Nexti
 Withxlsheet      '设置边框为是实线
   .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
 EndWith
 '引用当前工作簿的第二页
 Setxlsheet = xlapp.Application.Worksheets(2)
xlsheet.Cells(7, 2) = 2008   '在第二页的第7行第2列写入2008
xlsheet.SaveAsApp.Path&"\test.xls"           '按指定文件名存盘
 'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿
xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close
 Setxlapp = Nothing '释放xlApp对象
End Sub
这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：
     1．创建Excel对象
eole=CREATEOBJECT(′Excel.application′) 
    2．添加新工作簿
eole.Workbooks.add
    3．设置第3个工作表为激活工作表
eole.Worksheets(〃sheet3〃).Activate 
    4．打开指定工作簿
eole.Workbooks.Open(〃c:\temp\ll.xls〃) 
    5．显示Excel窗口
eole.visible=.t. 
    6．更改Excel标题栏
eole.Caption=〃VB应用程序调用Microsoft   Excel〃
    7．给单元格赋值
eole.cells(1,4).value=XM(XM为数据库字段名) 
    8．设置指定列的宽度(单位：字符个数) 
eole.ActiveSheet.Columns(1).ColumnWidth=5 
    9．设置指定行的高度(单位：磅) 
eole.ActiveSheet.Rows(1).RowHeight=1/0.035 
    (设定行高为1厘米，1磅=0.035厘米) 
   10．在第18行之前插入分页符
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 
   11．在第4列之前删除分页符
eole.ActiveSheet.Columns(4).PageBreak=0 
   12．指定边框线宽度(Borders参数如下) 
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3 
   13．设置四个边框线条的类型
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1 
    (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) 
   14．设置页眉
eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃
   15．设置页脚
eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃
   16．设置页眉到顶端边距为2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 
   17．设置页脚到底边距为3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 
   18．设置顶边距为2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035 
   19．设置底边距为4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 
   20．设置左边距为2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 
   21．设置右边距为2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035 
   22．设置页面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 
   23．设置页面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t. 
   24．设置页面纸张大小(1－窄行8511   39－宽行1411) 
eole.ActiveSheet.PageSetup.PaperSize=1 
   25．打印单元格网线
eole.ActiveSheet.PageSetup.PrintGridlines=.t. 
   26．拷贝整个工作表
eole.ActiveSheet.UsedRange.Copy
   27．拷贝指定区域
eole.ActiveSheet.Range(〃A1:E2〃).Copy 
   28．粘贴
eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
   29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert 
   30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert 
   31．设置字体
eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃
   32．设置字体大小
eole.ActiveSheet.Cells(1,1).Font.Size=25 
   33．设置字体为斜体
eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 
   34．设置整列字体为粗体
eole.ActiveSheet.Columns(1).Font.Bold=.t. 
   35．清除单元格公式
eole.ActiveSheet.Cells(1,4).ClearContents
   36．打印预览工作表
eole.ActiveSheet.PrintPreview
   37．打印输出工作表
eole.ActiveSheet.PrintOut
   38．工作表另存为
eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃) 
   39．放弃存盘
eole.ActiveWorkbook.saved=.t. 
   40．关闭工作簿
eole.Workbooks.close
   41．退出Excel 
eole.quit
***************************************

2、调用ADO对象以数据库方式打开EXECL文件后，以SQL语句方式读取文件
***************************************
     Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""
      rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdText
      Set Read_Text_File = rs
      Set rs = Nothing
      Set conn = Nothing
***************************************

suyu_yuan
关注
  • 7
    点赞
  • 踩
  • 47
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
SQL+EXCEL数据处理攻略（一）
qq_40032766的博客
09-26 1583
SQL+EXCEL数据处理攻略（一）一、连接到数据库（1）创建ADO对象（2）建立数据库连接（3）执行SQL语句并获取查询结果 前段时间自己在公司里做了VBA办公技能培训，其中就涉及到SQL语句在数据查找和汇总上的应用，因此感觉有必要将一些常见的套路和坑加以总结。本帖重点介绍的是在EXCEL VBA中使用SQL语句操作EXCEL工作簿和ACCESS数据库的技巧。 一、连接到数据库 （1）创建ADO...
利用ADO操作Excel文件
u012767067的专栏
04-11 2030
http://blog.csdn.net/tabby/article/details/1889217 今天花时间研究了一下ADO操作Excel文件的问题，跟大家分享一下： 首先利用Excel2003创建了一个名为Demo.xls的文件，内容如下： Name Age TY 12 TZL 15 然后打开V
VB中使用ADO的方法创建及访问Excel文件(原创)
雪松软件开发的专栏
06-22 2030
本文主要介绍使用ADO的方法操作EXCEL文件,其它相对于使用EXCEL对象更通用简单.   数据库连接    Dim adoConn As New ADODB.Connection     Dim adoReco As New ADODB.Recordset     Set adoConn = New ADODB.Connection    OLE DB + ODBC Driver
vb.net读取写入EXCEl的终极方法-NOPI。
chinaherolts2008的博客
12-11 1162
据我浅薄的知识，之前只知道两种操作excel的方法： 一。ODBC操作excel 看下图： 1.ODBC 由于初期连接不同的数据库通过vb.net教程各种不同的API，ODBC就是将各种不同的API封装成统一的接口。当sql语句进入接口时驱动器管理器会判断将他们送入对应的驱动器（driver），由对应的驱动将sql语句送入对应的数据库。 缺点：不同版本的excel，需要添加不同的ODBC数据源。 2.OLEDB与ODBC OLEDB：一个基于COM（Componet Object Model，DOS可执行
使用【VBScript】从Excel电子表格中读取数据的简单教程
No_Name_Cao_Ni_Mei的博客
10-12 1189
在完成数据读取后，我们需要关闭电子表格并退出Excel应用程序，以释放资源。本文将介绍如何使用VBScript编写一个简单的脚本，从Excel电子表格中读取单元格的值，并进行相应的处理。对于每一行，我们使用Cells方法读取单元格的值，并将其存储在相应的变量中。通过使用VBScript编写的简单脚本，我们可以轻松地从Excel电子表格中读取数据，并进行相应的处理。接下来，我们需要指定要读取的Excel电子表格的路径，并使用WorkBooks.Open方法打开它。最后，我们需要清理已使用的对象，以释放内存。
关于使用ADO和VBA提取Excel数据一点经验
everwide的博客
01-04 2793
近日一直在研究Excel VBA,昨天看到了《处理外部数据和文件》这一章节，本来照猫画虎的抄代码可以一键过，没想到遇到了诸多问题，经过几个小时的搜索汇总，最终形成了以下几点经验(本机安装win7 office2016)。 1.早期绑定。通过“工具-引用”勾选Microsoft ActiveX Data Object 2.8 Library和Microsoft ActiveX Data Object...
VB读取excel文件
09-20
以上就是VB读取Excel文件的基本操作和防止出现“对象变量或With块变量未设置”错误的方法。在实际项目中，你可能还需要处理更复杂的情况，如读取多张工作表、处理大量数据、动态定位单元格等。确保正确管理Excel对象...
VB读取EXCEL文件
10-27
能够读取EXCEL，并且写入。 '读取01.xls中A2到A6，5个单元格的数据 Private Sub Command1_Click() Dim ExcelApp
VB读取Excel内容
02-03
首先，要使用VB读取Excel内容，你需要引入必要的引用。在VB环境中，打开工程属性，点击“引用”选项卡，然后勾选“Microsoft Excel xx.x Object Library”，这里的xx.x代表你的Excel版本号。引入此库后，你可以使用...
vb6读取excel文件
02-20
在VB6（Visual Basic 6）中，读取Excel文件是一项常见的任务，特别是在处理数据导入、导出或分析时。以下是一些关于如何在VB6中读取Excel文件及其内容的关键知识点，以及如何连接到SQL数据库以读取数据。 1. **引入...
VB 读取excel或txt文档内容
09-03
实现读取excel或者txt文档的具体内容！
VB读取EXCEL 编辑，
06-23
VB，读EXCEL。转，不是本人编写的！在vb读取excel中的数据并在窗体上显示 Public ExcelTable As Workbook 'excel 工作表对象 Private TextBoxA() As Control '以编辑框为基础动态构造数据网格 Private FormWidth As Integer '窗体宽度 '以下子程序是用来建立数据网格 Sub CreateGrid(No, Data) For i = 1 To CInt(UBound(Data, 1)) For j = 1 To CInt(UBound(Data, 2)) Set a = Form1.Controls.Add("VB.TextBox", "textbox" & CStr(i) & CStr(j) & CStr(No)) ReDim TextBoxA(1 To i, 1 To j) '重新定义动态数组！ Set TextBoxA(i, j) = a With TextBoxA(i, j) '设置文本框属性 .Text = Data(i, j) .Visible = True .Height = 200 .Width = 500 .Top = .Height * (i - 1) .Left = .Width * (j - 1) + FormWidth End With Next Next End Sub
vb读取excel
03-15
在VB（Visual Basic）编程环境中，我们可以利用Microsoft Office的自动化接口来读取Excel文件，将Excel视作一个数据库进行操作。下面将详细讲解如何在VB中实现这一功能，以及涉及的相关知识点。 首先，我们需要导入...
VBS读取Excel
Aries鹏的专栏
09-05 2853
Function FastReadExcel(byval myXlsFile,byval mySheet,byref arrData( ), byref Rscount,byval blnHeader )          Erase arrData         Dim  i, j          Dim objExcel, objRS          Dim strHeader, str...
vbs使用Excel.Application组件读写excel文件
阿鑫的家
07-25 9431
vb创建xls表，并写入内容Set   ExcelApp  =  CreateObject("Excel.Application")      创建EXCEL对象   Set   ExcelBook =  ExcelApp.Workbooks.Add  Set   ExcelSheet   =   ExcelBook.Worksheets(1)     添加工作页ExcelSheet.Ac
VBS 两种方式读取Excel
07-17 3761
1：ADODB方式 Function GetConfig(sConfigFile, sSheet,sCaseId) ' Call PrintLog(Now, LOG_STATUS_INFO, "GetConfig(" & sConfigFile & "," & sSheet & ")") Dim oDictionary, oConnection Se...
博客摘录「 vb调用excel方法详解及操作相关操作命令大全」2023年10月25日
最新发布
L6630的博客
10-25 912
因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。第三层：worksheets对象集，表示的是Excel的一个工作表；先定义好各层：Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表 我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。
vb调用excel方法大全
热门推荐
孤独剑 的专栏
11-08 1万+
 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。    因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。    第一层：Application对象，即Excel本身；    第二层：wo
vb6.0 读取Excel 文件内容
06-03
以下是使用 VB6.0 读取 Excel 文件内容的基本步骤： 1. 引用 Microsoft Excel 库文件，方法是在 VB6.0 中打开工程，选择“项目”菜单下的“引用”，勾选“Microsoft Excel 16.0 Object Library”（版本号可能不同）并确定。 2. 创建 Excel 应用程序对象： ```vb Dim oExcel As Excel.Application Set oExcel = New Excel.Application ``` 3. 打开 Excel 文件： ```vb Dim oWorkbook As Excel.Workbook Set oWorkbook = oExcel.Workbooks.Open("文件路径") ``` 4. 选择 Excel 工作表： ```vb Dim oWorksheet As Excel.Worksheet Set oWorksheet = oWorkbook.Worksheets("工作表名称") ``` 或者： ```vb Dim oWorksheet As Excel.Worksheet Set oWorksheet = oWorkbook.Worksheets(1) ' 选择第一个工作表 ``` 5. 读取单元格内容： ```vb Dim cellValue As String cellValue = oWorksheet.Cells(1, 1).Value ' 读取第一行第一列单元格内容 ``` 6. 关闭 Excel 文件： ```vb oWorkbook.Close False ' False 表示不保存修改 ``` 7. 释放 Excel 应用程序对象： ```vb oExcel.Quit Set oExcel = Nothing ``` 以上是基本的读取 Excel 文件内容的步骤，你可以根据需要进行修改和扩展。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值