[繁]香格里拉・開拓異	[繁]平凡職業造就世界	[繁]孤單一人的異世界
[簡]重啟人生的千金小	[繁]孤單一人的異世界	[繁]精靈幻想記第二

查看: 4078|回復: 2

[求助]VBA 收尋萬用字元問題[複製鏈接]

box299

初級幼兒生(0/30)

帖子: 142
積分: 0 點
潛水值: 3160 米

電梯直達

樓主

發表於 2018-7-11 12:51 PM|只看該作者|正序瀏覽

回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

本帖最後由 darkjack 於 2018-7-13 06:39 AM 編輯

各位大神小弟一事請教!!

我有一個Excel VBA可以重指定資料夾抓取圖檔並匯入

但是該檔案只能抓取檔案全名(例如:1234.JPG)

不能以萬用字元抓取檔名(例如:*34.jpg)

可否請各位大神們賜教!!

-------------------------------------------------------------------------------------------------
...

瀏覽完整內容，請先註冊或登入會員

附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊

分享0收藏0支持0

回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

使用道具檢舉

Waroger

初級幼兒生(0/30)

帖子: 73
積分: 22 點
潛水值: 8184 米

3樓

發表於 2018-7-12 06:08 PM|只看該作者

伊莉影片

Private Sub CommandButton1_Click()
p = Dir("D:\*34.jpg", vbNormal)
Do While p <> ""
If p <> "." And p <> ".." Then
Debug.Print p
End If
p = Dir
Loop
End Sub

複製代碼

...

瀏覽完整內容，請先註冊或登入會員

若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

使用道具檢舉

tryit244178

尊貴會員

Rank: 6 Rank: 6 Rank: 6 Rank: 6 Rank: 6 Rank: 6

帖子: 155
積分: 1282 點
潛水值: 47975 米

頭香

發表於 2018-7-11 04:50 PM|只看該作者

若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

本帖最後由 tryit244178 於 2018-7-11 06:38 PM 編輯

改用FileSystemObject
參考這篇
https://tw.answers.yahoo.com/question/index?qid=20090504000010KK10224

若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。

使用道具檢舉

返回列表

Archiver|手機版|廣告|聯絡我們|廣告查詢|廠商合作|伊莉

GMT+8, 2024-11-20 11:17 PM

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。

		自動登錄	找回密碼或安全提問
密碼			註冊