暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
本帖最後由 joey0415 於 2013-11-7 10:55 編輯
改路徑
D:\篩選.xls
與SQL語法就能找到你想要的
select * from [Sheet1$] where 姓名='何仁德'- Sub Macro1()
- '
- ' Macro1 Macro
- ' joey 在 2013/11/7 錄製的巨集
- '
- '
- With ActiveSheet.QueryTables.Add(Connection:=Array( _
- "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:\篩選.xls;Mode=Share Deny Write;Extended Properties=""HDR=" _
- , _
- "YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=35;Jet OLEDB:" _
- , _
- "Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password" _
- , _
- "="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLE" _
- , "DB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), Destination _
- :=Range("A1"))
- .CommandType = xlCmdTable
- .CommandText = Array("select * from [Sheet1$] where 姓名='何仁德'")
- .Name = "篩選"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .BackgroundQuery = True
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .PreserveColumnInfo = True
- .SourceDataFile = "D:\篩選.xls"
- .Refresh BackgroundQuery:=False
- End With
- End Sub
|
|
發表於 2013-11-7 10:52
| 