b 获取多个excel文件中某一单元格中内容

《b 获取多个excel文件中某一单元格中内容》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB获取多个Excel文件中某一单元格中内容有这样一些excel文件：甲.xls,乙.xls,丙.xls……想要获取每个文件sheet1中的D15单元格的数值，有什么可行的办法？例如文件甲sheet1中D15的值是90，则获取的结果为甲90   。即文件名+数值。'.将下列代码粘贴到一个文本文件，并将其改名为Form1.frm，然后运行，并将工程-引用-将MicrosoftExcel12.0ObjectLibrary选中VERSION5.00BeginVB.FormForm1  Caption        =  "D15"  ClientHeight   =  34

2、35  ClientLeft     =  60  ClientTop      =  450  ClientWidth    =  4890  LinkTopic      =  "Form1"  ScaleHeight    =  3435  ScaleWidth     =  4890  StartUpPosition=  3'窗口缺省  BeginVB.TextBoxText3     Height         =  375     Left           =  1680     TabIndex       =  6     Text       

3、    =  "Sheet1"     Top            =  1080     Width          =  2415  End  BeginVB.TextBoxText2     Height         =  375     Left           =  1680     TabIndex       =  4     Text           =  "4"     Top            =  600     Width          =  2415  End  BeginVB.TextBoxText1     Hei

4、ght         =  375     Left           =  1680     TabIndex       =  3     Text           =  "15"     Top            =  120     Width          =  2415  End  BeginVB.CommandButtonCommand1     Caption        =  "处理"     Height         =  495     Left           =  2040     TabIndex       = 

5、 0     Top            =  2520     Width          =  1215  End  BeginVB.LabelLabel1     Caption        =  "要查找的表名："     Height         =  375     Index          =  2     Left           =  120     TabIndex       =  5     Top            =  1200     Width          =  1335  End  BeginVB.Labe

6、lLabel1     Caption        =  "要查找的列："     Height         =  375     Index          =  1     Left           =  120     TabIndex       =  2     Top            =  720     Width          =  1095  End  BeginVB.LabelLabel1     Caption        =  "要查找的行："     Height         =  375     Index   

7、       =  0     Left           =  120     TabIndex       =  1     Top            =  240     Width          =  1095  EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand