- 帖子
- 55
- 主題
- 20
- 精華
- 0
- 積分
- 80
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- officexp
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-5
- 最後登錄
- 2013-8-25
|
本帖最後由 metrostar 於 2013-8-11 20:53 編輯
Sub test()
Dim fs$, ar, fn$, br(1 To 10000, 1 To 7), t
Dim c, i&, j&, r&, ph$
c = Array(0, 0, 1, 2, 3, 4, 5, 7)
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "*.txt"
.Show
If .SelectedItems.Count > 0 Then
fs = .SelectedItems(1)
Else
MsgBox "沒有選取檔案 !!!"
Exit Sub
End If
End With
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = " +(?!$)"
While Len(fn) > 0
Open ph & fn For Input As #1
ar = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Reset
For i = 4 To UBound(ar) - 1
r = r + 1
ar(i) = .Replace(ar(i), "|")
t = Split(ar(i), "|")
For j = 1 To UBound(c)
br(r, j) = t(c(j))
Next
br(r, 2) = Mid(fn, 6, 8)
Next
fn = Dir
Wend
End With
With Sheet1
.Range("2:" & Rows.Count).ClearContents
.Range("a:a").NumberFormatLocal = "@"
.[a2].Resize(r, UBound(br, 2)) = br
End With
End Sub
這些程式碼是位EXCELHOME 帥哥學長幫忙的,但是學妹這裡不能使用
會出現這行錯誤 .[a2].Resize(r, UBound(br, 2)) = br
請 帥哥/美女版主 帥哥/美女學長跟學姐
幫忙學妹修改一下下 ? 謝謝啦 |
|
發表於 2013-8-3 23:34
| 
