楊老師課堂 VBA學習教程之一鍵合併所有檔案

檔案合併示例**：

要求：在c盤中有乙個資料夾，資料夾中有檔案存在

sub

wjhb()
dimstr
asstring
dim wb as
workbook 
str = dir("
c:\data\*.*")
for i = 1
to20
'1 開啟檔案
set wb = workbooks.open("
c:\data\
" & str & ""
) 
'2 從遍歷中的某乙個工作簿中的第一張表執行拷貝 到這個工作簿中的最後一張表中去
wb.sheets(1).copy after:=thisworkbook.sheets(thisworkbook.sheets.count)
'3 在這個工作簿中的最後一張表的名字是【已經完成拷貝操作】 = 檔名稱
thisworkbook.sheets(thisworkbook.sheets.count).name = split(str, "
.")(0
) 
'4 遍歷中的工作簿執行關閉
wb.close
'下一次遍歷
str = dir
ifstr = ""
then
exit
forend
ifnext
end sub

end sub

subwjhb2()
dimstr
asstring
dim wb as
workbook 
str = dir("
c:\data\*.xlsx")
for i = 1
to20
set wb = workbooks.open("
c:\data\
" & str & ""
) 
wb.sheets(
1).copy after:=thisworkbook.sheets(thisworkbook.sheets.count)
thisworkbook.sheets(thisworkbook.sheets.count).name = str
wb.close
str = dir
ifstr = ""
then
exit
forend
ifnext
end sub

套接字學習教程之一

1 概述 bsd 套接字 socket 將程序間通訊推到乙個新的水平。彼此通訊的程序可不再必須執行在同一計算機上。它們仍然還能夠執行在同一計算機上，但不再必須那樣。不僅這些程序不必執行在同一計算機上，它們也不必執行在同一種作業系統上。有了 bsd 套接字，你的 freebsd 軟體能夠與執行在 ma...

套接字學習教程之一

1 概述 bsd 套接字 socket 將程序間通訊推到乙個新的水平。彼此通訊的程序可不再必須執行在同一計算機上。它們仍然還能夠執行在同一計算機上，但不再必須那樣。不僅這些程序不必執行在同一計算機上，它們也不必執行在同一種作業系統上。有了 bsd 套接字，你的 freebsd 軟體能夠與執行在 ma...

黑客學習筆記教程之一 黑客文化

不過，我也發現了一些問題，就是網上的多數教程或者是內容散亂，邏輯性不強，或者是隔靴搔癢讓人很不過癮。為此，我決定也寫乙份教程，談談我所認識和學習的黑客技術。但說起來也很慚愧，本教程是我一面聽著中安網培的教程，一面學習著黑鷹的動畫教程，再加上我自己的課堂筆記寫的，所以很多都是別人的東西。所以，如果您學...