返回列表 上一主題 發帖

[發問] 如何篩選圖片,並插入指定的欄位

[發問] 如何篩選圖片,並插入指定的欄位

本帖最後由 jackyliu 於 2011-2-15 01:40 編輯

請教 高手們:
要如何將C:\TEST\地下的圖片 經過篩選 插入所定義的欄位內,
可否幫忙一下,因權限關係,可否貼程式碼.... 如附件 ! 萬分感激 !

已知條件
1. 圖片插入範圍H、I、J、K、L、M
2. 圖片儲存位置於C:\TEST\*.JPG(副檔名)
3. 圖片命名規則1-T、1-T-O
4. 圖片插入規則1為插入第一列、T為插入第一列的(T)第三碼為0、1、2、3, 若有第三碼則依序插入至K、L、M 欄位
5. 圖片大小 高度2.7cm、寬度3.6cm
6. 資料比數不設限10筆,所以 匯差入的圖片可能會到達第200列的某欄位

test01.rar (51.4 KB)

1. 可以幫我解釋一下嗎? 不太了解耶
2. 可圖片有52-T-1.jpg 和53.jpg 都無法插入第52和53列裡耶
感恩 !

TOP

本帖最後由 jackyliu 於 2011-2-15 23:42 編輯

因圖片資料一直往下延伸關係,會有很多的ID 敘述, 所以會有很多列
52-T-1要在編號52的哪一欄?---> 欄位名稱NO  的第52筆圖片也就是第52行列的L欄位
53.jpg 要在編號53的哪一欄?---> 欄位名稱NO  的第53筆圖片也就是第5行列的H欄位


插入圖片做說明
H欄插入的定義=圖片名稱為整數,列如;52, 53, 54
I欄插入的定義=圖片名稱為 *-C     ,列如;52-C , 53-C, 54-C
J欄插入的定義=圖片名稱為 *-T     ,列如;52-T , 53-T, 54-T
K欄插入的定義=圖片名稱為 *-*-1 ,列如;52-C-1 , 53-T-1, 54-T-1
L欄插入的定義=圖片名稱為 *-T     ,列如;52-C-2 , 53-T-2, 54-T-2
M欄插入的定義=圖片名稱為 *-T    ,列如;52-C-3 , 53-T-3, 54-T-3

TOP

回復 6# Hsieh


如附件說明!
感謝您

1.jpg (49.42 KB)

1.jpg

TOP

板大  好強....
感謝您的幫忙

另外一問 圖片大小好像沒看到有設定,可圖片又可符合需求  圖片大小 高度2.7cm、寬度3.6cm
程式裡只有這樣寫 (  Height = A.Height), 什麼原因可以讓圖片 符合需求  圖片大小

TOP

感謝您的 熱心協助, 感激 ~

TOP

1. 版大 可以幫我解釋這兩行嗎?
2. 另外 可以幫我加上排序插入K欄以後的欄位嗎? (ex : 1-C-0, 1-C-1, 1-T-1, 1-T-2)

If InStr(fs, "-") = 0 Then '只有數值
   d(fs) = "H" & Val(fs) + 2 '因為在第列所以加2

TOP

本帖最後由 jackyliu 於 2011-2-19 06:37 編輯

[attach]4793[/attach]事由: 因檔檔名有 1-C-0, 1-C-1, 1-T-1 , 1-T-2 .....   ;需分別插入至K欄~R欄

我想說改成 第3碼編碼成0~7 ,分別插入至K欄~R欄, 所以往底下這一行動手,一直無法執行,不知道為什麼不行?
改法 -->IIf(Split(fs, "-")(8) = 0, "K",IIf(Split(fs, "-")(8) = 1, "L",IIf(Split(fs, "-")(8) = 2, "M",IIf(Split(fs, "-")(8) = 3, "N", "O"))
上面是哪出錯了,可否幫忙一下 ! 謝謝 !


原程式Code:
k = IIf(Split(fs, "-")(2) = 1, "K", IIf(Split(fs, "-")(2) = 2, "L", "M"))-->第3碼是1就在K欄,2就在L欄,其餘在M欄

圖片說明如附圖

1.jpg (17.62 KB)

1.jpg

1.jpg (18.42 KB)

結果表示圖

1.jpg

TOP

本帖最後由 jackyliu 於 2011-2-19 22:13 編輯

版大 目前測試 11張圖片 ,應該會分別差入 11個 儲存格 (H 欄~R欄)
結果 發現 有些圖片 重疊情行,不知哪裡出錯了?
請您 幫忙測試一下, 感謝~

如附件!

pic.rar (728.4 KB)

TOP

耶 ... 感覺對了耶~
板大  感恩

不知道 可插入到200.jpg 或是200-C-0.jpg 程式code 哪裡 可以看出來? 有限制嗎?
若是要開啟execl 就直接啟動巨集 (開啟execl 圖片就自動插入,要加什麼指令;還需要將程式放在模組裡嗎?)

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題