跪求:VBA分割字符并输出TXT

发布网友

我来回答

共2个回答

热心网友

本代码是将文本文件建立在D盘，你可自行修改盘符，使用的时候新建模块，创建命令按钮，然后指定该宏即可，也可以vb编辑器中直接运行。

Public brr()

Private Sub mytext()

Dim brr() As String, x As Integer, y As Integer, a As Integer

Dim fso As Object, f As Object, atra As String

a = Sheet1.Range("h" & Rows.Count).End(xlUp).Row

arr = Sheet1.Range("h10:h" & a)

ReDim brr(1 To a)

For x = 1 To UBound(arr)

      y = InStr(1, arr(x, 1), "(", 1)

      If y <> 0 Then

         zz = Mid(arr(x, 1), y, Len(arr(x, 1)) - y + 1)

         c = InStr(1, zz, ",", 0)

         If c <> 0 Then

         brr(x) = "--" & Mid(arr(x, 1), 1, y) & Replace(zz, ",", "-", , 1)

         Else

         brr(x) = "--" & Mid(arr(x, 1), 1, y) & Replace(zz, "，", "-", , 1)

         End If

      Else

         brr(x) = "--" & arr(x, 1)

      End If

Next

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.createtextfile("D:\清单.TXT")

Set f = Nothing

Set fso = Nothing

For bb = 1 To UBound(brr)

     stra = stra & brr(bb) & vbCrLf

     Next

     Open "D:\清单.TXT" For Output As #1

     Print #1, stra

     Close #1

End Sub

热心网友

日哦，真接查找替换，还用VBA，追问替换是可以，但是输出呢？我要分割了再输出一个清单TXT文本。