標題: [發問] 請問EXCEL另存TXT可以指定空白數量? [打印本頁]

---

作者: kkooo15    時間: 2022-3-22 13:49     標題: 請問EXCEL另存TXT可以指定空白數量?

各位前輩好，請問一下因為公司要做轉帳資料，需要大量建立人員帳戶資料，
但是因為銀行要匯入的檔案是TXT檔，我的資料是EXCEL檔，所以在這請教前輩，麻煩指教。
檔案如下﹕
[attach]34729[/attach]

銀行說明﹕
[attach]34727[/attach]
[attach]34728[/attach]

---

作者: samwang    時間: 2022-3-23 08:19

回復 1# kkooo15

不好意思，看不懂您的需求，可否再提供說明有詳細範例(解答需求)，謝謝

---

作者: kkooo15    時間: 2022-3-23 11:39

回復 2# samwang
[attach]34735[/attach]

就是銀行要TXT檔.
我要將EXCEL檔案另存TXT檔.
文字格式要依銀行需求
第一段文字需要12個字，實際文字沒有12個，就用空白補到12個
例﹕
第一行1234567<後面就是要加5個空白

---

作者: samwang    時間: 2022-3-23 14:20

回復 3# kkooo15

請測試看看，謝謝
Sub test()
Dim Arr, a, FN, T$, T1$, R&, C&, s&
FN = "D:\test.txt"
Open FN For Output As #1
Arr = Sheets(1).[a1].CurrentRegion
For R = 1 To UBound(Arr)
    If R = 1 Then a = Array(12, 80, 8, 7, 16, 18, 3) Else a = Array(80, 7, 40, 16, 18, 12, 40, 5, 20, 8, 18, 40)
    For C = 2 To UBound(Arr, 2)
        T = Arr(R, C - 1): T1 = Arr(R, C): If T = "" Then GoTo 99
        Ept = a(s) - Len(T)
        If Ept > 0 Then For j = 1 To Ept: Arr(R, 1) = Arr(R, 1) & " ": Next
        Arr(R, 1) = Arr(R, 1) & T1
        s = s + 1
99: Next C
    s = 0: Print #1, Arr(R, 1)
Next R
Close #1
End Sub

---

作者: kkooo15    時間: 2022-3-23 17:50

回復 4# samwang

太感謝了，原來可以這樣寫。
感謝前輩的無私奉獻，讓我上了一課。

---

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