麻辣家族討論版版 » Excel程式區 » 請問如何在"文字方塊"輸入條件後再去搜尋資料

返回列表下一主題上一主題發帖

[發問] 請問如何在"文字方塊"輸入條件後再去搜尋資料

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-9-30 01:21 | 只看該作者

[發問] 請問如何在"文字方塊"輸入條件後再去搜尋資料

請問要如何寫才能達到我要的效果?

1. 我想要在以下路徑搜尋我要的資料　\\D1502111\暫存區\
　但資料夾有幾千個，故我用了【文字方塊1】與【文字方塊2】【文字方塊3】讓使用者可以自行輸入條件

2.希望可以達到指定路徑：\\D1502111\暫存區\資料夾一(文字方塊內容1)\資料夾二(文字方塊內容2)\

3.按執行後，可以依【搜尋的關鍵字(文字方塊內容3)】去搜尋，
　D槽底下自動建立一個資料夾依【搜尋的關鍵字(文字方塊內容3)】為命名方式，
　並將搜尋到的，全部檔案複製到D槽底下自動創建的資料夾。

麻煩各位高手幫幫我了，謝謝～

各式工作流程.rar (12.58 KB)

樓主熱帖

收藏

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

17^#

發表於 2014-10-6 01:15 | 只看該作者

回復 16# GBKEE

Dear GBKEE 版主大大：
　　　可以了謝謝您細心講解，終於按照您的說明完成了，謝謝您～

我很笨,所以我很用心
　我學藝不精,但我渴求知識

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

16^#

發表於 2014-10-4 05:24 | 只看該作者

回復 15# 蝕光迴狼

Option Explicit
Sub Ex()
Dim gb As String
gb = "D:\關鍵字" '存檔位置
Shell "explorer " & gb, vbMaximizedFocus
'"explorer "空一格 + (連接上)要開啟的資料夾或檔案
'參數:vbMaximizedFocus,請參考 Shell 函數的說明
End Sub

複製代碼

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

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

15^#

發表於 2014-10-3 21:56 | 只看該作者

回復 14# GBKEE

Dear GBKEE 版主：

　不知道是不是我的問題．2種都不是我要的效果，

　我要的是程式執行全部跑完後，會跳出 gb = "D:\" & ML3 & "\" '存檔位置

　這一行的資料夾，但一直想不出來怎麼寫？

　勞煩大大您了，謝謝您～

123.JPG (53.87 KB)

我很笨,所以我很用心
　我學藝不精,但我渴求知識

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

14^#

發表於 2014-10-3 16:20 | 只看該作者

本帖最後由 GBKEE 於 2014-10-3 19:33 編輯

回復 13# 蝕光迴狼
是這樣嗎?

'//**********************************//
ChDir gb '改變目前的目錄或檔案夾
With Application.FileDialog(msoFileDialogFilePicker)
.Show
End With
'//**********************************//

複製代碼

還是如此

'//**********************************//
Dim e As Variant
ChDir gb '改變目前的目錄或檔案夾
With Application.FileDialog(msoFileDialogFilePicker)
If .Show = True Then
For Each e In .SelectedItems
Workbooks.Open e
Next
End If
End With
'//**********************************//

複製代碼

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

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2014-10-3 14:47 | 只看該作者

回復 12# GBKEE

Dear GBKEE 版主大大：

　打算在以下程式執行完後，自動帶出自創資料夾

　

Option Explicit
'模組上端的 Dim (宣告變數為這模組的私用變數),僅這模組的程序可使用
Dim gb As String, fsd As Object, ML3 As String
Private Sub CommandButton1_Click()
Dim fd As String, dm As String, ML1 As String, ML2 As String
'程序中的 Dim (宣告變數為這程序的私用變數,僅這程序中可使用)
dm = "D:\測試用\" '搜尋主路徑
ML1 = Range("E3") '搜尋檔案資料夾目錄一
ML2 = Range("E5") '搜尋檔案資料夾目錄二
ML3 = Range("E7") '搜尋檔案關鍵字
gb = "D:\" & ML3 & "\" '存檔位置
Set fsd = CreateObject("Scripting.FileSystemObject")
fd = dm & ML1 & "\" & ML2 & "\" '檔案資料夾位置
If fsd.folderexists(gb) = False Then fsd.createfolder gb '自創資料夾不存在則建立
副程式 fd
End Sub
Private Sub 副程式(資料夾 As String)
Dim F As Object
Debug.Print 資料夾 '可看一下子資料夾名稱
If Dir(資料夾 & "\*" & ML3 & "*") <> "" Then '測試關鍵字檔名是否存在
fsd.copyfile 資料夾 & "\*" & ML3 & "*", gb
End If
'*** 如資料夾下有子資料夾再呼叫這副.程式 ***
'呼叫程式的迴圈
For Each F In fsd.GetFolder(資料夾).SUBFolderS
副程式 F & ""
Next
End Sub

複製代碼

樣本.rar (11.8 KB)

我很笨,所以我很用心
　我學藝不精,但我渴求知識

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

12^#

發表於 2014-10-3 05:55 | 只看該作者

回復 11# 蝕光迴狼

但不知道怎麼運用

你要做何事?

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

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

11^#

發表於 2014-10-3 01:10 | 只看該作者

回復 9# GBKEE

Dear GBKEE 版主大大：

　再請問一件事情：最後怎麼自動開啓這個資料夾?

gb = "D:\" & ML3 & "\" '存檔位置

複製代碼

　爬文後，只知道下面這行程式：
Shell "explorer D:\測試用\" '單純打開資料夾
Workbooks.Open ("D:\測試用\搜尋關鍵字.xls") '單純打開檔案

　但不知道怎麼運用

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2014-10-2 21:37 | 只看該作者

回復 9# GBKEE

Dear GBKEE 版主大大：

　謝謝您費心幫忙，多虧 GBKEE 你與 Hsieh 大大，鼎力相助，再次謝謝您們了～

4.gif (3.65 KB)

我很笨,所以我很用心
　我學藝不精,但我渴求知識

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

9^#

發表於 2014-10-2 20:31 | 只看該作者

回復 8# 蝕光迴狼

3. 有個地方不明白，執行後並不會依關鍵字去複製檔案，反而複製資料夾底下全部的檔案。

10.fs = Dir(fd & "*" & ML3 & "*") '測試關鍵字檔名是否存在
11. If fs <> "" Then '這裡判斷有關鍵字檔名的檔案
'*** 不會複製資料夾底下全部的檔案 ****

複製代碼

ML3 = Range("E7") '搜尋檔案關鍵字
會是Range("E7")中沒有字串,???造成的嗎?

Option Explicit
'模組上端的 Dim (宣告變數為這模組的私用變數),僅這模組的程序可使用
Dim gb As String, fsd As Object, ML3 As String
Private Sub CommandButton1_Click()
'程序中的 Dim (宣告變數為這程序的私用變數,僅這程序中可使用)
Dim fd As String, dm As String, ML1 As String, ML2 As String
dm = "D:\測試用\" '搜尋主路徑
ML1 = Range("E3") '搜尋檔案資料夾目錄一
ML2 = Range("E5") '搜尋檔案資料夾目錄二
ML3 = Range("E7") '搜尋檔案關鍵字
gb = "D:\" & ML3 & "\" '存檔位置
Set fsd = CreateObject("Scripting.FileSystemObject")
fd = dm & ML1 & "\" & ML2 & "\" '檔案資料夾位置
If fsd.folderexists(gb) = False Then fsd.createfolder gb '自創資料夾不存在則建立
副程式 fd
End Sub
Private Sub 副程式(資料夾 As String)
Dim F As Object
Debug.Print 資料夾 '可看一下子資料夾名稱
If Dir(資料夾 & "\*" & ML3 & "*") <> "" Then '測試關鍵字檔名是否存在
fsd.copyfile 資料夾 & "\*" & ML3 & "*", gb
End If
'*** 如資料夾下有子資料夾再呼叫這副.程式 ***
'呼叫程式的迴圈
For Each F In fsd.GetFolder(資料夾).SUBFolderS
副程式 F & ""
Next
End Sub

複製代碼

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

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。

返回列表下一主題上一主題