Question

VBA 判断单元格为空后,依次循环导出数据到Txt

Application.DisplayAlerts = False

Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"

Dim fso, MyFile
If f <> "Fail" Then Status = "True" Else: Status = "False"
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(ipath & Timenow & Barcode & ".json", True)
Dim M As String

Dim N As Integer
For i = 0 To 1000

N = Worksheets(1).Cells(r + Offset, c + 1 + i)
M = Worksheets(1).Cells(2, c + i)
If Worksheets(1).Cells(r + Offset, c + 1 + i) <> "" Then
MyFile.WriteLine M + N
End If
Next i
'这是VBA中部分语句,每执行一次VBA,offset会增加1,单次执行VBA时,i=i+1,也就是说在当前r+offset行,指定起始列开始,如果不是空的,则导出M和N的内容到txt
上面图片是导出的文本文件,下图是Excel
只有第一列前面的空格是我定义回入的,但需要后面的字段都不包含空格
请高手指教方法?





若以下回答无法解决问题，邀请你更新回答

Answer 1

你具体问题是什么，还有就是你的完整代码有是什么呢，要不怎么帮你修改

追问

我用VBA从外部程序导入数据,例如:
从第9行开始,每行固定最多有6列数据
但终止行不确定,根据实际导入的行数为准
我现在想依次从第9行将数据一行一行的导入到文本文件
这个怎么写?

完整的代码很长,这里放不了

追答

你使用循环判断的方法来提取数据，首先要判断，最后一行，和最后一列，这个代码在网上就有，其中的循环判断要自己写

追问

虽然说了跟没说一样,我已经找到办法了
谢谢

Answer 2

你的问题是什么？