返回列表 上一主題 發帖

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

jntseng

帖子
38 
主題
12 
精華
0 
積分
122 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
na 
註冊時間
2010-7-31 
最後登錄
2024-5-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-31 09:22 | 只看該作者

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

我要將資料夾內的圖檔,全部轉到excel 內,詳細問題如圖所示:
收藏 分享

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
2#
發表於 2010-7-31 10:38 | 只看該作者
本帖最後由 basarasy 於 2010-7-31 10:42 編輯

回復 1# jntseng

這個是GBKEE大大教的.
  1. Sub Ex()
  2.     Dim Ps, Pc, A
  3.     With Application.FileDialog(msoFileDialogOpen)
  4.         .Title = "尋找圖片檔"
  5.         .AllowMultiSelect = True   '多重選取檔案
  6.         .ButtonName = "開啟圖片檔"
  7.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
  8.         .FilterIndex = 1
  9.         If .Show = False Then
  10.             MsgBox "沒有選擇圖片檔 ???": Exit Sub
  11.         Else
  12.            Set Ps = .SelectedItems
  13.         End If
  14.     End With
  15.     With ActiveSheet
  16.         Set A = .[A1]
  17.         .Pictures.Delete
  18.         .[A:A].Clear
  19.     End With
  20.     For Each Pc In Ps
  21.         With ActiveSheet.Pictures.Insert(Pc)
  22.            
  23.             .Height = 120
  24.             .Width = 120
  25.             .Left = A.Left
  26.             .Top = A.Top
  27.         End With
  28.         Set A = A.Offset(1)
  29.     Next
  30. End Sub
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

jntseng

帖子
38 
主題
12 
精華
0 
積分
122 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
na 
註冊時間
2010-7-31 
最後登錄
2024-5-13 
3#
發表於 2010-8-1 08:42 | 只看該作者
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .FilterIndex = 1
以上紅色粗體字所代表的意義是什麼呢?

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
4#
發表於 2010-8-1 10:25 | 只看該作者
本帖最後由 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

jntseng

帖子
38 
主題
12 
精華
0 
積分
122 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
na 
註冊時間
2010-7-31 
最後登錄
2024-5-13 
5#
發表於 2010-8-1 20:29 | 只看該作者
回復 4# kimbal
謝謝指導,已瞭解所說的內容

TOP

jntseng

帖子
38 
主題
12 
精華
0 
積分
122 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
na 
註冊時間
2010-7-31 
最後登錄
2024-5-13 
6#
發表於 2010-8-23 23:42 | 只看該作者
回復 4# kimbal
請問我選擇的圖片,有沒有辦法可以照選的順序將圖片依順序貼到excel 上呢?

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
7#
發表於 2010-8-24 00:12 | 只看該作者
回傳的時候沒有回傳次序.

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

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

TOP

jntseng

帖子
38 
主題
12 
精華
0 
積分
122 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
na 
註冊時間
2010-7-31 
最後登錄
2024-5-13 
8#
發表於 2010-8-25 22:11 | 只看該作者
回復 7# kimbal
謝謝指導

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題