 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 842 | 回復(fù): 4 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
mystar金蟲 (文壇精英)
|
[交流]
【求助】excel宏問題【已解決】
|
||
|
目的是將一個(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)選擇追加記錄的來源檔"  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)選擇追加記錄的來源檔" 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 －－－－－－－－－－－－－－－ 沒有出錯(cuò)信息，但第一行會(huì)有問題。 麻煩再改改 [ Last edited by 余澤成 on 2010-12-12 at 20:31 ] |
回復(fù)此樓» 猜你喜歡
315求調(diào)劑
已經(jīng)有8人回復(fù)
-
312求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿鄭州大學(xué)材料與化工085600，求調(diào)劑
已經(jīng)有4人回復(fù)
-
315分 085602 求調(diào)劑
已經(jīng)有7人回復(fù)
-
298分 070300求調(diào)劑
已經(jīng)有5人回復(fù)
-
349求調(diào)劑
已經(jīng)有9人回復(fù)
-
302求調(diào)劑
已經(jīng)有4人回復(fù)
-
化工調(diào)劑303分，過四級(jí)
已經(jīng)有10人回復(fù)
-
321求調(diào)劑
已經(jīng)有14人回復(fù)
-
296材料專碩求調(diào)劑
已經(jīng)有14人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 【講座】徹底理解Excel中的宏（馬成功）
已經(jīng)有340人回復(fù)
- 急！X射線衍射相同，但是顆粒宏觀大小形狀不同，如何解釋？
已經(jīng)有8人回復(fù)
- 能說明 微觀結(jié)構(gòu) 對(duì) 材料宏觀力學(xué)影響 的 示意圖【PPT用圖】，非常感謝！
已經(jīng)有6人回復(fù)
- excel中的加載宏
已經(jīng)有7人回復(fù)
- 中國(guó)科學(xué)技術(shù)大學(xué)俞書宏教授課題組——生物納米復(fù)合材料
已經(jīng)有24人回復(fù)
- 關(guān)于excel宏的問題！急等！
已經(jīng)有2人回復(fù)
- 計(jì)劃書，word2007,宏設(shè)置問題
已經(jīng)有5人回復(fù)
- 【交流】對(duì)多晶的取向分析在宏觀上有哪些測(cè)試手段
已經(jīng)有22人回復(fù)
- 請(qǐng)教高手，插入文獻(xiàn)時(shí),提示由于宏設(shè)置問題不能插入？
已經(jīng)有5人回復(fù)
Lily_melon
銅蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 475.4
- 沙發(fā): 6
- 帖子: 281
- 在線: 17.3小時(shí)
- 蟲號(hào): 1115473
- 注冊(cè): 2010-10-07
- 性別: GG
- 專業(yè): BB學(xué)
3樓2010-10-23 09:26:48
mystar
金蟲 (文壇精英)
- 應(yīng)助: 0 (幼兒園)
- 貴賓: 1.2
- 金幣: 1534.1
- 散金: 1520
- 紅花: 2
- 沙發(fā): 1
- 帖子: 10236
- 在線: 667.3小時(shí)
- 蟲號(hào): 91402
- 注冊(cè): 2005-09-05
2樓2010-10-21 17:36:33
mystar
金蟲 (文壇精英)
- 應(yīng)助: 0 (幼兒園)
- 貴賓: 1.2
- 金幣: 1534.1
- 散金: 1520
- 紅花: 2
- 沙發(fā): 1
- 帖子: 10236
- 在線: 667.3小時(shí)
- 蟲號(hào): 91402
- 注冊(cè): 2005-09-05
5樓2010-12-09 01:02:42
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求調(diào)劑求調(diào)劑 +7 | 121. 2026-04-02 | 7/350 |
|
|---|---|---|---|---|
|
|
[考研] 求調(diào)劑 302分初試 0854 +5 | 伶可樂 2026-04-02 | 5/250 |
|
|
[考研]
 一志愿北京科技材料科學(xué)與工程288分，求調(diào)劑
+13
|
是辰啊 2026-04-02 | 13/650 |
|
|
|
[考研] 366求調(diào)劑一志愿東北大學(xué) +7 | 運(yùn)氣來得若有似?/a> 2026-04-02 | 7/350 |
|
|
|
[考研] 一志愿北京科技大學(xué)085601材料工程英一數(shù)二初試總分335求調(diào)劑 +8 | 雙馬尾痞老板2 2026-04-02 | 9/450 |
|
|
|
[考研] 化學(xué)308分調(diào)劑 +14 | 你好明天你好 2026-03-30 | 15/750 |
|
|
|
[考研] 材料求調(diào)劑 一志愿哈工大總分298分，前三科223分 +12 | dongfang59 2026-03-27 | 12/600 |
|
|
|
[考研] 085601 材料工程 313分 求調(diào)劑 +7 | Ong3 2026-03-27 | 7/350 |
|
|
|
[考研] 272求調(diào)劑，接受跨專業(yè)調(diào)劑！ +4 | 閑魚盧 2026-03-31 | 4/200 |
|
|
|
[考研] 材料調(diào)劑 +12 | 一樣YWY 2026-04-01 | 12/600 |
|
|
|
[考研] 266分，一志愿電氣工程，本科材料，求材料專業(yè)調(diào)劑 +10 | 哇呼哼呼哼 2026-04-01 | 11/550 |
|
|
|
[考研] 349求調(diào)劑 +6 | 吃的不少 2026-04-01 | 6/300 |
|
|
|
[考研] 086502化學(xué)工程342求調(diào)劑 +7 | 阿姨復(fù)古不過 2026-03-27 | 7/350 |
|
|
|
[考研] 一志愿a區(qū)211，085601-307分求調(diào)劑 +10 | 黨嘉豪 2026-03-31 | 23/1150 |
|
|
|
[考研] 材料與化工272求調(diào)劑 +25 | 阿斯蒂芬2004 2026-03-28 | 25/1250 |
|
|
|
[考研] 本科211安全工程，初試290分，求調(diào)劑 +3 | 2719846834 2026-03-28 | 3/150 |
|
|
|
[考研] 327求調(diào)劑 +5 | 小卡不卡. 2026-03-29 | 5/250 |
|
|
|
[考研] 環(huán)境科學(xué)與工程334分求調(diào)劑 +6 | 王一一依依 2026-03-30 | 8/400 |
|
|
|
[考研] 086000生物與醫(yī)藥調(diào)劑 +5 | Feisty。 2026-03-28 | 9/450 |
|
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|