- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-10-18
|
16#
發表於 2015-11-17 21:47
| 只看該作者
回復 15# Jason80Lo
Sub TEST()
Dim xPath$, xF$, xS As Worksheet, xEnd As Range, xR As Range, TT, T, N$, C%
xPath = ThisWorkbook.Path & "\" '"C:\Users\j\Desktop\VBA TXT 依照段落開啟需求\"
Set xS = ThisWorkbook.Sheets("工作表1")
Do
If xF = "" Then xF = Dir(xPath & "\*.txt") Else xF = Dir
If xF = "" Then Exit Do
If Not xS.[A:A].Find(xF, LookAT:=xlWhole) Is Nothing Then GoTo 101
Set xEnd = xS.Cells(Rows.Count, 1).End(xlUp)(2)
If xEnd.Row < 3 Then Set xEnd = xS.[A3]
xEnd = xF
N = ""
Open xPath & xF For Input Access Read As #1
Do Until EOF(1)
Line Input #1, T
If T = "&" Then Set xR = xEnd(1, "B"): C = 0
If T = "$" Then Set xR = xEnd(1, "BG"): C = 0
If (T = "#" Or T = "%") And N = "" Then Set xR = xEnd(1, "FZ"): C = 0: N = "Y"
If T = "@" Then Set xR = xEnd(1, "DX"): C = 0
For Each TT In Split(T, " ")
C = C + 1: xR(1, C) = TT
Next
Loop
Close #1
101: Loop
End Sub |
|
發表於 2015-11-15 13:55
| 
