返回列表 上一主題 發帖

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

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
1  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2025-1-1 
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

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

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

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題