[發問] 匯入txt檔後,如何分頁.

dou10801

匯入txt檔後,如何每20行作分頁(分辨[A]就分頁),感恩.

samwang

匯入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

dou10801

回復 2# samwang 感謝samwang回覆,可否產生在同一個工作表,預覽列印,翻頁時[A]在每頁的第一位,謝謝.

samwang

回復  samwang 感謝samwang回覆,可否產生在同一個工作表,預覽列印,翻頁時[A]在每頁的第一位,謝謝.
dou10801 發表於 2021-10-27 12:17

如附件請測試看看，謝謝

dou10801

回復 4# samwang 感謝感謝.
可否加註解,收下慢慢學習.
If Arr(i, 1) = "[A]" Then
        Rows(i).PageBreak = xlPageBreakManual
        Columns("i").PageBreak = xlPageBreakManual
    End If

samwang

回復  samwang 感謝感謝.
可否加註解,收下慢慢學習.
If Arr(i, 1) = "[A]" Then
        Rows(i).PageBr ...
dou10801 發表於 2021-10-27 13:41

PageBreak用法，可參考如下，謝謝
https://docs.microsoft.com/zh-tw ... cel.range.pagebreak

准提部林

回復 5# dou10801

多善用vbe內建說明檔:
1)選取要查詢的文字,按"複製"//按上方"?"快速說明鈕, 貼上文字

下載 (7.55 KB)

2021-10-29 15:25

2)點按關鍵字

下載 (22.93 KB)

2021-10-29 15:26

3)點按"範例"及"適用於"都有進一步說明

下載 (28.57 KB)

2021-10-29 15:27

凡事自求多助吧!

dou10801

回復 7# 准提部林
感謝准提部林大大指點,這個對初者受益良多.