excelvba编程实例

A. excel vba如何将其他许多excel文件中的其中一条数据放到一个excel表格中

如果其他的Excel文件都在同一个目录中，

加个模块，复制下面的代码：

'****************************************************************
'功能：查找指定文件夹含子文件夹内所有文件名（含路径）
'函数名：FileAllArr
'参数1：Filename需查找的文件夹名不含最后的""
'参数2：FileFilter需要过滤的文件名，可省略，默认为：[*.*]
'参数3：Liwai剔除例外的文件名，可省略，默认为：空，一般为：ThisWorkbook.Name
'返回值：一个字符型的数组
'使用方法：arr=FileAllArr(ThisWorkbook.Path,"*.xls",ThisWorkbook.Name)

PublicFunctionFileAllArr(ByValFilenameAsString,="*.*",OptionalByValLiwaiAsString="")AsString()
SetDic=CreateObject("Scripting.Dictionary")'创建一个字典对象
SetDid=CreateObject("Scripting.Dictionary")
Dic.Add(Filename&""),""
i=0
DoWhilei<Dic.Count
Ke=Dic.keys'开始遍历字典
MyName=Dir(Ke(i),vbDirectory)'查找目录
DoWhileMyName<>""
IfMyName<>"."AndMyName<>".."Then
If(GetAttr(Ke(i)&MyName)AndvbDirectory)=vbDirectoryThen'如果是次级目录
Dic.Add(Ke(i)&MyName&""),""'就往字典中添加这个次级目录名作为一个条目
EndIf
EndIf
MyName=Dir'继续遍历寻找
Loop
i=i+1
Loop

i=0
Dimarrx()AsString
ForEachKeInDic.keys'以查找总表所在文件夹下所有excel文件为例
MyFileName=Dir(Ke&FileFilter)'过滤器：EXCEL2003为：*.xls,excel2007为：*.xlsx
DoWhileMyFileName<>""
IfMyFileName<>LiwaiThen'排除例外文件
ReDimPreservearrx(i)
arrx(i)=Ke&MyFileName
i=i+1
EndIf
MyFileName=Dir
Loop
Next
FileAllArr=arrx
EndFunction
'****************************************************************

可以在 Sheet1的代码中写

SubOPIONA()'//函数实例
DimsPAsString,WBAsWorkbook
sP="E:VB合并同规格Excel	mp"'很多Excel文件的路径，不含最后的
arr=FileAllArr(sP,"*.xls",ThisWorkbook.Name)
Application.ScreenUpdating=False
Fori=0ToUBound(arr)
'MsgBoxarr(I)
SetWB=Workbooks.Open(arr(i))
'你的代码
ThisWorkbook.Worksheets(1).Cells(i+1,1).Value=WB.Worksheets(1).Range("T1000").End(xlUp).Value
WB.Windows(1).Visible=False
WB.CloseFalse
Next
Application.ScreenUpdating=True
EndSub

以上文件路径需要自己更改，主要取数的代码解释如下：

ThisWorkbook.Worksheets(1).Cells(i + 1, 1).Value = WB.Worksheets(1).Range("T1000").End(xlUp).Value

从打开文件的T列最后一个数值取值 赋值给操作表的Sheet1中的单元格。

如果数据在每一个Excel中的位置是固定的，比如T10，代码可以直接改为：

ThisWorkbook.Worksheets(1).Cells(i + 1, 1).Value = WB.Worksheets(1).Range("T10").Value

B. EXCEL中如何用VBA实现

方法/步骤如下：

1、双击打开桌面的EXCEL；

2、单击右上角的OFFICE图标，找到EXCEL选项，单击打开；

C. excel表格vba编程的方法步骤

在 Excel 的编辑中，利用到VBA编程的几率是很高的，因此如果工作上用到Excel还没学会VBA的朋友，不妨学习一下。接下来是我为大家带来的excel表格vba编程教程，希望对你有用。

VBA编程步骤1：首先打开excel visual basic窗口，可以调试或试运行程序，打开excel—点击”工具“—"宏(M)"—“visual basic编辑“，红框内就是代码编辑区域

VBA编程步骤2：首先我们得找到读取数据的源文件，可以通过自动寻找路径名+文件名来打开

PS：语法与VB相似，且可以选中英文词按F1查看具体语法说明

VBA编程步骤3：其次，读取我们需要的数据，并作简单赋值

VBA编程步骤4：根据取得的数值，我们作一些简单运算，如求环比，同比等

VBA编程步骤5：然后我们对一些数据作格式处理，比如保留小数点后两位或一位

D. excel中怎么使用vba

Excel中的VBA代码需要在VBE窗口是使用（具体请看下面详细分析）

Excel版本参考：2010

1、ALT+F11，进入VBE对话框

2、右击-插入-模块

3、输入代码(使用已有代码，直接复制粘贴进入即可）

4、按F5运行或者点击三角按钮运行代码

5、查看效果

E. Excel 关于VBA中IF多条件语句的用法，虚心求教

1、if语句的含义：if语句字面意思就是如果的意思，如果条件为真，那么就执行if语句里面的程序，这个程序，一般指then后面的，一个if语句可以没有end if，但绝对不能没有then，这一点是要注意的。