PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-5-11 17:25 | 只看該作者

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

各位先進,請幫忙腦力激盪: 先謝謝了!

我的需求如下,將PI_PO資料夾的每一個檔案資料匯入PI_PO Records檔案中?用巨集程式或用函數能抓取我要的資料?(檔案已附上)
需匯入的欄位為PI/PO sheet中的合計金額及數量
1 將EXCEL表格中有PI/PO的合計金額及數量填入"PI_PO Records"檔案中
2 將EXCEL表格中只有PO的合計金額及數量填入"PI_PO Records"檔案中

VBA TEST 5.zip (107.4 KB)
PI_PO資料夾中檔案特性:
1 PI_PO資料夾中的所有EXCEL檔案中TOTAL欄位中的所有合計資料(包含數量/金額)
2 有些檔案KEY-IN為"TOTAL",有些是"TOTAL:"
3 EXCEL檔"TOTAL"字樣,固定在A欄
4 合計欄位數量及金額的列數則不固定,唯一固定的是數量後會有"PCS"字樣,而金額前會有"幣別"(US/USD/HKD…等)
5 EXCEL檔依客戶區分有所不同,有些檔案有"PI"與"PO" sheet,有些則只有"PO" sheet
6 PI_PO的EXCEL檔格式為 .xls or .xlsx(我只放了3種案例)
7 PI_PO Records的F欄File Name是特別key-in上去的(不知有沒有幫助?),通常只會有A:E欄

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2012-5-12 10:20 | 只看該作者

試試

VBA TEST 5.rar (114.53 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2012-5-14 00:10 | 只看該作者

回復 2# oobird

大人,

謝謝您幫我寫的程式,我隨手用幾個檔案作測試,其中一個檔不知為何抓取的資料會少了PO的數量及金額,你可否幫我看一下?

s 30305PG.zip (27.04 KB)
另外,執行過巨集的所有檔案都會詢問是否存檔(excel2003版本的PI_PO),而且我發現執行巨集過後,它會將所有在PI_PO資料夾中的檔案當成為開啟狀態(雖然我看不到有開啟),我想問以下能否修改程式?
1) 執行巨集過後,讓所有在PI_PO資料夾中的檔案自行關閉且不要詢問我是否存檔(因為以後整年度的excel會有上千個, 詢問會造成極大不便)
2) 在PI_PO Records的Excel檔中,若已執行巨集(已自動動入資料)除非我將資料Delete,否則是否可以不要讓它清除後重填?(因為我慮到整年度的資料有很多筆這樣會不執行得較快?)

以上麻煩您...

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2012-5-14 08:17 | 只看該作者

PI_PO Records.rar (17.62 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2012-5-14 17:57 | 只看該作者

回復 2# oobird
大師:

我測試了現在修改過的程式,有不少資料是抓不到的,但我檢查不出有什麼異常,我壓縮了3個檔案上傳,請幫忙看下!謝謝!

cannot find.zip (43.95 KB)

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2012-5-14 19:49 | 只看該作者

取不到的原因是其他儲存格也有"total"字樣存在，可以換個方式。

VBA TEST 5.rar (185.21 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2012-5-15 13:12 | 只看該作者

回復 6# oobird
大師,
1) 程式經過第2次修正後,還有很多的資料抓取不到,我上傳5個檔案,請您幫忙看看.

cannot find 2.zip (107.74 KB)
2) BCM...檔案因為有各個不同人作業,有的人會用連結,在抓取資料時會出現這樣的對話框

   詢問是否更新,因為有太多的資料是用連結的,能否在寫程式時,設定為不要更新連結?而自動進行抓取?
3)  另一種情形是BCM...檔案有些人會使用自動篩選鍵,且使用篩選鍵後又未取消,因為檔案太多無法一個一個進行檢查,是否可以在不取消篩選鍵而抓取資料?並且一樣在抓取資料後不要存檔就關閉它.
4)  在程式試RUN的過程中,發現即使只有抓取一筆資料,也要費時幾秒鐘,這樣算來若好幾千筆資料,就會有長時間的等待!請問這種情形是正常的嗎?或者能夠在程式上加以改善?
5) 可否麻煩您在程式後面註記每個語法的意思,這樣我比較能了解語法的用意,且若我需要做些小變動時比較方便.
謝謝您!

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

8^#

發表於 2012-5-15 17:40 | 只看該作者

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

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2012-5-15 21:10 | 只看該作者

回復 8# oobird
大師,

個人使用的工作表可以隨心所欲,但別人的資料很難去規定的!
我其他的問題是否能幫得上忙呢?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章