使用vb实现excel自动获取外部数据_visualbasic教程－虚拟主机资讯|虚拟主机动态
产品服务快速通道
----------------
==域名注册==
英文域名注册
中文域名注册
==网站推广==
==虚拟主机==
----------------
双线路虚拟主机
基本型虚拟主机
商用型虚拟主机
论坛型虚拟主机
功能型虚拟主机
Vip合租虚拟主机
虚拟主机性能对比
虚拟主机免费试用
机房速度测试
----------------
==租用托管==
服务器租用
----------------
==企业邮局==
购买企业邮局
----------------
==付款方式==
----------------
==联系我们==
您当前位置：->-> ->
使用vb实现excel自动获取外部数据_visualbasic教程
作者：网友供稿
　　西部数码-全国虚拟主机10强！20余项管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!可在线rar解压,自动数据恢复设置虚拟目录等.免费赠送访问统计,企业邮局.Cn域名注册10元/年,480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!
文章页数：&
Excel表格生成和公式设置十分强大便利，是一个强有力的信息分析与处理工具。VisualBasic是一套可视化、面向对象、事件驱动方式的结构化高级程序设计语言，正成为高效率的Windows应用程序开发工具。由于微软的努力，VisualBasic应用程序版可作为一种通用宏语言被所有微软可编程应用软件共享。　　Excel面始之初带有表格处理类软件中功能最强的宏语言，通过单击“工具”菜单中的“宏”，选择宏名来调用宏过程。随后发展至VisualBasicforApplication专用版，可制作按钮、复选框、单选钮等控件，赋控件以宏名，单击控件运行宏，事件驱动方式就Click（单击）一种。新近推出的Office97套件中的Excel97,在“工具”菜单中选择“宏”后，就会发现增加了“VisualBasic编辑器”功能。运用这个新增功能，就完全与VisualBasic编程无异了。在菜单栏上单击鼠标右键，选择弹出式菜单中的“控件工具箱”，在“控件工具箱”工具条上，单击待添加的控件按钮，在工作表中将控件拖曳到所需位置和大小，单击鼠标右键选中“属性”设置控件属性后，双击控件就会出现VisualBasic编辑器。选择该控件的一个事件如Click或Change,编写程序。在工作表中操作该控件，如鼠标单击、键入字符等，则触发相应事件，执行相应程序。　　笔者在Excel97平台，采用VisualBasic应用程序版开发了一套“通用报表分析系统”。该系统用于拥有众多子公司的母公司的每月财务报表合并汇总。所有子公司的统计报表如资产负债表、损益表是由FoxBase编制的财务软件生成的dbf文件，取名为ATV001xx.dbf----xx月份资产负债表，ATV002xx.dbf----xx月份损益表等。一个子公司的所有dbf文件放在一个单独的目录中，如C:\T\palm1，C:\T\palm2等。母公司每月份生成的汇总报表为TTTyymm.xls(yy----年份，mm----月份)，它有“资产负债表”、“损益表”等若干工作表组成。每张工作表是由所有子公司相应的dbf文件的相应项目的数据相加而成。只要将dbf文件逐一转化到TTTyymm.xls中去，很容易利用Excel的公式设置功能生成母公司的每张汇总报表。这套系统的关键在于如何将所有dbf文件转换到同一个Excel工作簿中。直接通过“文件”菜单中的“打开”项,选择文件类型为dBase文件（*.dbf）,可将dbf文件转换到Excel工作簿中,但这工作簿只存转换而来的一张工作表，其他表都自动关闭了。另外,通过“工具”菜单中的“向导”，选择“文件转换”后，只是将一系列dbf文件转换为一系列xls文件而已。于是采用建立ODBC数据源获取外部数据的办法,将dbf文件逐一转换到一个Excel工作簿内,且用VisualBasicforApplication将转换过程自动化。只要按一下图1中的“生成报表”按钮,就能完成所有dbf文件的转换,且利用Excel公式自动计算功能完成所有报表的汇总计算。按“显示报表”按钮，选择表名，可以浏览报表数据。具体的方法是：一、建立ODBC数据源(1)打开“数据”菜单,选择“获取外部数据”,然后单击“新建查询”;(2)在“选择数据源”对话框中,双击“&新数据源&”;(3)出现“创建新数据源”对话框,输入数据源名称,选择驱动程序如MicrosoftdBaseDriver(*.dbf),单击“连接”;(4)在“ODBCdBase安装”对话框中,单击“使用当前工作目录”前的复选框,去掉缺省(,单击“选定目录(s)”,选择子公司存放dbf文件的目录如C:\T\palm1,连按“确定”；(5)当出现MicrosoftQuary对话框时,单击“关闭”,退出。不要理会出现的警示信息，因为此时只需建立数据源,并不需要用MicrosoftQuery查询数据;(6)重复上述步骤,在(4)中改换另一家子公司的目录,就为另一家子公司建立一个数据源。必须建立所有子公司的数据源。二、手动获取外部数据(1)单击“数据”，选取“获取外部数据”，单击“新建查询”；(2)出现“选取数据源”对话框，点中“使用查询向导创建/编辑查询”前的复选框，然后双击数据源名，如palm1;(3)在“查询向导――选择列”对话框中选择一个查询表名，单击&键，“查询中用到的列”框内会出现表中所有列名，单击“下一步”；(4)出现“查询向导――过滤数据”，单击“下一步”；(5)出现“查询向导――排序顺序”，单击“下一步”；(6)出现“查询向导――完成”，点中“将数据返回MicrosoftExcel”前的单选钮，单击“完成”；(7)出现“将外部数据返回到Excel”对话框，选中“新建工作表”，按“确定”；(8)在建立查询的工作簿内新建工作表，并放入转换好的数据。这样就将一个dbf文件转换好了。(9)重复上述过程，所有子公司的dbf文件转换到同一个工作簿中。三、使用VB实现Excel自动获取外部数据(1)进行手动获取外部数据(1)步骤前，单击“工具”菜单中的“宏”，选择“录制新宏”，在“宏名”的编辑框中键入宏名dbftoxls,按“确定”键；(2)完成手动获取外部数据(1)-(8)步骤；(3)单击“工具”菜单中的“宏”，选择“停止录制”。这样就将获取外部数据的过程记录为宏。(4)编辑dbftoxls宏，加以修改，使它作为VisualBasic模块表中的一个子程序，并设置调用参数。提供的程序如下：`设置初值Constapppath="c:\mydocuments\palmxls\"Constmodulefile=apppath "module.xls"Conststaticspre="TTT"Constdbfpre="ATV00"`调用dbftoxls的模块PrivateSubCmdgeneratetable_Click()DimstaticsfileAsStringDims1AsStringDims2AsStringDims3AsStringDimidyesAsIntegerDimdbfstringAsStringOnErrorGoToerrhandler1idyes=6s1=txtyear.Texts1=Mid(s1,3,2)s2=txtmonth.TextIfLen(s2)=1Thens2="0" s2EndIfstaticsfile=apppath staticspre s1 s2 ".xls"IfFileLen(staticsfile)&0Thenchoice=MsgBox("该年月报表已存在，是否重新生成？",vbYesNo vbExclamation vbDefaultButton1,"")Ifchoice=idyesThenWorkbooks.OpenFileName:=staticsfileFori=0Tocompanynum-1Forj=0Totablenum-1dbfstring=dbfpre Trim(Str$(j 1)) s2sqlstring=sqlstringfunc(dbfstring,fieldlist(),tablefieldnum(j))Calldbftoxls(s(i,j),sqlstring)NextjNextiActiveWorkbook.SaveActiveWorkbook.CloseEndIfEndIfExitSuberrhandler1:SelectCaseErrCase53Workbooks.OpenFileName:=modulefiles3=s1 "年" s2 "月"Sheets("资产负债表").Range("e4").FormulaR1C1="" s3ActiveWorkbook.SaveAsFileName:=staticsfile,FileFormat_:=xlNormal,Password:="",WriteResPassword:="",ReadOnlyRecommended:=_False,CreateBackup:=FalseFori=0Tocompanynum-1Forj=0Totablenum-1dbfstring=dbfpre Trim(Str$(j 1)) s2sqlstring=sqlstringfunc(dbfstring,fieldlist(),tablefieldnum(j))Calldbftoxls(s(i,j),sqlstring)NextjNextiActiveWorkbook.SaveActiveWorkbook.CloseEndSelectEndSub`dbftoxls子程序Subdbftoxls(activesheetname,sqlstring)Sheets(activesheetname).ActivateCells.SelectSelection.ClearRange("a1").SelectWithActiveSheet.QueryTables.Add(Connection:=Array(Array(_"ODBC;CollatingSequence=ASCII;DBQ=C:\T\palm1;DefaultDir=C:\T\palm1;Deleted=1;Driver={MicrosoftdBaseDriver(*.dbf)};DriverId=533;FIL"_),Array(_"=dBaseIII;ImplicitCommitSync=YMaxBufferSize=512;MaxScanRows=8;PageTimeout=600;SafeTransactions=0;Statistics=0;Threads=3;Use"_),Array("rCommitSync=Y")),Destination:=Range("A1")).Sql=Array(sqlstring).FieldNames=True.RefreshStyle=xlInsertDeleteCells.RowNumbers=False.FillAdjacentFormulas=False.RefreshOnFileOpen=False.HasAutoFormat=True.BackgroundQuery=True.TablesOnlyFromHTML=True.RefreshBackgroundQuery:=False.SavePassword=True.SaveData=TrueEndWithEndSub->
文章整理：西部数码--专业提供、服务
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
文章页数：&
??????????
??????????
版权申明：本站文章均来自网络，如有侵权，请联系我们，我们收到后立即删除，谢谢！
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。
版权所有 西部数码(www.west.cn)
CopyRight (c)
west263.com all right reserved.
公司地址：四川省成都市金牛区一环路北一段99号环球广场24楼　邮编：610031
电话总机：028-08 38
售前咨询：总机转201 202 203 204 206 208
售后服务：总机转211 212 213 214
财务咨询：总机转224 223 传真：028- 财务QQ：
售前咨询QQ：2182518
售后服务QQ：如何用VB打开EXCEL表，让他打开指定的文件。_百度知道
如何用VB打开EXCEL表，让他打开指定的文件。
在VB 程序里，如果点击一个按钮，打开EXCEL表，让他打开一个指定的文件。
我有更好的答案
可以利用系统中的excel打开 excel文件。excel 本身是支持参数的。你可以参照。Private Sub Command1_Click()Dim aa = Shell(&C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\aa.xls&, vbNormalFocus)End Sub
采纳率：28%
打开有VB程序的excel表，再打开你需要的excel表，按alt+F8就可以了，然后点击执行选择你需要执行的excel表哈
问题不明确，是用VB对某个EXCEL文件进行处理，还是让VB调用EXCEL打开某个EXCEL文件？
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。08-10-17 16:29
这里面有些功能我已经会用了，而且用的也比较多哟，有些功能是不经常用的，没怎么好好学哟！！
大家都在看我想用VB调用EXCEL里面的数据_百度知道
我想用VB调用EXCEL里面的数据
具体步骤是怎么样的（EXCEL里面有6行6列数据），并把这些数据存入到一个数组中，请问如何编程，再追加50分，本人说话算数？
如果程序能运行的话
我有更好的答案
1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”-&“引用”-&找到Microsoft Excel 12.0 Object Library-&确定；然后才可以运行；3、代码如下：Dim ExApp As New Excel.ApplicationDim Exb As Excel.WorkbookDim Exsh As Excel.WorksheetDim arr(6, 6) As Integer '定义一个二维数组，数据类型为整数ExApp.Workbooks.Open &c:\book1.xls& '打开EXEL文件，路径和文件名自己根据实际修改Set Exb = ExApp.Workbooks(1)Set Exsh = Exb.Worksheets(&Sheet1&)For i = 1 To 6 '假设是读取A1:F6的6X6区域数据For j = 1 To 6 arr(i, j) = Exsh.Cells(i, j)Next jNext i'把自己需要对数组数据进一步处理的部分加进去...ExApp.Workbooks.CloseExApp.QuitSet ExApp = Nothing
采纳率：62%
然后： Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim OpenExecl As Long Dim ExcelPath As String Set xlApp = CreateObject(&创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(ASet xlBook = xlApp.Workbooks.Add() &#39.Cells(1;设置活动工作表 ExcelPath = xlApp.Path + &\abc.Cells(2.xls&) '打开存在的execl文件 xlApp.Visible = true '设置EXCEL对象可见（或不可见） 'Excel, 1)就是指代左上角的单元格了．可以对它读写了．xlSheet首先引用Microsoft Excel Object Library.Application&) &#39...Worksheets(&Sheet1&) &#39.Path &#39, 1) ..exe的路径 然后，xlS打开新建立的EXCEL工件簿文件 Set xlSheet = xlBook
为您推荐：
其他类似问题
您可能关注的内容
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。