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

帖子: 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)

好可愛的寶寶

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

13^#

發表於 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

複製代碼

學海無涯_不恥下問

帖子: 29
主題: 3
精華: 0
積分: 39
點名: 0
作業系統: WINDOWS XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-10-12
最後登錄: 2020-10-15

14^#

發表於 2013-4-24 01:26 | 只看該作者

不知道為什麼抓第二筆就出現"陣列索引超出範圍"

我帶上我手上的csv 您幫我看看是哪裡有問題

其實剛剛我有按巨集..都沒反應..原來是csv要放在同一個資料匣，如果改成像選檔方式

會很困難嗎?

剪輯.jpg (147.86 KB)

剪輯_2.jpg (323.86 KB)

csv.rar (5.14 KB)

數個同類型的csv

好可愛的寶寶

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

15^#

發表於 2013-4-24 11:33 | 只看該作者

看不懂規律性為何....

檔案內素質與提供之xls素質無法對照

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

帖子: 29
主題: 3
精華: 0
積分: 39
點名: 0
作業系統: WINDOWS XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-10-12
最後登錄: 2020-10-15

16^#

發表於 2013-4-24 21:41 | 只看該作者

請問可以解釋您說的意思嗎？我對EXCEL 真的沒有很了解
不過Hsieh 大大幫我轉到資料讓我看見道到署光讓我好感動!!
我手頭上有一個ACCESS版，可是公司卻不能裝access 所以...讓事情變得相當麻煩

好可愛的寶寶

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

17^#

發表於 2013-4-24 22:06 | 只看該作者

回復 16# leoman0002

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

學海無涯_不恥下問

帖子: 29
主題: 3
精華: 0
積分: 39
點名: 0
作業系統: WINDOWS XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-10-12
最後登錄: 2020-10-15

18^#

發表於 2013-4-24 23:25 | 只看該作者

你所說的的值跟手動的不同，是因為Hsieh 大大沒有注意到通用格式，所以儲存格改成通用格式就一樣了，這個我有發現儲存格的問題..我以為你有發現 >"<

好可愛的寶寶

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

19^#

發表於 2013-4-24 23:40 | 只看該作者

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

學海無涯_不恥下問

帖子: 29
主題: 3
精華: 0
積分: 39
點名: 0
作業系統: WINDOWS XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-10-12
最後登錄: 2020-10-15

20^#

發表於 2013-4-25 06:52 | 只看該作者

本帖最後由 leoman0002 於 2013-4-25 06:55 編輯

嗯你說的應該是我第二次說明的那次 N1AD24DC-1 判斷線別 N1C 的那種嗎
的確是非當麻煩，不過Hsieh 大大寫的那些就很夠我用了!!
但是要先解決陣列索引超出範圍 @@

我沒有很懂..僅懂些皮毛，Hsieh 大大寫得我還要花點時間去研究才行!!
學海無涯...突然發現自己好渺小

好可愛的寶寶