多個(gè)Excel表合成一個(gè)Excel表的代碼

Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "個(gè)工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

End Sub

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市煞茫,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌地消,老刑警劉巖,帶你破解...
    沈念sama閱讀 222,681評(píng)論 6 517
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件畏妖,死亡現(xiàn)場(chǎng)離奇詭異脉执,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)戒劫,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 95,205評(píng)論 3 399
  • 文/潘曉璐 我一進(jìn)店門半夷,熙熙樓的掌柜王于貴愁眉苦臉地迎上來婆廊,“玉大人,你說我怎么就攤上這事玻熙》癫剩” “怎么了?”我有些...
    開封第一講書人閱讀 169,421評(píng)論 0 362
  • 文/不壞的土叔 我叫張陵嗦随,是天一觀的道長(zhǎng)列荔。 經(jīng)常有香客問我,道長(zhǎng)枚尼,這世上最難降的妖魔是什么贴浙? 我笑而不...
    開封第一講書人閱讀 60,114評(píng)論 1 300
  • 正文 為了忘掉前任,我火速辦了婚禮署恍,結(jié)果婚禮上崎溃,老公的妹妹穿的比我還像新娘。我一直安慰自己盯质,他們只是感情好袁串,可當(dāng)我...
    茶點(diǎn)故事閱讀 69,116評(píng)論 6 398
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著呼巷,像睡著了一般囱修。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上王悍,一...
    開封第一講書人閱讀 52,713評(píng)論 1 312
  • 那天破镰,我揣著相機(jī)與錄音,去河邊找鬼压储。 笑死鲜漩,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的集惋。 我是一名探鬼主播孕似,決...
    沈念sama閱讀 41,170評(píng)論 3 422
  • 文/蒼蘭香墨 我猛地睜開眼,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼刮刑!你這毒婦竟也來了鳞青?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 40,116評(píng)論 0 277
  • 序言:老撾萬榮一對(duì)情侶失蹤为朋,失蹤者是張志新(化名)和其女友劉穎,沒想到半個(gè)月后厚脉,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體习寸,經(jīng)...
    沈念sama閱讀 46,651評(píng)論 1 320
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,714評(píng)論 3 342
  • 正文 我和宋清朗相戀三年傻工,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了霞溪。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片孵滞。...
    茶點(diǎn)故事閱讀 40,865評(píng)論 1 353
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖鸯匹,靈堂內(nèi)的尸體忽然破棺而出坊饶,到底是詐尸還是另有隱情,我是刑警寧澤殴蓬,帶...
    沈念sama閱讀 36,527評(píng)論 5 351
  • 正文 年R本政府宣布匿级,位于F島的核電站,受9級(jí)特大地震影響染厅,放射性物質(zhì)發(fā)生泄漏痘绎。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 42,211評(píng)論 3 336
  • 文/蒙蒙 一肖粮、第九天 我趴在偏房一處隱蔽的房頂上張望孤页。 院中可真熱鬧,春花似錦涩馆、人聲如沸行施。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,699評(píng)論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽蛾号。三九已至,卻和暖如春冰寻,著一層夾襖步出監(jiān)牢的瞬間须教,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,814評(píng)論 1 274
  • 我被黑心中介騙來泰國(guó)打工斩芭, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留轻腺,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 49,299評(píng)論 3 379
  • 正文 我出身青樓划乖,卻偏偏與公主長(zhǎng)得像贬养,于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子琴庵,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,870評(píng)論 2 361

推薦閱讀更多精彩內(nèi)容