 |
 |
 |
| 24小時(shí)熱門(mén)版塊排行榜 |
- >論壇更新日志 (5422)
- >考研 (2246)
- >導(dǎo)師招生 (1940)
- >蟲(chóng)友互識(shí) (325)
- >文獻(xiàn)求助 (323)
- >碩博家園 (165)
- >休閑灌水 (156)
- >考博 (97)
- >招聘信息布告欄 (85)
- >基金申請(qǐng) (84)
- >博后之家 (65)
- >綠色求助(高懸賞) (43)
- >論文投稿 (38)
- >材料綜合 (24)
- >外文書(shū)籍求助 (16)
- >找工作 (15)
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 840 | 回復(fù): 4 | |||
mystar金蟲(chóng) (文壇精英)
|
[交流]
【求助】excel宏問(wèn)題【已解決】
|
|
目的是將一個(gè)excel文件追加到另一個(gè)excel文件 －－－－－－－－－－－－－－－－－ Sub MergeSheets() Dim SrcBook As Workbook, SrcSht As Worksheet Dim Filename As Variant ' Get the filename Filename = Application.GetOpenFilename("Excel Files (*.xls), *.xls,CSV Files (*.csv), *.csv,Text Files (*.txt), *.txt,PRN Files (*.prn), *.prn", 1, "請(qǐng)選擇追加記錄的來(lái)源檔"  If Filename = False Then Exit Sub End If Set SrcBook = Workbooks.Open(Filename) '如果兩個(gè)檔案的工作表數(shù)量不等則取消執(zhí)行 If ThisWorkbook.Sheets.Count <> SrcBook.Sheets.Count Then MsgBox "兩個(gè)檔案的工作表數(shù)量不等" & vbCrLf & _ ThisWorkbook.Name & " = " & ThisWorkbook.Sheets.Count & "個(gè)工作表" & vbCrLf & _ SrcBook.Name & " = " & SrcBook.Sheets.Count & "個(gè)工作表" SrcBook.Close Exit Sub End If n = 1 Application.ScreenUpdating = False For Each SrcSht In SrcBook.Worksheets '取得復(fù)制范圍，如果有標(biāo)題行不復(fù)制，請(qǐng)更改 "A1:IV"，例如 "A2:IV" SrcSht.Range("A1:IV" & SrcSht.Range("A65536" .End(xlUp).Row).CopyThisWorkbook.Worksheets(n).Activate Range("A65536" .End(xlUp).Offset(1, 0).PasteSpecialApplication.CutCopyMode = False Range("A1" .Activaten = n + 1 Next ThisWorkbook.Worksheets(1).Activate SrcBook.Close Application.ScreenUpdating = True End Sub －－－－－－－－－－－－－－－－－－－－－－－－ 有一個(gè)出錯(cuò)信息 改成 －－－－－－－－－－－－－－ －－－－－－－－－－－－－－－－－－ Sub MergeSheets() Dim SrcBook As Workbook, SrcSht As Worksheet Dim Filename As Variant ' Get the filename Filename = Application.GetOpenFilename("Excel Files (*.xls), *.xls,CSV Files (*.csv), *.csv,Text Files (*.txt), *.txt,PRN Files (*.prn), *.prn", 1, "請(qǐng)選擇追加記錄的來(lái)源檔" If Filename = False Then Exit Sub End If Set SrcBook = Workbooks.Open(Filename) '如果兩個(gè)檔案的工作表數(shù)量不等則取消執(zhí)行 If ThisWorkbook.Sheets.Count <> SrcBook.Sheets.Count Then MsgBox "兩個(gè)檔案的工作表數(shù)量不等" & vbCrLf & _ ThisWorkbook.Name & " = " & ThisWorkbook.Sheets.Count & "個(gè)工作表" & vbCrLf & _ SrcBook.Name & " = " & SrcBook.Sheets.Count & "個(gè)工作表" SrcBook.Close Exit Sub End If n = 1 Application.ScreenUpdating = False For Each SrcSht In SrcBook.Worksheets '取得復(fù)制范圍，如果有標(biāo)題行不復(fù)制，請(qǐng)更改 "A1:IV"，例如 "A2:IV" On Error Resume Next If Len(SrcSht.Names("TITLE" .Name) <> 0 ThenApplication.Goto Reference:=SrcSht.Range("TITLE" Selection.EntireRow.Hidden = True End If SrcSht.Range("A1:IV" & SrcSht.Range("A65536" .End(xlUp).Row).CopyThisWorkbook.Worksheets(n).Activate Range("A65536" .End(xlUp).Offset(1, 0).PasteSpecialApplication.CutCopyMode = False Range("A1" .Activaten = n + 1 Next ThisWorkbook.Worksheets(1).Activate SrcBook.Close SaveChanges:=False Application.ScreenUpdating = True End Sub －－－－－－－－－－－－－－－ 沒(méi)有出錯(cuò)信息，但第一行會(huì)有問(wèn)題。 麻煩再改改 [ Last edited by 余澤成 on 2010-12-12 at 20:31 ] |
回復(fù)此樓» 猜你喜歡
283分材料與化工求調(diào)劑
已經(jīng)有12人回復(fù)
-
349求調(diào)劑
已經(jīng)有7人回復(fù)
-
296材料專(zhuān)碩求調(diào)劑
已經(jīng)有11人回復(fù)
-
一志愿上海海洋大學(xué)083200食品學(xué)碩，求調(diào)劑，接受其他專(zhuān)業(yè)
已經(jīng)有7人回復(fù)
-
材料340分調(diào)劑
已經(jīng)有8人回復(fù)
-
316求調(diào)劑
已經(jīng)有13人回復(fù)
-
321求調(diào)劑
已經(jīng)有11人回復(fù)
-
315求調(diào)劑
已經(jīng)有6人回復(fù)
-
330分求調(diào)劑
已經(jīng)有13人回復(fù)
-
化工調(diào)劑303分，過(guò)四級(jí)
已經(jīng)有9人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 【講座】徹底理解Excel中的宏（馬成功）
已經(jīng)有340人回復(fù)
- 急！X射線衍射相同，但是顆粒宏觀大小形狀不同，如何解釋?zhuān)?/a>
已經(jīng)有8人回復(fù)
- 能說(shuō)明 微觀結(jié)構(gòu) 對(duì) 材料宏觀力學(xué)影響 的 示意圖【PPT用圖】，非常感謝！
已經(jīng)有6人回復(fù)
- excel中的加載宏
已經(jīng)有7人回復(fù)
- 中國(guó)科學(xué)技術(shù)大學(xué)俞書(shū)宏教授課題組——生物納米復(fù)合材料
已經(jīng)有24人回復(fù)
- 關(guān)于excel宏的問(wèn)題！急等！
已經(jīng)有2人回復(fù)
- 計(jì)劃書(shū)，word2007,宏設(shè)置問(wèn)題
已經(jīng)有5人回復(fù)
- 【交流】對(duì)多晶的取向分析在宏觀上有哪些測(cè)試手段
已經(jīng)有22人回復(fù)
- 請(qǐng)教高手，插入文獻(xiàn)時(shí),提示由于宏設(shè)置問(wèn)題不能插入？
已經(jīng)有5人回復(fù)
mystar
金蟲(chóng) (文壇精英)
- 應(yīng)助: 0 (幼兒園)
- 貴賓: 1.2
- 金幣: 1534.1
- 散金: 1520
- 紅花: 2
- 沙發(fā): 1
- 帖子: 10236
- 在線: 667.3小時(shí)
- 蟲(chóng)號(hào): 91402
- 注冊(cè): 2005-09-05
2樓2010-10-21 17:36:33
Lily_melon
銅蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 475.4
- 沙發(fā): 6
- 帖子: 281
- 在線: 17.3小時(shí)
- 蟲(chóng)號(hào): 1115473
- 注冊(cè): 2010-10-07
- 性別: GG
- 專(zhuān)業(yè): BB學(xué)
3樓2010-10-23 09:26:48
mystar(金幣+10): ------------- 2011-04-25 18:54:31
 |
4樓2010-12-09 00:56:55
mystar
金蟲(chóng) (文壇精英)
- 應(yīng)助: 0 (幼兒園)
- 貴賓: 1.2
- 金幣: 1534.1
- 散金: 1520
- 紅花: 2
- 沙發(fā): 1
- 帖子: 10236
- 在線: 667.3小時(shí)
- 蟲(chóng)號(hào): 91402
- 注冊(cè): 2005-09-05
5樓2010-12-09 01:02:42
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 mystar 的主題更新
| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 346求調(diào)劑 +5 | 鄭誠(chéng)樂(lè) 2026-04-02 | 5/250 |
|
|---|---|---|---|---|
|
|
[考研] 301求調(diào)劑 +4 | 細(xì)胞相關(guān)蛋白 2026-04-02 | 8/400 |
|
|
|
[考研] 318求調(diào)劑 +3 | 篤行致遠(yuǎn). 2026-03-31 | 4/200 |
|
|
[考研] 材料調(diào)劑 +6 | 一樣YWY 2026-04-02 | 6/300 |
|
|
|
[考研] 0805求調(diào)劑 +8 | 是水分 2026-03-31 | 8/400 |
|
|
|
[考研] 材料考研調(diào)劑 +9 | Gs大王 2026-04-02 | 9/450 |
|
|
|
[考研] 求生物學(xué)調(diào)劑 +8 | 15172915737 2026-04-01 | 8/400 |
|
|
|
[考研] 285求調(diào)劑 +11 | AZMK 2026-04-01 | 11/550 |
|
|
|
[考研] 求調(diào)劑 +4 | 圖鑒212 2026-03-30 | 5/250 |
|
|
|
[考研] 070300求調(diào)劑306分 +5 | 26要上岸 2026-03-27 | 5/250 |
|
|
|
[碩博家園] 博一被送出聯(lián)培感覺(jué)不適應(yīng)怎么辦 +3 | 全村的狗 2026-03-31 | 3/150 |
|
|
|
[考研] 318求調(diào)劑 +8 | 七憶77 2026-04-01 | 8/400 |
|
|
|
[考研] 環(huán)境工程 085701，267求調(diào)劑 +15 | minht 2026-03-29 | 16/800 |
|
|
|
[考研] 336材料求調(diào)劑 +10 | 陳瀅瑩 2026-03-26 | 12/600 |
|
|
|
[考研] 學(xué)碩274求調(diào)劑 +17 | Li李魚(yú) 2026-03-26 | 17/850 |
|
|
|
[考研]
 一志愿大連理工大學(xué)材料求調(diào)劑
+6
|
Gymno 2026-03-30 | 6/300 |
|
|
|
[考研] 086000生物與醫(yī)藥調(diào)劑 +5 | Feisty。 2026-03-28 | 9/450 |
|
|
|
[考研] 085600，專(zhuān)業(yè)課化工原理，321分求調(diào)劑 +5 | 大饞小子 2026-03-28 | 5/250 |
|
|
|
[考研] 復(fù)試調(diào)劑 +3 | raojunqi0129 2026-03-28 | 3/150 |
|
|
|
[考研] 331環(huán)境科學(xué)與工程求調(diào)劑 +3 | 熠然好運(yùn)氣 2026-03-27 | 3/150 |
|