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

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

樓主熱帖

basarasy

中學生 Rank: 2

帖子: 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大大教的.

Sub Ex()
Dim Ps, Pc, A
With Application.FileDialog(msoFileDialogOpen)
.Title = "尋找圖片檔"
.AllowMultiSelect = True '多重選取檔案
.ButtonName = "開啟圖片檔"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
.FilterIndex = 1
If .Show = False Then
MsgBox "沒有選擇圖片檔 ???": Exit Sub
Else
Set Ps = .SelectedItems
End If
End With
With ActiveSheet
Set A = .[A1]
.Pictures.Delete
.[A:A].Clear
End With
For Each Pc In Ps
With ActiveSheet.Pictures.Insert(Pc)
.Height = 120
.Width = 120
.Left = A.Left
.Top = A.Top
End With
Set A = A.Offset(1)
Next
End Sub

複製代碼

50 字節以內
不支持自定義 Discuz! 代碼

TOP

jntseng

中學生 Rank: 2

帖子: 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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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