返回列表 上一主題 發帖

[發問] 求助.如何在一個300多筆的圖檔案夾內找2張圖>"<

naknay

帖子
14 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
windows 
軟體版本
10 
閱讀權限
20 
註冊時間
2019-6-23 
最後登錄
2026-9-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-8-2 02:28 | 顯示全部帖子

[發問] 求助.如何在一個300多筆的圖檔案夾內找2張圖>"<

小弟最近在學習使用VBA  新手一個請包包含~"~
想用在工作上   
公司報表效用到很多圖  圖片 編碼1-1 , 1-2 ,1-3  ,  2-1 , 2-2  ,2-3  (以此類推300多筆
而且要求用到就要刪掉


想寫個搜索 然後插入圖片 砍掉圖檔
爬文多日也找不到什麼好方法QQ

我也不是想伸手要程式是真的很想學習.
所以跟小弟指點一下大概就好

勞煩各位先進們指點一下.感激:dizzy:
收藏 分享

naknay

帖子
14 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
windows 
軟體版本
10 
閱讀權限
20 
註冊時間
2019-6-23 
最後登錄
2026-9-3 
2#
發表於 2019-8-2 02:38 | 顯示全部帖子
忘了說 1-1 ,1-2 ,1-3  圖檔為一個文件要用
然後裡面常常有間斷的

PS.剛剛忘記打.絕對不適要灌水.大家請原諒我~"~下班還要忙這個只求寫好後部會這麼累了QQ

TOP

naknay

帖子
14 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
windows 
軟體版本
10 
閱讀權限
20 
註冊時間
2019-6-23 
最後登錄
2026-9-3 
3#
發表於 2019-8-3 01:25 | 顯示全部帖子
本帖最後由 naknay 於 2019-8-3 01:28 編輯

回復 1# naknay

點我下載
    檔案有點大~勞煩各位先進幫我看一下><||
第一次問問題還問得不好請見諒><

感謝有勞先進了

TOP

naknay

帖子
14 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
windows 
軟體版本
10 
閱讀權限
20 
註冊時間
2019-6-23 
最後登錄
2026-9-3 
4#
發表於 2019-8-3 01:38 | 顯示全部帖子
本帖最後由 naknay 於 2019-8-3 01:40 編輯
回復  naknay


   可以參考我發在這論壇的這一帖：
jeffrey628litw 發表於 2019-8-2 12:10


感謝前輩提供檔案~小弟再研究看看~先說聲感激~但是功能並不是我需求的不過真的很強大讚嘆中

TOP

naknay

帖子
14 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
windows 
軟體版本
10 
閱讀權限
20 
註冊時間
2019-6-23 
最後登錄
2026-9-3 
5#
發表於 2019-8-3 14:40 | 顯示全部帖子
回復 7# 准提部林


非常感謝准提部林前輩幫我修改程式一看簡潔有力~小弟會在學習上傳這部分.
額外請教 編號這邊其實有1-300多筆 是否能做到不填編號去抓.
因為公司要求用過的圖檔不能再使用.

目前想法 N$(300) 這陣列裡面有值的抓出一個值來製作.

   或者用循環的判斷方式 (1不在抓2 ,2不在抓3  循環下去 )300多筆程式因該不會跑很久.

  所以請教
    N(i) = N(0) & -i & ".jpg"
    If Dir(P & "\" & N(i)) = "" Then MsgBox "找不到〔" & N(i) & "〕圖片檔案!  ": Exit Sub

所以再次請益 前輩們這段如何修改.感激不盡

TOP

naknay

帖子
14 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
windows 
軟體版本
10 
閱讀權限
20 
註冊時間
2019-6-23 
最後登錄
2026-9-3 
6#
發表於 2019-8-3 15:49 | 顯示全部帖子
回復 9# 准提部林
感謝大大回復


目標檔案夾內的編號1-300的照片並不會一直存在

而文件只要隨意使用一組照片即可.而使用過的照片必須刪除.編號既不存在

抱歉表達的不適很好.深感抱歉

TOP

naknay

帖子
14 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
windows 
軟體版本
10 
閱讀權限
20 
註冊時間
2019-6-23 
最後登錄
2026-9-3 
7#
發表於 2019-8-3 20:22 | 顯示全部帖子
非常感謝 准提部林 前輩的指點
程式碼非常精闢簡短快速
讓小弟讚嘆不已.小弟會好好研究的千言萬語訴不盡此刻感謝之心意.受小弟一拜

     最後非常感謝前輩們的幫助.日後必定精益求精努力學習.

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題