Sub test()
Dim arr()
Dim wb, wb1 As Workbook
'防止意外情況绪穆，將內(nèi)容復(fù)制到新建的表'
Set wb1 = Workbooks.Add
arr = Application.GetOpenFilename("Excel文件,*.xls*", , "請(qǐng)選擇", , True)
'防止用戶沒(méi)選的情況'
If arr(1) <> "False" Then
For i = LBound(arr) To UBound(arr)
Set wb = Workbooks.Open(arr(i))
For Each sht In wb.Sheets
sht.Copy after:=wb1.Sheets(wb1.Sheets.Count)
wb1.Sheets(wb1.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
Next
wb.Close
Next
End If
End Sub
練習(xí)-合并多文件最終版
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
- 文/潘曉璐 我一進(jìn)店門冯遂，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)，“玉大人谒获，你說(shuō)我怎么就攤上這事蛤肌”谌矗” “怎么了？”我有些...
- 文/不壞的土叔 我叫張陵裸准，是天一觀的道長(zhǎng)展东。 經(jīng)常有香客問(wèn)我，道長(zhǎng)炒俱，這世上最難降的妖魔是什么盐肃？ 我笑而不...
- 正文 為了忘掉前任，我火速辦了婚禮权悟，結(jié)果婚禮上砸王，老公的妹妹穿的比我還像新娘。我一直安慰自己峦阁，他們只是感情好谦铃，可當(dāng)我...
- 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著榔昔，像睡著了一般驹闰。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上撒会，一...
- 那天嘹朗，我揣著相機(jī)與錄音，去河邊找鬼诵肛。 笑死骡显，一個(gè)胖子當(dāng)著我的面吹牛，可吹牛的內(nèi)容都是我干的曾掂。 我是一名探鬼主播惫谤，決...
- 文/蒼蘭香墨 我猛地睜開眼，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼珠洗！你這毒婦竟也來(lái)了溜歪？” 一聲冷哼從身側(cè)響起，我...
- 序言：老撾萬(wàn)榮一對(duì)情侶失蹤许蓖，失蹤者是張志新（化名）和其女友劉穎蝴猪，沒(méi)想到半個(gè)月后，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體膊爪，經(jīng)...
- 正文 獨(dú)居荒郊野嶺守林人離奇死亡自阱，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
- 正文 我和宋清朗相戀三年，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了米酬。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片沛豌。...
- 正文 年R本政府宣布芍锦，位于F島的核電站竹勉，受9級(jí)特大地震影響，放射性物質(zhì)發(fā)生泄漏娄琉。R本人自食惡果不足惜次乓，卻給世界環(huán)境...
- 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望孽水。 院中可真熱鬧票腰，春花似錦、人聲如沸匈棘。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)主卫。三九已至，卻和暖如春鹃愤，著一層夾襖步出監(jiān)牢的瞬間簇搅，已是汗流浹背。 一陣腳步聲響...
- 正文 我出身青樓凹耙，卻偏偏與公主長(zhǎng)得像姿现，于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子肖抱，可洞房花燭夜當(dāng)晚...
推薦閱讀更多精彩內(nèi)容
- ￥開啟￥ 【iAPP實(shí)現(xiàn)進(jìn)入界面執(zhí)行逐一顯】 〖2017-08-25 15:22:14〗 《//首先開一個(gè)線程备典，因...
