- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2026-7-16
                
|
回復 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
|
|
發表於 2013-4-24 00:40
| 
發表於 2013-4-23 23:35
| 
