Question

我需要创建一个宏以编写一个.txt文件并将其发送到我们的服务器，但是如果该行的末尾有一个“输入”（chr 10）字符，则我们的服务器只能识别一个新行。但是每次我在行的末尾写chr（10）时，它都会创建一个新行，并且在它的下一行写宏，就像

示例（在此处输入字符）
<----换行
下一个内容

但是，如果前一行为空，则服务器将无法识别下一个内容一定是

示例（在此处输入字符）
下一个内容

到目前为止，我已经可以编写.txt文件

Private Sub E16_Click()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Dim f As Object
Dim order
pedido = Sheets("EDI").Range("I2")
Set f = fs.OpenTextFile("c:\" & IIf(Range("AA24") = 2, "temp\", "") & "pc" & order & ".txt", 2, True)

f.writeline "ITP" & Sheets("EDI").Range("C2") & Sheets("EDI").Range("J2") & Sheets("EDI").Range("L2") & WorksheetFunction.Rept(" ", 75) ' **Enter character must be sent here**
f.writeline Sheets("EDI").Range("M2") ' **Enter character must be sent here**
f.writeline "AE3" & Sheets("EDI").Range("J2") & "04771370000183" & Sheets("EDI").Range("J2") & WorksheetFunction.Rept(" ", 83) ' **Enter character must be sent here**

总有没有发送回车符而不创建新行的信息吗？我试图将Enter字符设置为文本格式，但没有用

Answer 1

我认为您的问题是您使用的是f.writeline而不是f.write

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/write-method

如何在不输入EXCEL VBA的情况下发送“输入”字符？

1 个答案: