麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 匯入txt檔後,如何分頁. [打印本頁]

作者: dou10801 時間: 2021-10-27 08:59 標題: 匯入txt檔後,如何分頁.

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

作者: samwang 時間: 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

作者: dou10801 時間: 2021-10-27 12:17

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

作者: samwang 時間: 2021-10-27 13:35

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

如附件請測試看看，謝謝

作者: dou10801 時間: 2021-10-27 13:41

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

作者: samwang 時間: 2021-10-27 15:26

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

作者: 准提部林 時間: 2021-10-29 15:28

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

回復 5# dou10801

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

2)點按關鍵字
[attach]34300[/attach]

3)點按"範例"及"適用於"都有進一步說明
[attach]34301[/attach]

凡事自求多助吧!

作者: dou10801 時間: 2021-11-1 08:10

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)