[發問] 請問EXCEL另存TXT可以指定空白數量?

kkooo15

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

下載次數: 4

2022-3-22 13:49

銀行說明﹕

下載 (60.92 KB)

2022-3-22 13:42

下載 (101.26 KB)

2022-3-22 13:43

samwang

回復 1# kkooo15

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

kkooo15

回復 2# samwang

下載 (115.83 KB)

2022-3-23 11:34

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

samwang

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

回復 4# samwang

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