如何利用VB实现Excel数据和Access数据之间的转换
用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
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
如何在EXCEL中快速实现文本和数值的相互转换
如何在EXCEL中快速实现文本和数值的相互转换 在实际工作中经常会碰到EXCEL表中的文本和数值转换问题，尤其是从相关系统下载的报表数据大多是文本格式，不转换成数值格式就没有办法计算；而有时因特殊需求，也会碰到需要将数值型数据转化成文本格式时候。在做上述操作时，仅将单元格的格式更改是没用的，逐单元格数据修改，遇到数据量很大的时候，肯定太耗时，工作量太大。如何快速实现文本型数据和数值型数据的相互转换呢？你不妨试试以下几招： 将文本数据转换成数值数据 方法一：选定需转换的文本数据区域，在选定区域的左上角会出现一个带感叹号的标志（如下图），用鼠标单击这个感叹号，选择“转换为数字，就OK了。 方法二：在表格的空白处，找一任意单元格，输入数字“1”，复制这个单元格，再选定需要转换的文本数据区域，点击鼠标右键，执行“选择性粘贴”，选定“数值”、“乘”两个选项，再“确定”就行了。 方法三：使用函数转换。如果你不想改变原表的数据，只在表中计算的区域引用，还可以使用VALUE函数或者直接将文本单元格乘1，例如，将要转换A1单元格数据，公式为： =VALUE（A1） 或者 = A1*1。 方法四：可以通过在计算的区域前加两个减号来迫使单元格以数值的方式参与计算。 例如：要求A1:G1中的最大值，用最大值公式=max(A1:G1)得到的结果为0，可以将公式这样子写：=max(--A1:G1)，这是个数组公式，也就是在输入完公式后要同时按ctrl+shift+enter。 方法五：其实还有一种，就是利用excel的“数据-分列”功能将单元格的格式直接转换成常规格式。 将数值型数据转换成文本 将文本型数据转换成数值型数据，可以直接在原表的原有位置转换，而将数值型数据转换成文本却不能。如果需要用文本型数据替换原有的数值型数据，需要先在空白区域通过写公式将数据转换成文本，再使用“复制——选择性粘贴”将原有数据替换。 方法一：通过在原数据前加一个字母使数据变成文本，再将字母替换成半角的单引号，所得数据就是文本型数据了。例：将A列所有数据转换成文本，操作步骤如下： 在表格的空白列写下如下公式：
(新)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测量数据转换公式
导线平差计算中Excel函数的应用 来源：邢台水文局文章作者：张猛录入时间：11-03-23 10:41:22我们在地形测图时经常会建立平面控制网和高程控制网，为了提高检核和成果的质量，处理好测量中存在的误差问题，就要进行测量数据平差，而平差的目的就在于消除这些矛盾而求得观测量的最可靠的结果，并评定测量成果的精度。 在平差计算表中，我们要对测定的观测角度和坐标增量等数据进行三角函数的计算，而手算往往会比较复杂麻烦，我们可以借助Excel强大的数据处理功能进行平差就方便多了。下面我们用讲解和举例相结合的方法来说明： Excel 中的三角和反三角函数分别对应于平时所需计算的三角函数和反三角函数数值，参数都比较简单，例如sin、cos、asin和atan等。 一、一般来说三角函数的在Excel中应用还是比较复杂的，最简单的应用是直接利用公式插入求值： 1 、用SIN函数求给定角度的正弦值，用COS函数求定角度的余弦值，用TAN函数求给定角度的正切值。这三个函数的语法为： SIN(number) COS(number) TAN(number) 注：Number：必需。需要求正弦的角度，以弧度表示。如果参数的单位是度，则可以乘以PI()/180或使用RADIANS函数将其转换为弧度。 我们来示例说明： 假设单元格A1代表要求的角度，则可在单元格中插入公式为： =SIN(A1*PI()/180) 或=SIN(RADIANS(A1)) =COS(A1*PI()/180) 或=COS(RADIANS(A1)) =TAN(A1*PI()/180) 或=TAN(RADIANS(A1)) 如求45度的正弦值就在单元格中输入公式“=SIN(45*PI()/180)”或“=SIN(RADIANS(45))”，计算角度的正弦值。 另外必须注意的是，由于sin等三角函数在Excel的定义是要弧度值，因此必须先要将角度值转换为弧度值，不然的话我们时无法进行计算的。 2 、反三角函数
用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 ("宏名") 插入一行
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 '释放对象变量
VB6[1].0_导出excel_方法源代码
往链点点通共享资源，了解更多请登录https://www.360docs.net/doc/514164830.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,"提示"
Excel表格数据格式转换为常规
在使用Excel表格对数据求和时，只能对单元格内常规格式的数据进行计算，而不能对单元格中的文本格式的数据进行计算，特点就是在单元格的左上角有一个绿色的小三角，（如图：）（上边1234是常规格式数据、6789就是文本格式数据、下边的1234是数据求和时得到的结果。） 怎样才能讲这些文本格式的数据批量转换成常规的数字格式以便进行计算呢？ 问题的解决： 把文本格式的转换成常规格式不就可以了吗，当然可以了，但是在把所有填写文本格式的数据单元格选中，然后右击选项中“设置单元格格式”设成常规（如下图）后，左上角并仍有绿色小三角，怎么办，不要急，按下面的步骤去做就行。
经过试验发现经过刚才的设置后还必须在每个单元格里双击一下，再回车就可以，但是这样做比较麻烦，只适合修改少量孤立单元格格式。如果文本格式的单元格较多批量的修改一个个双击就不合适了。那怎么办呢？接着往下看。 先选中所有要修改的文本数字单元格→选择Excel 菜单中“数据”菜单→“分列”（如下图）
接着出现下面的对话框：
一直选下一步→下一步→列数据格式选“常规”即可。（如下图） 以上方法，同样如果需要把数字格式转化成文本格式数字，操作中最后一步列数据格式选“文本”就可以了。 另外，我们在使用Excel时是否发现单击文本格式的单元格的时候，单元格的左上方都有一个感叹号，（如下图）
它也可以帮助我们将文本格式的数字转换为常规格式的数字啊？怎么应用它呢？接着看吧！ 1．鼠标指向那个小框时，后出现一个向下的小三角，它是一个下拉菜单。 2．单击小三角，在下拉菜单里选择“转换了数字”就可以啦。
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/514164830.html,edRange.Columns.Count intLastRowNum = https://www.360docs.net/doc/514164830.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 =
使用VB实现Excel自动获取外部数据
表格生成和公式设置十分强大便利，是一个强有力地信息分析与处理工具. 是一套可视化、面向对象、事件驱动方式地结构化高级程序设计语言，正成为高效率地应用程序开发工具.由于微软地努力，应用程序版可作为一种通用宏语言被所有微软可编程应用软件共享. 面始之初带有表格处理类软件中功能最强地宏语言，通过单击“工具”菜单中地“宏”，选择宏名来调用宏过程.随后发展至专用版，可制作按钮、复选框、单选钮等控件，赋控件以宏名，单击控件运行宏，事件驱动方式就（单击）一种.新近推出地套件中地,在“工具”菜单中选择“宏”后，就会发现增加了“编辑器”功能.运用这个新增功能，就完全与编程无异了.在菜单栏上单击鼠标右键，选择弹出式菜单中地“控件工具箱”，在“控件工具箱”工具条上，单击待添加地控件按钮，在工作表中将控件拖曳到所需位置和大小，单击鼠标右键选中“属性”设置控件属性后，双击控件就会出现编辑器.选择该控件地一个事件如或,编写程序.在工作表中操作该控件，如鼠标单击、键入字符等，则触发相应事件，执行相应程序. 笔者在平台，采用应用程序版开发了一套“通用报表分析系统”.该系统用于拥有众多子公司地母公司地每月财务报表合并汇总.所有子公司地统计报表如资产负债表、损益表是由编制地财务软件生成地文件，取名为月份资产负债表，月份损益表等.一个子公司地所有文件放在一个单独地目录中，如:\\，:\\等.母公司每月份生成地汇总报表为(年份，月份)，它有“资产负债表”、“损益表”等若干工作表组成.每张工作表是由所有子公司相应地文件地相应项目地数据相加而成.只要将文件逐一转化到中去，很容易利用地公式设置功能生成母公司地每张汇总报表. 这套系统地关键在于如何将所有文件转换到同一个工作簿中.直接通过“文件”菜单中地“打开”项, 选择文件类型为文件（*）, 可将文件转换到工作簿中,但这工作簿只存转换而来地一张工作表，其他表都自动关闭了.另外,通过“工具”菜单中地“向导”，选择“文件转换”后，只是将一系列文件转换为一系列文件而已.于是采用建立数据源获取外部数据地办法, 将文件逐一转换到一个工作簿内, 且用将转换过程自动化.只要按一下图中地“生成报表”按钮, 就能完成所有文件地转换, 且利用公式自动计算功能完成所有报表地汇总计算.按“显示报表”按钮，选择表名，可以浏览报表数据. 具体地方法是： 一、建立数据源 () 打开“数据”菜单, 选择“获取外部数据”, 然后单击“新建查询”; () 在“选择数据源”对话框中, 双击“<新数据源>”; () 出现“创建新数据源”对话框,输入数据源名称, 选择驱动程序如(*), 单击“连接”; () 在“安装”对话框中, 单击“使用当前工作目录”前地复选框, 去掉缺省( , 单击“选定目录()”, 选择子公司存放文件地目录如:\\, 连按“确定”； () 当出现对话框时, 单击“关闭”, 退出.不要理会出现地警示信息，因为此时只需建立数据源, 并不需要用查询数据;