微信
手機版
(資料圖)
1、Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = ***.Open(MyPath & "" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "個工作薄下的全部工作表。
2、如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub。
本文分享完畢，希望對大家有所幫助。
相關(guān)推薦
- (2023-06-17)每日消息!怎么把多個表格合并到一個表格內(nèi)_怎么把多個表格合并到一個表格
- (2023-06-17)嚴查超速超載 占用應(yīng)急車道等違法行為 重慶交巡警啟動高速公路夏季交通安全打擊整治集中行動-天天新消息
- (2023-06-17)臺式電腦沒有聲音怎么辦解決方法大全_臺式電腦沒有聲音怎么辦-全球播報
- (2023-06-17)快看：63 times 67 6 times _6 1 times 100 3 times 7 4200 21 4221的運算法則
- (2023-06-16)小米手機配置排行榜 環(huán)球今日報
- (2023-06-16)天天熱議:情寄教育 泉港籍愛心鄉(xiāng)賢為家鄉(xiāng)小學(xué)捐贈“愛心圖書室”
- (2023-06-16)瑞豐銀行行長張向榮“工作調(diào)動”，或?qū)⑷温氂谡憬?nèi)其他農(nóng)商銀行|全球資訊
- (2023-06-16)26℃?溫暖在您身邊|直面榮辱同樣“不能慫”！彭清林，我們寵你！|全球最新
- (2023-06-16)TA：巴薩的轉(zhuǎn)會策略很大部分取決于京多安，他們已改進報價
- (2023-06-16)沃隆食品：獨董身兼五職 十億元投資項目“去哪兒了” 全球新資訊
- (2023-06-16)債券有什么特征？投資債券要注意哪些要點？-天天時訊
- (2023-06-16)零售藥店接入統(tǒng)籌醫(yī)保 政策利好催化藥物板塊
- (2023-06-16)中信銀行鄭州分行：警惕平臺交易陷阱，提高反詐意識
- (2023-06-16)環(huán)球快消息！基辛格：美國若只關(guān)注本國利益 將被國際社會孤立
- (2023-06-16)環(huán)球視訊！愛電影?愛臺詞?《最后的決斗》
- (2023-06-16)蔚來式“降價” 你看懂了嗎？
- (2023-06-16)環(huán)球熱資訊！上海發(fā)文主攻“元宇宙”兩大關(guān)鍵技術(shù)，多地競相布局誰能拔得頭籌？
- (2023-06-16)對電視劇固定收益投資，能否因未發(fā)行而免除回款義務(wù)？
- (2023-06-16)全球通訊！怪起來了：《波斯王子：時之砂重制版》登頂日亞熱銷榜 疑似人為操縱
- (2023-06-16)今日熱搜：駱駝55b24l電瓶參數(shù)（55b24l電瓶表示什么？）
- (2023-06-16)當(dāng)幸福來敲門中的英文單詞（當(dāng)幸福來敲門的英文名）
- (2023-06-16)零號柴油和負10號柴油能混用嗎（0號柴油和負10號柴油可以混合嗎？）-天天簡訊
- (2023-06-16)“千萬工程”20年丨浙江：一枝花共富一方百姓
- (2023-06-16)沉積巖有哪些常見的原生沉積構(gòu)造-沉積巖有哪些
- (2023-06-16)當(dāng)前滾動:辛烯基琥珀酸淀粉鈉_關(guān)于辛烯基琥珀酸淀粉鈉的介紹
- (2023-06-16)6月16日華泰柏瑞匠心臻選混合A凈值上漲1.29%
- (2023-06-16)貴陽市第三屆甲秀工匠技能大賽圓滿落幕
- (2023-06-16)天天播報:唐僧是如來佛祖的弟子 唐僧后來被如來封號讀音
- (2023-06-16)工業(yè)互聯(lián)網(wǎng)產(chǎn)業(yè)規(guī)模突破萬億元，人才與技術(shù)鴻溝如何填補？
- (2023-06-16)全球觀點：倩女幽魂里黑山老妖是什么妖怪_黑山老妖是什么妖怪
返回首頁每日推薦
- ETF聯(lián)接基金是什么意思？ETF基金和ETF聯(lián)
- 貨幣基金的收益高嗎？貨幣基金一般年收益
- 基金賣出了怎么還有收益顯示？基金已經(jīng)贖
- 投資的基金買了幾天可以賣掉？基金入手多
- 基金終于回本了該不該贖回？基金終于回本
- 二月出境復(fù)飛航線超40條 節(jié)后部分機票價
- 重大事項變更！網(wǎng)易寶獲批增加注冊資本至
- 信達證券上市首日漲幅44%
- 總投資約486億元 北京今年首批50個重大
- 新年北京首月二手住宅網(wǎng)簽量再探底 價格
- 股價大漲 博云新材股東高創(chuàng)投擬趁機減持
- 2019華人歌曲音樂盛典在澳門舉行
- 喜迎十九大?歡度中秋節(jié)—傳統(tǒng)文化進社區(qū)
- 突發(fā)！吳敏霞夫婦挑婚戒被曝光！兩百萬鉆
- 《鐘山說事》 熱點聚焦：胡鵬飛的最美鄉(xiāng)
- 湖南御福天益生物公司被指涉嫌傳銷進行非
- 大同市城投公司劉建婷遭群眾舉報
- 魯能集團 “一帶一路”履責(zé)行動暨“海南
圖片新聞
ETF聯(lián)接基金是什么意思？ETF基金和ETF聯(lián)接基金區(qū)別有哪些？
貨幣基金的收益高嗎？貨幣基金一般年收益率多少？
基金賣出了怎么還有收益顯示？基金已經(jīng)贖回為什么還有收益？
投資的基金買了幾天可以賣掉？基金入手多久才可以賣？
二月出境復(fù)飛航線超40條 節(jié)后部分機票價格跳水
48小時頻道點擊排行
-
0
1每日消息!怎么把多個表格合并到一個 -
0
2快看：63 times 67 6 times _6 -
0
3瑞豐銀行行長張向榮“工作調(diào)動”，或 -
0
4環(huán)球快消息！基辛格：美國若只關(guān)注本 -
0
5環(huán)球熱資訊！上海發(fā)文主攻“元宇宙” -
0
6今日熱搜：駱駝55b24l電瓶參數(shù)（55b2 -
0
7“千萬工程”20年丨浙江：一枝花共富 -
0
86月16日華泰柏瑞匠心臻選混合A凈值上 -
0
9工業(yè)互聯(lián)網(wǎng)產(chǎn)業(yè)規(guī)模突破萬億元，人才 -
0
10【全球熱聞】帶鎧電纜型號yjv22_帶鎧 -
0
11華晨宇方回應(yīng)長沙演唱會退票事件，將 -
0
12福特新蒙迪歐6月下旬上市！換CVT變速 -
0
13全球快播：杜富國，歡迎“回家”！ -
0
14天天看熱訊：創(chuàng)新醫(yī)療：控股股東一致 -
0
15手機屏幕黑了怎么導(dǎo)出數(shù)據(jù)_手機屏幕 -
0
16全球短訊！A股五大上市險企前5月保費 -
0
17微資訊！貴州：2023年軍隊院校招收普 -
0
18世界焦點！航宇科技擬發(fā)不超6.67億可 -
0
19韓國之痛：生育率跌至谷底，自殺率居 -
0
20環(huán)球時訊：沉默的道釘：一段不應(yīng)被忘