首页 热点资讯 义务教育 高等教育 出国留学 考研考公

跪求: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文本。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com