- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office2003
- 閱讀權限
- 10
- 註冊時間
- 2011-9-28
- 最後登錄
- 2012-2-24
|
本帖最後由 oxrain 於 2011-9-28 15:06 編輯
請問 各位大大 要如何插入 資料夾中 含子資料夾 的圖片呢
因為將東西以資料夾 做分類存放
根目錄在D碟，主資料夾在 D:\PIC 及 D:\PIC01
而 D:\PIC 中有 001~070 不等約莫 50來個資料夾
而 D:\PIC01 中也有 010~070 約40來個
加上 D:\PIC 及 D:\PIC01 下，也有不在子資料夾的jpg檔
請教各位前輩 要如何加入呢？想說一個一個列，但會弄個好幾天，而且好笨...>.<
附上我的程式檔，麻煩各位賜教，我的頭快要爆了- Sub 插入圖片()
- Dim modelno, modelno1, picins As String
- Dim modelno2%
- modelno = InputBox("A1請輸入A1、C6請輸入C6，以此類推", "輸入商品型號起始欄位", "")
- picins = InputBox("插入A欄請輸入A、插入C欄請輸入C，以此類推", "輸入商品圖片插入欄位", "")
- If modelno = "" Or picins = "" Then
- MsgBox("末確實輸入")
- Else
- modelno1 = Left(modelno, 1)
- modelno2 = Mid(modelno, 2, 3)
- Columns("" & picins & ":" & picins & "").Select
- Selection.ColumnWidth = 20
- Rows("" & modelno2 & ":9999").Select
- Selection.RowHeight = 50
- Dim a%
- Dim name As String
- For a = modelno2 To 9999
- name = Range("" & modelno1 & "" & a & "")
- If name <> "" Then
- Range("" & picins & "" & a & "").Select
- If Dir("D:\PICTURE\001\" & name & ".jpg") <> "" Then
- ActiveSheet.Pictures.Insert(P).Select
- Selection.ShapeRange.LockAspectRatio = msoTrue
- Selection.ShapeRange.Height = 49.5
- Selection.ShapeRange.IncrementLeft 0.75
- Else
- Range("" & picins & "" & a & "") = "無圖片"
- End If
- End If
- Next
- End If
- End Sub
|
|
發表於 2011-9-28 15:01
| 
