返回列表 上一主題 發帖

[發問] 將資料夾內的圖檔依序貼到excel

本帖最後由 kimbal 於 2010-8-1 10:27 編輯

回復 3# jntseng


    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .FilterIndex = 1

    .Filters.Add 放在下拉列表的第1位
     .filterindex  預設顯示第幾位

如
    .Filters.Add "Images", "*.gif ", 1
   .Filters.Add "Images", "*.jpg; *.jpeg ", 2
   .FilterIndex = 2
就會出


值得留意的是排位是後來先上的
如果是
    .Filters.Add "Images", "*.gif ", 1
   .Filters.Add "Images", "*.jpg; *.jpeg ", 1
   .FilterIndex = 2
列表就會變成
*.jpg; * jpeg
*.gif
預設選上 *.gif
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

回傳的時候沒有回傳次序.

另一個方法是每次只選一個檔
.AllowMultiSelect = false   
直到按cancel為止
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題