关于EXCEL生成TXT文件如何实现

ztb111

如下例所示，EXCEL表格中的数据如何设置可以生成TXT中的文本。谢谢

wodewan

不知道你的要求是什么，感觉像是练习题，因为又是空串，又是中文逗号，又是英文逗号分隔符，又是引号，又是日期换文本格式，又是字符串中含不可见空格，又是某些列不取，只能一会Print一会write。。。。。。。。附件供参考

Sub Demo()
Dim Arr, i&, j&, FileNum As Integer
Arr = ActiveSheet.Range("A2").CurrentRegion
FileNum = FreeFile
Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".Txt" For Output As #FileNum
For i = 2 To UBound(Arr)
    Write #FileNum, Format(Arr(i, 1), "yyyy-m-dd");
    Print #FileNum, Chr(34); Arr(i, 2); Chr(34); "，";
    Write #FileNum, Trim(Str(Arr(i, 3)));
    Print #FileNum, ","; ","; ",";
    Write #FileNum, Trim(Str(Arr(i, 5)));
    Print #FileNum, ","; ","; ","; ","; ","
Next
Close #FileNum
End Sub

山菊花

wodewan 发表于 2020-1-12 20:03
不知道你的要求是什么，感觉像是练习题，因为又是空串，又是中文逗号，又是英文逗号分隔符，又是引号，又是 ...

不用Print也可以（中文逗号应该是误写吧）：

    Write #FileNum, Format(Arr(i, 1), "yyyy-m-dd"); Arr(i, 2); Trim(Str(Arr(i, 3))); Empty; Empty; Empty; Trim(Str(Arr(i, 5))); Empty; Empty; Empty; Empty; Empty; Empty

wodewan

山菊花 发表于 2020-1-13 08:27
不用Print也可以（中文逗号应该是误写吧）：

    Write #FileNum, Format(Arr(i, 1), "yyyy-m-dd"); A ...

多谢版主，你写了个Empty，在这个帖子中倒是很好的一个例子让我突然明白了一直糊涂的Empty和Null，和VBnullstring的区别了。。。。多谢多谢。

ztb111

wodewan 发表于 2020-1-12 20:03
不知道你的要求是什么，感觉像是练习题，因为又是空串，又是中文逗号，又是英文逗号分隔符，又是引号，又是 ...

谢谢，中文逗号和英文逗号的确是我粗心所致，这个要求主要是为了实现将EXCEL里面的表格转化为TXT格式，以方便导入软件，因为软件中要求TXT有具体的格式要求，所以看起来很混乱的感觉，谢谢。今年疫情严重，回去老家都没地方上网，都没来得及及时感谢，祝新年一切安好，幸福健康！

ztb111

山菊花 发表于 2020-1-13 08:27
不用Print也可以（中文逗号应该是误写吧）：

    Write #FileNum, Format(Arr(i, 1), "yyyy-m-dd"); A ...

谢谢，新年快乐，祝新年一切安好，健康幸福！

ztb111

wodewan 发表于 2020-1-12 20:03
不知道你的要求是什么，感觉像是练习题，因为又是空串，又是中文逗号，又是英文逗号分隔符，又是引号，又是 ...

英文逗号和中文逗号的确是我粗心所致，谢谢提醒，以后我会更严谨。谢谢，新年快乐，祝新年一切安好，健康幸福！