VB操作excel写回txt

本文主要是介绍VB操作excel写回txt，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

Private Sub addition(str As String)
Dim strInfo As String
Dim strdd As String
strInfo = "扫描失败"
strdd = "成功"
Open "d:\error.txt" For Output As #1
Write #1, str
Close #1
End SubPublic Sub GetGuJiaFromExcel()
Dim str2 As String
Sheets("统计图谱相关参数").Cells(25, 2) = ""
For j = 90 To 269
For i = 1 To 180
str2 = str2 & "," & Sheets("统计图谱相关参数").Cells(j, i).Text
Next
Next
addition (str2)End Sub

这篇关于VB操作excel写回txt的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---