- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2024-10-30
|
2#
發表於 2021-10-27 11:04
| 只看該作者
本帖最後由 samwang 於 2021-10-27 11:16 編輯
匯入txt檔後,如何每20行作分頁(分辨[A]就分頁),感恩.
dou10801 發表於 2021-10-27 08:59 
新增如下紅字部分，請測試看看，謝謝
Sub 按鈕1_Click()
Dim Arr, Brr(1 To 20, 1 To 1), i&, n%
fs = ThisWorkbook.Path & "\sun03.txt"
Open fs For Input As #1
i = 1 '從第一格開始匯入
Do While Not EOF(1) ' 執行迴圈直到檔尾為止。
Line Input #1, TextLine
Cells(i, 1) = TextLine
i = i + 1
Loop
Close #1
Arr = Range([a1], [a65536].End(3))
For i = 1 To UBound(Arr)
n = n + 1: Brr(n, 1) = Arr(i, 1)
If n = 20 Or i = UBound(Arr) Then
With Sheets.Add(after:=Sheets(Sheets.Count))
.[a1].Resize(20) = Brr
End With
n = 0: Erase Brr
End If
Next
End Sub |
|
發表於 2021-10-29 15:28
| 
