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，這一點是要注意的。