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

伊莉討論區

搜索
發表文章前請先閱讀相關版規認識好友、聊天,分享生活趣事搞笑、娛樂、精彩的影片讓你看
megajulia無碼 meg中字mgadobe
民工女友metallic未だ蕾のmpsm黑帝斯海灘上的vr

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]肌肉魔法使-MASHL

✡ 斗破蒼穹 年番/鬥

[繁]香格里拉・開拓異

老媽沒收兒子的手機

[繁]我獨自升級08-

中國爛尾樓現狀的小短
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 3755|回復: 2

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

帖子
142
積分
0 點
潛水值
3160 米
發表於 2018-7-11 12:51 PM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
本帖最後由 darkjack 於 2018-7-13 06:39 AM 編輯

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

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

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

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

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

-------------------------------------------------------------------------------------------------
...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

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

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2018-7-11 04:50 PM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
本帖最後由 tryit244178 於 2018-7-11 06:38 PM 編輯

改用FileSystemObject
參考這篇
https://tw.answers.yahoo.com/question/index?qid=20090504000010KK10224
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

帖子
73
積分
22 點
潛水值
8164 米
發表於 2018-7-12 06:08 PM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
  1. Private Sub CommandButton1_Click()
  2.     p = Dir("D:\*34.jpg", vbNormal)
  3.     Do While p <> ""
  4.        If p <> "." And p <> ".." Then
  5.           Debug.Print p
  6.        End If
  7.        p = Dir
  8.     Loop
  9. End Sub
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

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