[發問] excel資料篩選指定資料匯出另一個excel檔

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-5-21 14:38 | 只看該作者

大大好：

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

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

資料匯出為另一個EXCEL檔.rar (22.52 KB)

論壇贊助勳章

3^#

發表於 2013-5-22 08:46 | 只看該作者

回復 2# GBKEE

謝謝GBKEE大大！謝謝！:)

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-21 17:19 | 只看該作者

回復 1# lifedidi

Option Explicit
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("sheet1")
.AutoFilterMode = False
With .Range("B:U")
.AutoFilter 3, ComboBox1 '自動篩選第3欄準則=ComboBox1
.Copy
End With
With Workbooks.Add(1)
.Sheets(1).Paste
.SaveAs ThisWorkbook.Path & "\" & ComboBox1
.Close
End With
.Range("B2:U" & .Cells(.Rows.Count, "b").End(xlUp).Row).Delete xlUp '刪掉自動篩選出來的資料
.AutoFilterMode = False
End With
Unload Me
Application.ScreenUpdating = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 要批評別人時，先想想自己是否完美無缺。