小白又来求教了，不好意思excel读取文件（txt）形式打开，然后用特定的字符分割并保存

cherrycdh

大神们，小白又遇到问题了，这次是编写一个vba程序，主要功能是将同事导出的文件在excel中用文本文件的形式打开，然后自动分割后以该文件的%后面的后5位字符作为文件名保存

文件是类似于下面这样的
%
O0005fafeafgweer52352563472363467547568u6757978903745623463463%
O0006gergsrgert34534534dfbdfyhew634yerbhdfshberyeryhbdfbnsdtgwerdfnaerty3wefvert6234yfyuj67EDGvabtfQ%
O0013VBESTERTYERBHDFHRTTY345WERGERT34754U8FGBHSDR34Y6GYERH547YRTHBY547856I9Y73476%
O0009VSDTGWERGSDFHN54E654UJHNRTGFMNDRTUY7RDF NBXRTYHRTN XRHBWEBHRTDUY54U8UHBE DRF
当然涉及到数据更多，然后有的可能是%后面是回车再加数据的

然后需要我做的是这样的状态

1. Private Sub CommandButton3_Click()
   
2. 
   
3.     Dim TextFilePath As String
   
4.     Dim TextFile As Integer
   
5.     Dim FileContent As String
   
6.     Dim FileLines() As String
   
7.     Dim SplitLine() As String
   
8.     Dim i As Long
   
9.      
   
10.     '获取要导入的文件路径
    
11.     TextFilePath = Cells(1, 2)
    
12.      
    
13.     '打开文件
    
14.     TextFile = FreeFile
    
15.     Open TextFilePath For Input As TextFile
    
16.      
    
17.     '读取文件内容
    
18.     FileContent = Input(LOF(TextFile), TextFile)
    
19.      
    
20.     '关闭文件
    
21.     Close TextFile
    
22.      
    
23.     '以%为分隔符拆分文件内容
    
24.     FileLines = Split(FileContent, Cells(3, 2))
    
25.      
    
26.     '逐行写入并保存文件
    
27.     For i = 0 To UBound(FileLines)
    
28.         '以%后面5个字符为文件名
    
29.         SplitLine = Split(FileLines(i), vbCrLf)
    
30.          
    
31.         Open Cells(2, 2) & Right(SplitLine(0), 5) & ".txt" For Output As TextFile
    
32.          
    
33.         Print #TextFile, FileLines(i)
    
34.          
    
35.         Close TextFile
    
36.     Next i
    
37.      
    
38.     '提示导入完成
    
39.     MsgBox "导入完成！"
    
40. 
    
41. End Sub

复制代码

chxw68

最好能上传附件方便大家帮助。

wanghan519

可能是因为每一行的vrCrLf是在开头不是在结尾，所以SplitLine = Split(FileLines(i), vbCrLf)改成SplitLine = Replace(FileLines(i), vbCrLf, "")试试吧

tanglf188

dlgAnswer = Application.Dialogs(666).Show

cherrycdh

wanghan519 发表于 2023-5-6 05:06
可能是因为每一行的vrCrLf是在开头不是在结尾，所以SplitLine = Split(FileLines(i), vbCrLf)改成SplitLine ...

不行，显示出来是不能给数值赋值

Yalishanda30

cherrycdh 发表于 2023-5-6 13:50
不行，显示出来是不能给数值赋值

你的附件呢