[已解决]EXCEL VBA XLSX TO TXT 加空白行

dou10801 · 发表于 2020-11-25 14:15

[size=13.3333px]請教各位前輩,xlsx檔轉txt 對方要求最後面要加[21]個半型空白(如附件a001.txt),謝謝.

最佳答案

月排行榜 / 总排行榜

爱疯

2020-11-27 09:17

本帖最后由爱疯于 2020-11-27 09:18 编辑

Sub test()
Dim p, f, A, i, j, x, y
p = ThisWorkbook.Path & "" '存放路径
f = Split(ThisWorkbook.Name, ".")(0) & ".txt" '文件名
A = Range("a1").CurrentRegion '数据源数组
y = Space(21) '需追加的文本
Open p & f For Output As #1 '以顺序输出方式打开文件
For i = 1 To UBound(A) '遍历行
x = "" '清空临时变量x
For j = 1 To UBound(A, 2) '遍历列
x = x & A(i, j) '连接每列的文本到 x
Next
Print #1, x & y '写入本行所有文本和追加文本
Next
Close #1
End Sub

复制代码

跳转到最佳答案楼层

爱疯 · 发表于 2020-11-25 16:19

Sub test()
Dim p, f, A, i, j, x, y
p = ThisWorkbook.Path & "\"
f = Split(ThisWorkbook.Name, ".")(0) & ".txt"
A = Range("a1").CurrentRegion
y = Space(21)

Open p & f For Output As #1
For i = 1 To UBound(A)
      x = ""
      For j = 1 To UBound(A, 2)
         x = x & A(i, j)
      Next
      Print #1, x & y
Next
Close #1
End Sub

砂海 · 发表于 2020-11-25 16:23

感觉用牛刀了
i1= g1&h1&REPT(" ",21)
前面写全就好

dou10801 · 发表于 2020-11-27 08:50

本帖最后由 dou10801 于 2020-11-27 08:53 编辑

感謝...爱疯...大大指點.

因初學VBA,可否註解程式流程,學習,謝謝.

爱疯 · 发表于 2020-11-27 09:17

本帖最后由爱疯于 2020-11-27 09:18 编辑

Sub test()
Dim p, f, A, i, j, x, y
p = ThisWorkbook.Path & "" '存放路径
f = Split(ThisWorkbook.Name, ".")(0) & ".txt" '文件名
A = Range("a1").CurrentRegion '数据源数组
y = Space(21) '需追加的文本
Open p & f For Output As #1 '以顺序输出方式打开文件
For i = 1 To UBound(A) '遍历行
x = "" '清空临时变量x
For j = 1 To UBound(A, 2) '遍历列
x = x & A(i, j) '连接每列的文本到 x
Next
Print #1, x & y '写入本行所有文本和追加文本
Next
Close #1
End Sub

复制代码

dou10801 · 发表于 2020-11-27 09:32

爱疯...大大....感謝....感謝.

webofficer · 发表于 2020-11-28 16:23

这个应该是学校的作业吧

		自动登录	找回密码
密码			注册

[已解决]EXCEL VBA XLSX TO TXT 加空白行

评分