数据写入文本

天地一相

感谢帮助！详见截图附件。

liulang0808

Sub 矩形1_Click()
    If [e3] > 125 Then
        str1 = [e3] & " - " & Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose([j3:ae3])), ",")
        Open ThisWorkbook.Path & "\文本A.txt" For Append As #1
            Print #1, Chr(10) & str1;
        Close #1
    End If
End Sub

liulang0808

供参考。。。。。。

天地一相

liulang0808 发表于 2024-3-24 18:58
Sub 矩形1_Click()
    If [e3] > 125 Then
        str1 = [e3] & " - " & Join(WorksheetFunction.Tran ...

谢谢，测试了。是我没说清楚，写入位置在文本最后一行的下一行。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.24
   
2.     p = ThisWorkbook.Path & ""
   
3.     f = p & "文本A.txt"
   
4.     arr = [e3].Resize(1, 100)
   
5.     st = [e3] & "-" & [j3]
   
6.     For j = 7 To UBound(arr, 2)
   
7.         If arr(1, j) <> "" Then
   
8.             st = st & "," & arr(1, j)
   
9.         End If
   
10.     Next
    
11.     Set wb = Workbooks.Open(f, 0)
    
12.     With wb.Sheets(1)
    
13.         R = .Cells(Rows.Count, 1).End(3).Row
    
14.         .Cells(R + 1, 1) = st
    
15.     End With
    
16.     wb.Close 1
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

liulang0808

不是这样的 吗？

天地一相

liulang0808 发表于 2024-3-25 07:44
不是这样的 吗？

哦，怪了，我的测试，若文本内容空，首次没问题，再次以后却是E3内容在最后一行的行末，其余的却在新的一行。这是什么原因呢？

liulang0808

天地一相 发表于 2024-3-25 12:17
哦，怪了，我的测试，若文本内容空，首次没问题，再次以后却是E3内容在最后一行的行末，其余的却在新的一 ...

把楼主使用的代码文件以及对应的文本文件结果压缩上传看下吧

天地一相

liulang0808 发表于 2024-3-25 12:36
把楼主使用的代码文件以及对应的文本文件结果压缩上传看下吧

好的，谢谢，请看。我的WIN7,EXCEL2016.