在VB中引入Excel数据
在https://www.360docs.net/doc/4012992628.html,中引入Excel数据
1.在项目中添加引用Microsoft Excel 1
2.0 Object Library
2.在程序种引用命名空间：Imports Microsoft.Office.Interop
3.定义公共变量
Dim x1App As Excel.Application
Dim x1Book As Excel.Workbook
Dim x1Sheet As Excel.Worksheet
4．写程序获取Excel数据
x1App = New Excel.Application()
x1Book = x1App.Workbooks.Open("D:\SwVBAddin1\SwVBAddin1\Book1.xlsx") x1App.Visible = False
x1Sheet = x1Book.Worksheets.Item(1)
x1Sheet.Activate()
Dim ExcelData As Double
ExcelData = x1Sheet.Cells(1, 1).Value
5．清理代码
x1Book.Save()
x1Book.Close()
x1App.Quit()
用VB在Excel中实现数据查找调用并校验
用VB在Excel中实现数据查找调用并校验 Sub 按钮3_单击() Application.ScreenUpdating = False '关闭屏幕 Sheets("信息表").Select Cells(4, 20) = 1 Columns("U:U").Select '对单位进行筛选 Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="=1", Operator:=xlAnd Range("K5:K4003").Select Selection.ClearContents Sheets("银行卡号").Select Range("Z5:Z4003").Select Selection.ClearContents Sheets("信息表").Select Dim i, j, k, m, n As Integer n = Cells(2, 22).Value + 5 Cells(6, 25) = "查找银行卡号并导入" For m = 5 To n Sheets("信息表").Select Cells(7, 26) = m - 4 Application.ScreenUpdating = True '重新打开屏幕 Cells(1, 2) = Cells(8, 26) Range(Cells(m, 6), Cells(m, 6)).Select Application.ScreenUpdating = False '关闭屏幕 Cells(2, 25) = Cells(m, 6) Cells(2, 26) = Cells(m, 3) Cells(m, 8) = Cells(3, 27) If Cells(3, 26) > 1 Then Cells(m, 11) = "同校同名" End If Sheets("银行卡号").Select j = Cells(4, 24) + 4 Cells(j, 26) = 1 Sheets("信息表").Select Next m Cells(6, 25) = "为零银行卡号复查导入" For k = 5 To n Sheets("信息表").Select Cells(7, 26) = k - 4 Application.ScreenUpdating = True '重新打开屏幕 Cells(1, 2) = Cells(8, 26) Range(Cells(k, 6), Cells(k, 6)).Select
Java实现Excel数据导入和导出的研究与应用
Java实现Excel数据导入导出的研究与应用 王晶晶 北京邮电大学网络教育学院(100088) E-mail：bolalisi_double@https://www.360docs.net/doc/4012992628.html, 摘要：Excel能够通过功能强大的工具将杂乱的数据组织成有用的信息，然后分析、交流和共享所得到的结果。很多系统由于存在着大量需要处理的数据，Excel本身强大的功能使得它成为处理分析这些数据首选的工具。随着Java语言成为越来越多系统的开发语言，利用Java进行Excel的数据导入导出在很多系统中都发挥着重要的作用，本文主要介绍了Jxl API的主要功能，并结合实例探讨了利用Jxl API操作Excel数据的导入和导出。 关键字：Java；Excel； Jxl API；数据导入导出 中图分类号：TP312文献标识码：A 1. 引言 MS的电子表格（Excel）是Office的重要成员，是保存统计数据的一种常用格式。在一个Java应用中，将一部分数据生成Excel格式，是与其他系统无缝连接的重要手段。在远程网络教学系统中，利用Excel表格统计学生的作业考试情况信息，便于老师了解学生的学习情况，分析教学效果，制定教学计划。所以，用Java操作Excel表格，导出相关的信息对于远程网络教育系统有着的很重要的意义。 在开源世界中，有两套比较有影响的API提供Excel数据导入导出的功能，一个是POI，一个是jExcelAPI。本文结合基于J2EE开发的多媒体教学系统中提供的将学生作业信息导出到Excel表格中的实例，详细阐述了利用JAVA开发的jExcelAPI操作excel的方法。 2. Jxl 简介 2.1 Java语言简介 Java语言具有面向对象、与平台无关、安全、稳定和多线程等优良特性，是目前软件设计中极为强大的编程语言[1]。它具有以下一些特点[2]：简单，面向对象，分布式，解释执行，鲁棒，安全，体系结构中立，可移植，高性能，多线程以及动态性。 2.2什么是Jxl Java Excel是一开放源码项目，通过它Java开发人员可以读取Excel文件的内容、创建新的Excel文件、更新已经存在的Excel文件。使用该 API非Windows操作系统也可以通过纯Java应用来处理Excel数据表。因为是使用Java编写的，所以我们在Web应用中可以通过JSP、 Servlet来调用API实现对Excel数据表的访问。 Jxl发布的稳定版本是V2.0，提供以下功能： 从Excel 95、97、2000等格式的文件中读取数据[3]； 读取Excel公式（可以读取Excel 97以后的公式）[3]；
vb代码读取excel数据源
取得excel文件所有内容： 'add microsoft ado frist. Private Sub Command2_Click() Dim adoConnection As New ADODB.Connection Dim adoRecordset As New ADODB.Recordset CommonDialog1.ShowOpen 'OLE DB + ODBC Driver 方式: 'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls" 'Microsoft.Jet.OLEDB.4.0 方式,(建?) adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CommonDialog1.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'" adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic Debug.Print adoRecordset.RecordCount Dim i As Integer Do Until adoRecordset.EOF For i = 0 To adoRecordset.Fields.Count - 1 Debug.Print adoRecordset.Fields.Item(0).Name Debug.Print adoRecordset.Fields.Item(0).Value Next i adoRecordset.MoveNext Loop End Sub 但还不知道如何取得sheet名，不好意思，那位老鸟知道请告知，谢谢 sheet名用Excel.Application对象 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Open("C;\123.xls")) For i = 1 To intSheetSum strTemp=xlBook.Worksheets(i).name Next i Dim xlsconn As New ADODB.Connection
(新)vb程序调用excel数据
Visual Basic调用Excel之技巧吴声松 (湖北省水利水电勘测设计院地质大队湖北 430070) Visual Basic(以下简称VB)是一套可视化、面向对象、事件驱动方式的结构化程序设计语言，已经成为许多程序设计者甚至专业程序员用来开发WINDOWS应用程序的首选开发工具。但用过VB的程序设计人员都知道，要想用VB输出复杂的表格来，是十分困难的。能不能用VB调用EXCEL呢？Active技术标准为我们解决了这个问题。最近笔者为单位开发“土工试验数据整理”的某个模块时，涉及到复杂数据表格的输出问题，经过笔者的摸索，用VB调用EXCEL，取得了很好的效果。本文从编程实践的角度对使用VB控制EXCEL的技术作简要说明。 1 EXCEL的对象模型 如果一个应用程序支持自动化技术，那么其它的应用就可以通过其暴露的对象，对它进行控制，控制程序称为客户机，而被控制的一方就称为服务器，被控制的对象就是Active对象。VB正是通过EXCEL显露的各级对象来控制EXCEL工作的。每个对象都有各自的方法和属性，通过方法可以实现对对象的控制，而属性则可以改变对象的各种状态。 理解EXCEL的对象模型是对其编程的基础。EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素，这些对象元素就是VB可以操纵的。在EXCEL对象的层次结构中，最顶层是Application对象，是Excel本身。从该对象开始往下依次是： .workbooks对象集，是Application对象的下层，其指的是Excel的工作簿文件。 .worksheets对象集，是Workbooks对象集的下层，它表示的是Excel 的一个工作表。 .Cells和Range对象，它们是worksheets对象的下层，它则指向Excel 工作表中的一个或多个单元格。 以上介绍的四个对象是Excel中最重要也是用得最多的对象，而且从上面的介绍中也不难看出，要控制Excel中的某个具体对象，如某个工作簿中某一表格中的单元格，就必须从Excel层次结构对象的最上层即Application对象开始遍历。 2 Excel对象的使用
图解把EXCEL数据导入到SQL SERVER 2008
实验环境:WIN XP，MS Office Excel2007，Sql Server2008 准备数据:Excel文档:D:\test\重复出修率.xlsx 方法一： 第一步:打开SSMS: 【开始】→【所有程序】→【Microsoft Sql Server2008】→【Sql Server Management Studio】
第二步:连接数据库: 在’对象资源管理器’中点击【连接】→【数据库引擎】登陆服务器 （P.S:如果没有看到’对象资源管理器’,点击左上角的【视图】→【对象管理器】） 第三步:登陆成功后,右击你要导入数据的数据库名,我这里数据库名是’TEST’ 右击【TEST】→【任务】→【导入数据】
这时候会出现一个向导:点击【下一步】 在弹出的窗口中,【数据源】选择:Microsoft Excel; 【Excel文件路径】就选择你本地电脑存放Excel文档的路径，我这里是D:\test\重复出修率.xlsx 【Excel版本】选择Excel2007（可以根据你office的版本，选择其他如Excel2003等等。）选中【首行包含列名称】框，最后点击【下一步】 “首行包含列名称”是指Excel中的首行数据插入数据库后将作为新建表的列名.
在弹出窗口中,【目标】可以采取默认的，【服务器名称】也是一样可以选择身份验证，最后选择你要插入数据到哪个数据库中。 如我这里选的是’TEST’，选好后点击【下一步】
如果就把Excel数据插入一个新表，就选择【复制一个或多个表或视图的数据】 如果想把Excel数据插入到已存在的一张表中，则选择下面的【编写查询以指定要传输的数据】 我这里是选择上面一个，然后点击【下一步】 接着会弹出Excel表中的sheet表名字，如果你没有修改过sheet表名字，则可能显示的是’shee1$’,’shee2$’,’shee3$’等等. 然后你选中你想要导入的哪张表的数据,我这里导入的是【’aug$’】 选中后,右边的【目标】栏位中会出现内容， dbo是指数据库的架构名，aug$只是新建的表名，如果你想修改表明，双击就可以表明进入编辑状态就可以修改了。我这里修改的表名称为：aug_info
用VB操作excel方法汇总
用VB操作excel方法汇总 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application '声明对象变量 Me.MousePointer = 11 '改变鼠标样式 Set objExl = New Excel.Application '初始化对象变量 objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1 objExl.Workbooks.Add '增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name = "book1" '修改工作薄名称 objExl.Sheets.Add , objExl.Sheets("book1") '增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book2" objExl.Sheets.Add , objExl.Sheets("book2") '增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book3" objExl.Sheets("book1").Select '选中工作薄
VB编程在Excel中的应用
EXCEL 编程(VBA) Excel 最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式在Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输入公式让Excel计算结果。如何既能看到公式又能看到结果呢？这个问题笔者认为可以从两个方面考虑：一种方法是所谓“已知结果，显示公式”，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“已知公式，显示结果”，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。 ★ 已知结果，显示公式 假设C列为通过公式计算得到的结果（假设C1为“=A1+B1”，或者直接是数字运算“=2+3”)，而相邻的D列是你需要显示公式的地方（即D1应该显示为“=A1+B1”或者“=2+3”）。 1. 打开“工具”菜单选择“选项”命令，出现“选项”对话框。 2. 在“常规”选项卡中，选中“R1C1引用方式”选项。 3. 定义名称，将“引用位置”由“=GET.CELL(6,Sheet1!RC[-1])”即可。这里的RC[-1]含义是如果在当前单元格的同行前一列单元格中有公式结果，则在当前单元格中得到公式内容，即在含公式结果单元格的同行后一列单元格显示公式内容；如果将RC[-1]改为RC[1]，则在公式结果的同行前一列单元格显示公式内容。 4. 如果“引用位置”中含有“RC[-1]”，则在含公式结果单元格的同行后一列单元格中输入“=FormulaofResult”即可得到公式；如果“引用位置”中含有“RC[1]”，则在含公式结果单元格的同行前一列单元格中输入“=FormulaofResult”即可得到公式。 提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把“引用位置”中的“RC －1 ”改为“RC －2 ”。 ★已知公式，显示结果 假设C列为输入的没有等号公式（假设C1为“A1+B1”)，而相邻的D列是你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。 1. 选中D1，然后打开“插入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。 2. 在“在当前工作表中的名称”输入栏中输入定义的名称“ResultofFomula”，在下方的“引用位置”编辑栏中输入“=EVALUATE(Sheet1!C1)”，单击[确认]按钮退出。 3. 在 D1中输入“=ResultofFomula”，然后选中按住右下角的填充柄向下拉动填充即可。 提示：EVALUATE 是Eexcel 4．0版的宏表函数，Excel 2000和Excel 2002中 还支持，但只可用于名称定义中。 4. 填充后要按[F9]进行重算，如果C列的公式有改动，也需要及时按[F9]进行
怎样实现用VB对EXCEL的操作
用VB操作excel方法 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application'声明对象变量 Me.MousePointer=11'改变鼠标样式 Set objExl=New Excel.Application'初始化对象变量 objExl.SheetsInNewWorkbook=1'将新建的工作薄数量设为1 objExl.Workbooks.Add'增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name="book1"'修改工作薄名称 objExl.Sheets.Add,objExl.Sheets("book1")'增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name="book2" objExl.Sheets.Add,objExl.Sheets("book2")'增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name="book3" objExl.Sheets("book1").Select'选中工作薄
VB中读写EXCEL文件
VB中读写EXCEL文件 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel 版本不同，所以这个选项的版本号可能不同 。定义EXCEL对象 Dim XlsObj As Excel.Application 'Excel对象 Dim XlsBook As Excel.Workbook '工作簿 Dim XlsSheet As Excel.Worksheet '工作表 。打开或创建EXCEL Set XlsObj = CreateObject("Excel.Application") '创建EXCEL对象XlsObj.Visible = True '设置EXCEL对象可见（或不可见） '打开已经存在的test.xls工件簿文件 Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '创建有一个工作表的工作簿 XlsObj.SheetsInNewWorkbook = 1 Set XlsBook = XlsObj.Workbooks.Add 。设置活动工作表 '或者Set XlsSheet = XlsObj.Worksheets(1) 代表第1个Sheet Set XlsSheet = XlsObj.Worksheets("表名") 给单元格（row,col）赋值 XlsSheet.Cells(row, col) =值 给合并的单元格赋值，如（A3：A9） XlsSheet.Range("A3:A9") =值 运行 EXCEL 宏 XlsBook.RunAutoMacros ("宏名") 插入一行
EXCEL工作表数据导入到DBF的方法
EXCEL工作表数据导入到DBF的方法 操作惯了EXCEL的同行，一定觉得使用VF6.0打开DATA数据库输入数据很麻烦。以输入新生入学花名册为例，EXCEL可以实现快速复制、粘贴、排序、筛选、统计等多项功能。而DBF只能逐一追加新记录。那么，可否先用EXCEL输机，再把数据导入到DBF呢？ 答案是：可以！ 本人实践操作过程如下： 1、现有EXCEL表，命名为“HESHI2010XS.XSL”，如下图1 图1 2、将此文件另存为“HESHI2010”，保存类型为：“Microsoft Excel 97- Excel 2003 & 5.0/95工作簿。如图2；
图2 3、运行Microsoft Visual Foxpro。点“文件”，出现“导入”等下拉窗口，如图3；图 图3 4、点“导入”，出现图4 图4 5、点“来源于”选框后边的“…”按纽，找到“HESHI2010.XSL”，“工作表”选框设为“SHEET1”或者是新生数据所在的工作表。如图5：
图5 6、点“确定”，即生成“heshi2010.DBF”,找到并打开该文件，就算搞定！如图6 图6 几点补充： 1、为什么上面第二步要“将此文件另存为‘HESHI2010’，保存类型为：‘Microsoft Excel 97- Excel 2003 & 5.0/95工作簿。’”？ 因为：VF6.0只能将Microsoft Excel 97- Excel 2003 & 5.0/95工作簿导入!当然，也可以导入Microsoft Excel 5.0/95工作簿。在对Excel文件进行保存时，一定先点“另存为”，在出现的窗口中，点“保存类型”即可选择以上两种形式的工作簿。
VB与Excel的数据交换
第11章VB与Excel的数据交换 Excel是目前非常流行的电子表格软件，很多人都习惯于在EXCEL中处理数据，并在Excel 中完成报表输出等功能，但Excel的数据处理功能相对较弱，而VB具有强大的数据处理功能，但报表输出功能相对较弱。本章以实例的形式介绍VB如何从Excel中获得数据，再将处理后的数据保存到Excel工作表中，并调用Excel中的VBA指令对排版，生成数据报表。 VB中Excel的启动与关闭 11.1.1 Excel对象库引用 在VB中调用Excel，首先需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel object library”（Excel版本不同，这个选项中的的版本号可能不一样）。引用Excel对象库后，对编写代码会带来很多便利。 11.1.2 Excel对象声明 EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。编程过程中主要用到以下4个层次的对象。 1．Application对象，即Excel程序本身； 2．WorkBook对象，即Excel的工作簿文件对象； 3．WorkSheets对象，表示的是Excel的工作表对象集；例如：worksheets(1)表示第一个工作表。 4．Cells、Range、Rows、Columns对象，分别表示Excel工作表中的单元格对象集、区域对象、行对象集、列对象集。例如： Cells(3，5) 表示第3行第5列的那个单元格
Range("C5") 表示第3行第5列的那个单元格 Range("A1:C5") 表示从A1单元格到C5单元格的矩形区域 Rows(1) 表示第1行 Range("1:1") 表示第1行 Range("1:10") 表示第1到10行的区域 Columns(1) 表示第1列 Range("A:A") 表示第1列 Range("A:D") 表示从第A到D列 11.1.3 VB中Excel的启动与关闭 例11-1 新建立一个VB的工程，在窗体上添加2个命令按钮（Command1和Command2），2个按钮的Caption分别为“启动Excel”和“关闭Excel”，输入以下代码即可。 Dim xls As New '声明一个Excel应用程序对象 Dim xbook As New '声明一个Excel工作薄对象 Dim xsheet As New '声明一个Excel工作表象 Private Sub Command1_Click() Set xbook = '启动Excel，并将自动创建的工作薄赋给xbook Set xsheet = (1) '将第一个工作表赋给xsheet = True '显示Excel窗口，程序调试阶段显示该窗口非常重要End Sub Private Sub Command2_Click() Set xls = Nothing '释放对象变量
Excel 数据导入教程
Excel模板数据导入教程 Excel模板数据导入教程 Excel导入模板中的数据既可以直接在我们提供的模板文件中录入，列标题中有红色“（必填）”文字的列必须要填写，其它列根据实际需求可以不填写，换算比率、销售价格、库存数量、成本价这些数字列如果要导入的话，一定是纯数字格式，必须要填写而且不能包括任何汉字或字母。 库存数量与成本价必须是以基本计量单位核算录入，也就是以最小计量单位核算录入。 如果从管家婆、速达等进销存软件中导出到Excel文件，一定要修改导出的Excel文件格式，否则肯定不能正常识别和导入，修改的要求如下： 1、Excel导入模板文件扩展名必须为xls，如果为其它扩展名，必须双击打开模板文件，然后另存为“Excel97-2003工作簿（*.xls）”格式的文件； 2、窗口左下角的工作薄名称必须为“Sheet1”，管家婆或速达导出来的工作薄名称一般为其它名称，必须要修改为Sheet1，请见以下截图； 3、第一行必须为列名，第二行开始必须为要导入的正式数据，请见以下截图；
附上一张标准的导入模板数据截图 本教程只演示怎么导入在我们提供的Excel导入模板中录入的数据，如果从管家婆或速达等进销存软件导出来的数据，导入方式大同小异，只是列名或列的数量不一致而已； 在导入之前一定要关闭要导入的Excel模板文件，否则因为独占模式导致导入时无法识别模板文件中的数据。 产品资料导入 产品资料模板中包括“产品资料基础信息、销售价格、库存记录”3部分内容，需要将同一个产品资料模板文件分3步分别导入，如果有辅助计量单位的销售价格也需要导入，那么需要分4步分别导入。 在导入的模板中如果包括软件中已存在的产品资料记录，一定要在导入窗口将 下拉框选择，这样就不会将相同的记录重复导入到软件中。 第一步：既可以在软件初次使用向导窗口中点击“产品资料导入”按钮，也可以在“基础数据----产品资料”列表窗口点击“Excel导入”菜单，弹出产品资料导入窗口，先选择要导入的Excel模板文件，然后根据要导入的列，按照以下截图设置要导入的列，在第一步中只能导入产品资料的基础数据，销售价格和库存记录在以下步骤中导入。
VB6[1].0_导出excel_方法源代码
往链点点通共享资源，了解更多请登录https://www.360docs.net/doc/4012992628.html, VB6.0 导出excel 方法源代码 方法一： 用Msflexgrid的Textmatrix属性取Msflexgrid中每一个单元格的内容，然后填到Excel表中，或者写成CSV格式 方法二： 直接把查询结果导出成Excel工作表 Public Sub Export(formname As Form, flexgridname As String) Dim xlApp As Object 'Excel.Application Dim xlBook As Object 'Excel.Workbook Dim xlSheet As Object 'Excel.Worksheet Screen.MousePointer = vbHourglass On Error GoTo Err_Proc Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) 'Begin to fill data to sheet Dim i As Long Dim j As Integer Dim k As Integer With formname.Controls(flexgridname) For i = 0 To .rows - 1 k = 0 For j = 0 To .Cols - 1 If .colwidth(j) > 20 Or .colwidth(j) < 0 Then k = k + 1 xlSheet.Cells(i + 1, k).Value = "'" & .TextMatrix(i, j) End If Next j Next i End With xlApp.Visible = True Screen.MousePointer = vbDefault Exit Sub Err_Proc: Screen.MousePointer = vbDefault MsgBox "请确认您的电脑已安装Excel！", vbExclamation,"提示"
vb读取excel内容
1、定义Excel操作变量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打开Excel进程，并打开目标Excel文件 Set objExcelFile = New Excel.Application objExcelFile.DisplayAlerts = False Set objWorkBook = objExcelFile.Workbooks.Open(strFileName) Set objImportSheet = objWorkBook.Sheets(1) 3、获取Excel有效区域的行和列数 intLastColNum = https://www.360docs.net/doc/4012992628.html,edRange.Columns.Count intLastRowNum = https://www.360docs.net/doc/4012992628.html,edRange.Rows.Count 4、逐行读取Excel中数据 由于前两行为Header部分，所以需要从第三行读取 如果第1到第10个单元格的值均为空或空格，则视为空行 For intCountI = 3 To intLastRowNum ''Check if Empty Data Row blnNullRow = True For intI = 1 To 10 If Trim$(objImportSheet.Cells(intCountI, intI).Value) <> "" Then blnNullRow = False End If Next intI 若不是空行，则进行读取动作，否则继续向后遍历Excel中的行 If blnNullRow = False Then 获取单元格中的数据，做有效性Check，并将合法数据创建为实体存入对象数组中objImportSheet.Cells(intCountI, 1).Value …… End If Next intCountI 5、退出Excel进程，并关闭Excel相关操作对象 objExcelFile.Quit Set objWorkBook = Nothing Set objImportSheet = Nothing Set objExcelFile = Nothing
VB中调用Excel生成图表(精品文档)
VB中调用Excel生成图表 添加时间：2004-9-3 查看：298次 编写数据库程序的最后步骤一般都是通过查询检索生成各种报表、图形等，在VB中通过调用Exc el的图表制作功能可以生成各种复杂的图表，使编程过程得以简化。举例如下：新建工程，在Form1窗口添加Command1按钮，编写程序在Excel中添加数据并生成饼图。 Private Sub Command1_Click() Dim x1 As Excel.Application '声明数据类型 Set x1 = CreateObject(""Excel.Application"") '创建实例 x1.Workbooks.Add '添加工作簿 x1.Visible = True x1.Range(""A1"").Value = 1 'A1格赋值 x1.Range(""B1"").Value = 2 'B1格赋值 x1.Range(""C1"").Value = 3 'C1格赋值 x1.Range(""D1"").Value = 4 'D1格赋值 x1.Range(""A1"", ""D1"").Borders.LineStyle = xlContinuous '单元格边框 x1.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter x1.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter '上下、左右居中 Set ct = x1.Worksheets(""sheet1"").ChartObjects.Add(10, 40, 220, 120) '插入图形 ct.Chart.ChartType = xl3DPie '图形类型为饼图 ct.Chart.SetSourceData Source:=Sheets(""Sheet1"").Range(""A1:D1""), PlotBy:=xl Rows '图形数据来源 With ct.Chart
VB读取excel表
我给你个简单的例子，假设有文件＂c:\1.xls＂ '要在VB中操作Excel，需要引用Excel对象模型 '方法，在菜单里选择[工程] -- [引用]，在窗口里勾选Microsoft Excel XX.X Object Library '其中，XX.X取决于你安装的Office的版本号 Private Sub Command6_Click() Dim excel_App As Excel.Application Dim excel_Book As Excel.Workbook Dim excel_sheet As Excel.Worksheet '启动Excel Set excel_App = CreateObject("Excel.Application") '引用程序对象实例 '设置Excel为不可见 excel_App.Visible = False '打开文件 Set excel_Book = excel_App.Workbooks.Open("C:\1.XLS") '工作簿实例Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!" excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为100 excel_sheet.Range("A2").Value = 9 '设置单元格A2的值为9 excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value + excel_sheet.Range("A2").Value '计算 ''''''''''''''''''''''''''''''''''' '关闭Excel文件 Set excel_sheet = Nothing excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。 Set excel_Book = Nothing excel_App.Quit Set excel_App = Nothing End Sub 追问 你好，高手！ 我的想法是这样的，编一个软件，这个软件用excel表格当做它的数据库。这个软件只能对表格进行读写操作。比如： 当text1读入A行a内容时，text2自动读取A行b内容，代码里不要对表格进行赋值。 69978084
VB处理EXCEL数据方法
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 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() Dim i, j As Integer Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象 'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件 Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件 'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 xlapp.Visible = True '设置EXCEL对象可见（或不可见） Set xlsheet = xlbook.Worksheets(1) '设置活动工作表'' ''~~~当前工作簿的第一页,这里也可以换成“表名” '下面就是简单的在一些单元格内写入数字 For i = 7 To 15 For j = 1 To 10 xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列 Next j Next i With xlsheet '设置边框为是实线 .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle =