返回列表 上一主題 發帖

[發問] EXCEL VBA XLSX TO TXT 空白行

quickfixer

帖子
151 
主題
1 
精華
0 
積分
197 
點名
14  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-4-18 
1# 跳轉到 »
發表於 2020-11-27 09:41 | 顯示全部帖子
Sub test002()
    Open ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".txt" For Output As #1
    For i = 1 To Range("a1").CurrentRegion.Rows.Count
        Print #1, Cells(i, 1) & Cells(i, 2) & Cells(i, 3) & Cells(i, 4) & Cells(i, 5) & Cells(i, 6) & Cells(i, 7) & Cells(i, 8) & String(21, " ")
    Next i
    Close #1
End Sub

TOP

quickfixer

帖子
151 
主題
1 
精華
0 
積分
197 
點名
14  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-4-18 
2#
發表於 2020-12-5 09:11 | 顯示全部帖子
回復 13# n7822123

後來給的檔案和一開始的範本,根本不一樣:@
多了標題列,金額那欄字數不固定,那個要加21個空白的條件,是錯的吧?
空白字數是其實變動的才對?還是金額那欄要補字數?

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題