- 帖子
- 9
- 主題
- 2
- 精華
- 0
- 積分
- 16
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-1-25
- 最後登錄
- 2024-6-10
|
4#
發表於 2015-1-6 21:13
| 只看該作者
這是我找到比較符合的程式碼
我改好久都改不出來我要的指定欄位與把檔名去掉
能請大大交我嗎
謝謝- Sub Ex()
- Dim AR(), i As Integer, ii As Integer, fs As String, Rng As Range
- With ActiveSheet
- .Cells = ""
- .Pictures.Delete
- fs = Dir("D:\_Picture\1\*.jpg")
- Do Until fs = ""
- ReDim Preserve AR(0 To i)
- AR(i) = fs '圖片名稱置入陣列
- fs = Dir
- i = i + 1
- Loop
- For i = 0 To UBound(AR) Step 2
- For ii = 0 To 1
- If ii + i <= UBound(AR) Then
- .Cells(Int(i / 2) + 1, 1 + (ii * 2)) = AR(ii + i)
- Set Rng = .Cells(Int(i / 2) + 1, 2 + (ii * 2))
- With .Pictures.Insert("D:\_Picture\1\" & AR(ii + i))
- .Top = Rng.Top
- .Left = Rng.Left
- .Width = Rng.Width
- .Height = Rng.Height
- End With
- End If
- Next
- Next
- End With
- End Sub
|
|
