123
返回列表 上一主題 發帖

[發問] 小弟想教各位高手有關於抓取多個*.CSV 內的部份數據

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
13# 跳轉到 »
發表於 2013-4-24 00:40 | 只看該作者
回復 12# leoman0002

不是很懂對應關係，測試看看差異在哪?
  1. Sub ex()
  2. fd = ThisWorkbook.Path & "\"
  3. fs = Dir(fd & "*.csv")
  4. Do Until fs = ""
  5. With Workbooks.Open(fd & fs)
  6.    With .Sheets(1)
  7.    lot = Replace(.[B6].Value, "'", "")
  8.    lin = Replace(Split(lot, "-")(0), Mid(Split(lot, "-")(0), 3, 5), "")
  9.    ps = Split(lot, "-")(1)
  10.    drv = .[D4].Value
  11.    tm = IIf(.[H12] = "Bef", "[Before]", "[After]")
  12.    ts = .[F12].Value
  13.    ar1 = Array(lot, lin, ps)
  14.    ar2 = Array(drv, tm, ts, ts)
  15.    Set ar3 = .[F21:F24]
  16.    Dim ar(24)
  17.    For i = 27 To 34
  18.       For j = 1 To 3
  19.         ar(s) = .Cells(i, j * 2).Value
  20.         s = s + 1
  21.       Next
  22.     Next
  23.    End With
  24.    With ThisWorkbook.Sheets("Test Data")
  25.    Set a = .[A65536].End(xlUp).Offset(1, 0)
  26.    a.Resize(, 3) = ar1
  27.    a.Offset(, 6).Resize(, 4) = ar2
  28.    a.Offset(, 10) = ar3(1, 1)
  29.    a.Offset(, 17) = ar3(2, 1)
  30.    a.Offset(, 18) = ar3(3, 1)
  31.    a.Offset(, 19) = ar3(4, 1)
  32.    a.Offset(, 20).Resize(, 24) = ar
  33.    End With
  34.    .Close 0
  35. End With
  36. fs = Dir
  37. Loop
  38. End Sub
複製代碼
學海無涯_不恥下問

TOP

leoman0002

帖子
29 
主題
3 
精華
0 
積分
39 
點名
0  
作業系統
WINDOWS XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-10-12 
最後登錄
2020-10-15 
12#
發表於 2013-4-23 23:35 | 只看該作者
抱歉我不太會整理資料 =.= 我不知道怎麼說明才好，我把相關的對應打在EXCEL 報表裡

其實以前有人寫，但是卻是含Access 資料庫方式寫，我們的電腦..只准用"WORD & EXCEL "
最後...我們還是用傳統的"手工"....希望大家能幫幫忙 謝謝

PS:如果拿Access 資料庫版改成不用Access 資料庫的方式會不會更麻煩?

資料匯集.rar (23.42 KB)

好可愛的寶寶

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
11#
發表於 2013-4-23 22:21 | 只看該作者
回復 10# leoman0002

請說明圖片紅框的資料該如何對應?

   
學海無涯_不恥下問

TOP

leoman0002

帖子
29 
主題
3 
精華
0 
積分
39 
點名
0  
作業系統
WINDOWS XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-10-12 
最後登錄
2020-10-15 
10#
發表於 2013-4-23 13:00 | 只看該作者
http://cht.tw/x/wa4z0  下載位置

論壇的操作還不太熟...用高級模式打的超鏈結 =.= 都沒出來
好可愛的寶寶

TOP

leoman0002

帖子
29 
主題
3 
精華
0 
積分
39 
點名
0  
作業系統
WINDOWS XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-10-12 
最後登錄
2020-10-15 
9#
發表於 2013-4-23 12:50 | 只看該作者

RE: 小弟想教各位高手有關於抓取多個*.CSV 內的部份數據

本帖最後由 leoman0002 於 2013-4-23 12:52 編輯

更正一下 >"< 希望各位大大能夠有空幫我看一下  

這是我目前使用的巨集(常常會讓電腦當機)
這是csv 壓縮檔  


用論壇上傳的方式常常出錯，我暫時先用雲端硬碟方的式，造成不便請多包涵
好可愛的寶寶

TOP

leoman0002

帖子
29 
主題
3 
精華
0 
積分
39 
點名
0  
作業系統
WINDOWS XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-10-12 
最後登錄
2020-10-15 
8#
發表於 2013-4-22 16:53 | 只看該作者
回復 7# Hsieh


    我已經手動將值填入"資料匯整.xls" ，我就知道我表達的意思會讓人看不懂 :Q

希望mark15jill 大大 有空幫我看一下 ^^  感激不盡 ^^

資料匯整.rar (4.42 KB)

好可愛的寶寶

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2013-4-22 16:43 | 只看該作者
回復 5# leoman0002

你把123.csv內要讀取部分該如何對應填寫到資料彙整.xls
用人工填入後上傳，才知道你資料要怎麼儲存
學海無涯_不恥下問

TOP

leoman0002

帖子
29 
主題
3 
精華
0 
積分
39 
點名
0  
作業系統
WINDOWS XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-10-12 
最後登錄
2020-10-15 
6#
發表於 2013-4-22 16:28 | 只看該作者
回復 3# mark15jill


    真不好意思，因為真的還不太熟悉操作造成大家的困擾

真的很耽心自己說明的意思大家看不懂 >"<
好可愛的寶寶

TOP

leoman0002

帖子
29 
主題
3 
精華
0 
積分
39 
點名
0  
作業系統
WINDOWS XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-10-12 
最後登錄
2020-10-15 
5#
發表於 2013-4-22 16:23 | 只看該作者
回復 4# GBKEE


    我不太會說明，我貼上一個圖片，黃色標示的是我需要的數據，CSV 檔我在PO文時有附帶上了

CSV檔是固定的格式沒有錯，因為檔名會隨著日期不同而有所改變，所以錄製的巨集沒辦法用(功力不夠)

一次抓取多個CSV並將其值匯入資料匯整xls EXCEL 檔中不知可不可行!!

123.JPG (209.96 KB)

123.JPG

好可愛的寶寶

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-4-22 16:04 | 只看該作者
回復 2# leoman0002
CSV的資料是固定的嗎?
是哪些數據要貼上資料匯整xls.xls何處,要說明啊.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
123
返回列表 上一主題