註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 將資料夾內的圖檔依序貼到excel
返回列表
下一主題
上一主題
發帖
[發問]
將資料夾內的圖檔依序貼到excel
jntseng
發短消息
加為好友
jntseng
當前離線
UID
1083
帖子
38
主題
12
精華
0
積分
122
金錢
122
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
na
在線時間
49 小時
註冊時間
2010-7-31
最後登錄
2024-5-13
中學生
帖子
38
主題
12
精華
0
積分
122
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
na
註冊時間
2010-7-31
最後登錄
2024-5-13
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2010-7-31 09:22
|
只看該作者
[發問]
將資料夾內的圖檔依序貼到excel
我要將資料夾內的圖檔,全部轉到excel 內,詳細
問題
如圖所示:
下載
(73.04 KB)
2010-7-31 09:22
樓主熱帖
VLOOKUP如何比對兩個以上條件?
goalseek 解方程式方法
vlookup ans INDIRECT
樞紐分析疑問
使用程式將記事本內容整理資料
請教各位前輩關於VB 一些問題
choose and union 疑問
自訂巨集的按鈕是否可以快速從A電腦轉換至B
如何將資料做整理
請問如何將多個記事本資料合併和一個檔案呢
收藏
分享
basarasy
發短消息
加為好友
basarasy
當前離線
UID
462
帖子
287
主題
65
精華
0
積分
357
金錢
357
點名
0
作業系統
xp
軟體版本
OFFIC 2007
閱讀權限
20
在線時間
171 小時
註冊時間
2010-6-4
最後登錄
2015-8-19
中學生
帖子
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
發短消息
加為好友
jntseng
當前離線
UID
1083
帖子
38
主題
12
精華
0
積分
122
金錢
122
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
na
在線時間
49 小時
註冊時間
2010-7-31
最後登錄
2024-5-13
中學生
帖子
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
發短消息
加為好友
kimbal
當前離線
UID
803
帖子
472
主題
5
精華
0
積分
485
金錢
485
點名
0
作業系統
Windows
軟體版本
MS Office
閱讀權限
100
性別
男
來自
香港
在線時間
162 小時
註冊時間
2010-7-4
最後登錄
2014-12-28
版主
帖子
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
就會出
下載
(47.97 KB)
2010-8-1 10:24
值得留意的是排位是後來先上的
如果是
.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
發短消息
加為好友
jntseng
當前離線
UID
1083
帖子
38
主題
12
精華
0
積分
122
金錢
122
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
na
在線時間
49 小時
註冊時間
2010-7-31
最後登錄
2024-5-13
中學生
帖子
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
發短消息
加為好友
jntseng
當前離線
UID
1083
帖子
38
主題
12
精華
0
積分
122
金錢
122
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
na
在線時間
49 小時
註冊時間
2010-7-31
最後登錄
2024-5-13
中學生
帖子
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
發短消息
加為好友
kimbal
當前離線
UID
803
帖子
472
主題
5
精華
0
積分
485
金錢
485
點名
0
作業系統
Windows
軟體版本
MS Office
閱讀權限
100
性別
男
來自
香港
在線時間
162 小時
註冊時間
2010-7-4
最後登錄
2014-12-28
版主
帖子
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
發短消息
加為好友
jntseng
當前離線
UID
1083
帖子
38
主題
12
精華
0
積分
122
金錢
122
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
na
在線時間
49 小時
註冊時間
2010-7-31
最後登錄
2024-5-13
中學生
帖子
38
主題
12
精華
0
積分
122
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
na
註冊時間
2010-7-31
最後登錄
2024-5-13
8
#
發表於 2010-8-25 22:11
|
只看該作者
回復
7#
kimbal
謝謝指導
TOP
靜思自在 :
君子立恆志,小人恆立志。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲