返回列表 上一主題 發帖

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

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

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

WINDBT721.rar (14.63 KB)

杜小平

本帖最後由 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

TOP

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

TOP

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


如附件請測試看看,謝謝

txt.zip (22.07 KB)

TOP

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

TOP

回復  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

TOP

本帖最後由 准提部林 於 2021-10-29 15:32 編輯

回復 5# dou10801

多善用vbe內建說明檔:
1)選取要查詢的文字,按"複製"//按上方"?"快速說明鈕, 貼上文字
0210-01.GIF
2021-10-29 15:25


2)點按關鍵字
0210-02.GIF
2021-10-29 15:26


3)點按"範例"及"適用於"都有進一步說明
0210-03.GIF
2021-10-29 15:27


凡事自求多助吧!

TOP

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

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題