Board logo

標題: [發問] 將資料夾內的圖檔依序貼到excel [打印本頁]
作者: jntseng    時間: 2010-7-31 09:22     標題: 將資料夾內的圖檔依序貼到excel

我要將資料夾內的圖檔,全部轉到excel 內,詳細問題如圖所示:
[attach]2119[/attach]
作者: basarasy    時間: 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
複製代碼
作者: jntseng    時間: 2010-8-1 08:42

.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .FilterIndex = 1
以上紅色粗體字所代表的意義是什麼呢?
作者: kimbal    時間: 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
就會出
[attach]2136[/attach]

值得留意的是排位是後來先上的
如果是
    .Filters.Add "Images", "*.gif ", 1
   .Filters.Add "Images", "*.jpg; *.jpeg ", 1
   .FilterIndex = 2
列表就會變成
*.jpg; * jpeg
*.gif
預設選上 *.gif
作者: jntseng    時間: 2010-8-1 20:29

回復 4# kimbal
謝謝指導,已瞭解所說的內容
作者: jntseng    時間: 2010-8-23 23:42

回復 4# kimbal
請問我選擇的圖片,有沒有辦法可以照選的順序將圖片依順序貼到excel 上呢?
作者: kimbal    時間: 2010-8-24 00:12

回傳的時候沒有回傳次序.

另一個方法是每次只選一個檔
.AllowMultiSelect = false   
直到按cancel為止
作者: jntseng    時間: 2010-8-25 22:11

回復 7# kimbal
謝謝指導



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)