B 获取多个Excel文件中某一单元格中内容.docVIP

下载本文档

1
0
约3.36千字
约 3页
2019-10-15 发布于江西
举报
版权申诉

B 获取多个Excel文件中某一单元格中内容.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

VB 获取多个Excel文件中某一单元格中内容有这样一些excel文件：甲.xls, 乙.xls, 丙.xls ……想要获取每个文件sheet1中的D15单元格的数值，有什么可行的办法？例如文件甲sheet1 中D15的值是90，则获取的结果为甲 90??? 。即文件名+数值。 .将下列代码粘贴到一个文本文件，并将其改名为Form1.frm，然后运行，并将工程-引用-将Microsoft Excel 12.0 Object Library选中 VERSION 5.00Begin VB.Form Form1 ?? Caption???????? =?? D15?? ClientHeight??? =?? 3435?? ClientLeft????? =?? 60?? ClientTop?????? =?? 450?? ClientWidth???? =?? 4890?? LinkTopic?????? =?? Form1?? ScaleHeight???? =?? 3435?? ScaleWidth????? =?? 4890?? StartUpPosition =?? 3 窗口缺省?? Begin VB.TextBox Text3 ????? Height????????? =?? 375????? Left??????????? =?? 1680????? TabIndex??????? =?? 6????? Text??????????? =?? Sheet1????? Top???????????? =?? 1080????? Width?????????? =?? 2415?? End?? Begin VB.TextBox Text2 ????? Height????????? =?? 375????? Left??????????? =?? 1680????? TabIndex??????? =?? 4????? Text??????????? =?? 4????? Top???????????? =?? 600????? Width?????????? =?? 2415?? End?? Begin VB.TextBox Text1 ????? Height????????? =?? 375????? Left??????????? =?? 1680????? TabIndex??????? =?? 3????? Text??????????? =?? 15????? Top???????????? =?? 120????? Width?????????? =?? 2415?? End?? Begin VB.CommandButton Command1 ????? Caption???????? =?? 处理????? Height????????? =?? 495????? Left??????????? =?? 2040????? TabIndex??????? =?? 0????? Top???????????? =?? 2520????? Width?????????? =?? 1215?? End?? Begin VB.Label Label1 ????? Caption???????? =?? 要查找的表名：????? Height????????? =?? 375????? Index?????????? =?? 2????? Left??????????? =?? 120????? TabIndex??????? =?? 5????? Top???????????? =?? 1200????? Width?????????? =?? 1335?? End?? Begin VB.Label Label1 ????? Caption???????? =?? 要查找的列：????? Height????????? =?? 375????? Index?????????? =?? 1????? Left??????????? =?? 120????? TabIndex??????? =?? 2????? Top???????????? =?? 720????? Width?????????? =?? 1095?? End?? Begin VB.Label Label1 ????? Caption???????? =?? 要查找的行：????? Height????????? =?? 375????? Index?????????? =?? 0????? Left??????