VBA 抓取ListBox中的內容

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

43^# 跳轉到 »

發表於 2021-7-7 07:56 | 只看該作者

回復 42# samwang
因為機1，機2是我抓出來當範例用，之後如果完成還會加入更多
那如果資料夾的路徑是固定的，檔案也都固定放在資料夾裏的話呢?

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

42^#

發表於 2021-7-6 20:14 | 只看該作者

本帖最後由 samwang 於 2021-7-6 20:20 編輯

回復 41# wang077

還是有問題，因為無法得知機1機2的路徑，所以無法開啟檔案，除非是固定路徑或與程式檔案放同一個路徑，
另外您10樓說有好多個機台，那為什麼現在只有預設機1機2?是另外需求嗎?

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

41^#

發表於 2021-7-6 19:24 | 只看該作者

回復 40# samwang
那如果直接把機1、機2那個資料夾當預設的資料夾呢？

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

40^#

發表於 2021-7-6 17:39 | 只看該作者

回復 39# wang077

如果開啟表單後要直接把機1，機2叫出來在ListBox上呢，等於不要有選擇資料夾這步驟
>> 因為要選取資料夾才能得知有哪些檔案，不然無法知道有那些檔名，如機1，機2、機3...等等

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

39^#

發表於 2021-7-6 17:08 | 只看該作者

回復 36# samwang
大大，抱歉，我又有麻煩了
如果開啟表單後要直接把機1，機2叫出來在ListBox上呢，等於不要有選擇資料夾這步驟

s3526369

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-3-9

38^#

發表於 2021-7-6 17:01 | 只看該作者

你是想像這樣單獨選取你要的內容嗎?

With ListBox1
.ListStyle = 1 '序前方框框
End With

複製代碼

前方加入小框框就可以單獨選取

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

37^#

發表於 2021-7-6 09:13 | 只看該作者

回復 36# samwang
測試過了，沒問題
非常感謝大大，一直麻煩你，辛苦了

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

36^#

發表於 2021-7-6 08:41 | 只看該作者

回復 35# wang077

已寄給您了，謝謝

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

35^#

發表於 2021-7-6 08:20 | 只看該作者

回復 34# samwang
大大，再麻煩你寄到我的mail了

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

34^#

發表於 2021-7-6 07:47 | 只看該作者

本帖最後由 samwang 於 2021-7-6 07:49 編輯

回復 31# wang077 [/

將需要複製的檔案放在某個資料夾
開啟表單後選取那個資料夾
會自動顯示出那個資料裡的檔案名稱
選取檔名然後複製
請測試看看
謝謝

彙整_0706.zip (67.92 KB)