標題: [發問] excel資料篩選指定資料匯出另一個excel檔 [打印本頁]

---

作者: lifedidi    時間: 2013-5-21 14:38     標題: excel資料篩選指定資料匯出另一個excel檔

大大好：

小弟有一個資料庫，因為有些專案結束後資料就用不到，
希望能有個功能̬，能夠將指定的專案編號(結束的專案)匯出成另一個EXCEL檔案做為瀏覽，而這資料庫就不再有這專案的資料。
*匯出的資料名稱則以選擇的專案編號為名。

有爬過文，有幾個相似的問題，但是都套用不起來，請大大幫忙，謝謝。

[attach]15048[/attach]

---

作者: GBKEE    時間: 2013-5-21 17:19

回復 1# lifedidi

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Application.ScreenUpdating = False
   
4.     With Sheets("sheet1")
   
5.         .AutoFilterMode = False
   
6.         With .Range("B:U")
   
7.             .AutoFilter 3, ComboBox1  '自動篩選 第3欄 準則=ComboBox1
   
8.             .Copy
   
9.         End With
   
10.         With Workbooks.Add(1)
    
11.             .Sheets(1).Paste
    
12.             .SaveAs ThisWorkbook.Path & "\" & ComboBox1
    
13.             .Close
    
14.         End With
    
15.        .Range("B2:U" & .Cells(.Rows.Count, "b").End(xlUp).Row).Delete xlUp       '刪掉 自動篩選出來的資料
    
16.        .AutoFilterMode = False
    
17.     End With
    
18.     Unload Me
    
19.     Application.ScreenUpdating = True
    
20. End Sub

複製代碼

---

作者: lifedidi    時間: 2013-5-22 08:46

回復 2# GBKEE


    謝謝GBKEE大大！謝謝！:)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)