返回列表 上一主題 發帖

[發問] 如何匯入EXCEL資料?

試試 VBA TEST 5.rar (114.53 KB)

TOP

PI_PO Records.rar (17.62 KB)

TOP

取不到的原因是其他儲存格也有"total"字樣存在,可以換個方式。 VBA TEST 5.rar (185.21 KB)

TOP

加上這一行可避開該對話
Application.DisplayAlerts = False
要提高效率得要下功夫,如檔案名確實填好,不要只填部份再來用程式一個個比對檔案名
資料要規範,尤其作為判斷的常數,不能有些加空格有些不加,有些有冒號有些沒有等等增加查詢困難度。
最好做做欄位都一樣,不要變來變去。

TOP

若資料不能規範,只能隨著資料的變化不斷的改程式,那不是很辛苦?
例如妳後來的幾個檔案,QUANTITY與數量的數字不在同一欄,以QUANTITY判斷欄位,正確的數量就取不到了
同時TOTAL,QUANTITY兩個字符都存在不定數的空白鍵,模糊查找就有出錯的機會
又例如妳一樓說"TOTAL"在A欄,但又有些是在B欄的,同時B欄又有包含"TOTAL"字符的儲存格,查找時就先找到錯誤的位置了。
目前我想改變一下取得"TOTAL"的列號,該列最右是金額,倒數第四欄是數量,這樣可能會準確些
每個檔案開啟與關閉都須要時間,若檔案大開啟更慢,所以延遲個幾秒是很正常的。除非妳能規劃出固定的儲存格放置這兩個數字,這樣可以不開啟直接取值。
檔案最好用全名,否則模糊比對也可能出錯。
附件供參考
VBA TEST 5.rar (306.8 KB)

TOP

這個要釐清一下
a欄與f欄都是妳自己輸入的嗎?就依照妳輸入的順序?

TOP

那這樣還不是要依照a欄的順序在資料夾中循環比對找出檔案全名放在f欄?

TOP

PI_PO Records.rar (34.25 KB)

TOP

請注意這個
If Application.CountA(Rows(a.Row)) = 1 Then    'a:e欄已有寫入資料就跳過
這行限制了只有F欄有數據才執行,A~E不要有任何東西。

TOP

PO工作表表名有問題,重新命名就可以了
也許多了空白格,也許是全型的我沒很注意。 VBA TEST 5-answer 5.rar (122.42 KB)

TOP

        靜思自在 : 有智慧才能分辨善惡邪正;有謙虛才能建立美滿人生。
返回列表 上一主題