小弟想教各位高手有關於抓取多個*.CSV 內的部份數據 - Excel程式區

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

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

2^#

發表於 2013-4-23 22:21 | 顯示全部帖子

回復 10# leoman0002

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

學海無涯_不恥下問

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

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

3^#

發表於 2013-4-24 00:40 | 顯示全部帖子

回復 12# leoman0002

不是很懂對應關係，測試看看差異在哪?

Sub ex()
fd = ThisWorkbook.Path & "\"
fs = Dir(fd & "*.csv")
Do Until fs = ""
With Workbooks.Open(fd & fs)
With .Sheets(1)
lot = Replace(.[B6].Value, "'", "")
lin = Replace(Split(lot, "-")(0), Mid(Split(lot, "-")(0), 3, 5), "")
ps = Split(lot, "-")(1)
drv = .[D4].Value
tm = IIf(.[H12] = "Bef", "[Before]", "[After]")
ts = .[F12].Value
ar1 = Array(lot, lin, ps)
ar2 = Array(drv, tm, ts, ts)
Set ar3 = .[F21:F24]
Dim ar(24)
For i = 27 To 34
For j = 1 To 3
ar(s) = .Cells(i, j * 2).Value
s = s + 1
Next
Next
End With
With ThisWorkbook.Sheets("Test Data")
Set a = .[A65536].End(xlUp).Offset(1, 0)
a.Resize(, 3) = ar1
a.Offset(, 6).Resize(, 4) = ar2
a.Offset(, 10) = ar3(1, 1)
a.Offset(, 17) = ar3(2, 1)
a.Offset(, 18) = ar3(3, 1)
a.Offset(, 19) = ar3(4, 1)
a.Offset(, 20).Resize(, 24) = ar
End With
.Close 0
End With
fs = Dir
Loop
End Sub

複製代碼

學海無涯_不恥下問

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

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

4^#

發表於 2013-4-24 22:06 | 顯示全部帖子

回復 16# leoman0002

最主要是對應欄位的問題，如果要抓取CSV檔案的位置都是相同的
你就要讓別人知道CVS的那些儲存格資料要寫入EXCEL的彙整檔案
欄位是如何對應?上傳的資料就應該要以上傳的內容作對應
你沒發現EXCEL手動填入的資料與你上傳的CVS內容不同嗎?
如果不是直接複製CVS儲存格內容，那就該說明資料的取得規則

學海無涯_不恥下問

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

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

5^#

發表於 2013-4-24 23:40 | 顯示全部帖子

回復 18# leoman0002
非也，有些欄位根本在CSV檔內找不到

學海無涯_不恥下問