[已解决]跪求各位大大们帮忙做一个宏 好人一生平安 抱拳了老铁

mai998

冥王 发表于 2015-1-16 17:14
这是不是你要的？突然感觉有些不太明白，可能是误解了题意。。。。。

  对的 就是这个意思  但是txt文件的内容  是以  
1,255.5555,55555.55555,552.622
数字+逗号+数字+逗号+数字+逗号+数字+逗号
的格式来的  
最终结果是这样的就行

mai998

冥王 发表于 2015-1-16 17:14
这是不是你要的？突然感觉有些不太明白，可能是误解了题意。。。。。

就是txt文本里的内容前面和后面不要"符号就行了    我生成的文件要导入到仪器用的所以有别的符号不识别的   
跪求大神完善

冥王

mai998 发表于 2015-1-16 17:30
就是txt文本里的内容前面和后面不要"符号就行了    我生成的文件要导入到仪器用的所以有别的符号不识别的 ...

你再试一下 我这里是成功了的 现在修改的也没有引号的

mai998

ppp710715 发表于 2015-1-16 16:59
2007版的可以打开2003的呀！
打开后，按按钮就行。
也可按Alt+F11打开VBE，直接运行程序。

我打开之后  按钮根本就不让  按啊   求教啊

冥王

mai998 发表于 2015-1-16 17:47
我打开之后  按钮根本就不让  按啊   求教啊

你得启用宏啊，生成的文件夹打包发给你算了，看一下结果是不你要的

ppp710715

不懂VBA真没办法。直接将生成的文件夹打包发给你吧。

生成txt.rar (20.92 KB, 下载次数: 1)

2015-1-17 08:43 上传

点击文件名下载附件

mai998

ppp710715 发表于 2015-1-17 08:43
不懂VBA真没办法。直接将生成的文件夹打包发给你吧。

  嘿嘿 谢谢大神

mai998

冥王 发表于 2015-1-16 17:49
你得启用宏啊，生成的文件夹打包发给你算了，看一下结果是不你要的

谢谢大神  完全能用

冥王

仅供参考，希望不要误导你，建议自己去查阅相关资料学习

1. 
   
2. Sub VB语句()
   
3.     Dim sfold$, r%, i%, arr(1 To 1000, 1 To 1000)  '定义变量，sfold记录文件夹路径，arr是一个足够大的数组
   
4.     sfold = "C:\Users\Administrator\Desktop" & "TXT生成"  '生成的文本文件要放入的路径及文件夹名称，可自行修改
   
5.     MkDir sfold  '新建文件夹，名称为sfold
   
6.     r = Cells(Rows.Count, 2).End(xlUp).Row   '变量r存储工作表第2列最后一行的行号
   
7.     For i = 1 To r                    '从第1行开始循环一直到第r行（第一个for循环作用是将要写入文本文件的内容装到数组中，提高代码运行速度）
   
8.         If Cells(i, 1) <> "" Then     '如果第一列第i行内容不为空，那么
   
9.             arr(i, 1) = Cells(i, 1)   '将第1列第i行的内容装入数组第1列第i行
   
10.         Else                          '否则
    
11.             arr(i, 1) = arr(i - 1, 1) '将第1列第i-1行的内容装入数组第1列第i行
    
12.         End If
    
13.         arr(i, 2) = Cells(i, 2)       '将第2列第i行的内容装入数组的第2列第i行
    
14.     Next                              '下一个循环
    
15.     For i = 1 To r      '再次循环，从1循环到r（第二个for循环作用是将数组内容写入txt文本文件）
    
16.         fl = sfold & "" & arr(i, 1) & ".txt"   '变量fl记录文本文件的全路径
    
17.         inum = FreeFile                         '使用 FreeFile函数提供一个尚未使用的文件号，赋值给变量inum
    
18.         Open fl For Append As #inum   '打开文本文件，并向其中写入数据（Append是向文本文件fl中追加记录，如果文本文件不存在，则新建文件）
    
19.         Print #inum, arr(i, 2)   '向文本文件中写入数据（第一个for循环已经把数据装到数组中了，此处写入相应数组内容即可）
    
20.         Close #inum              '闭关文件号为inum的文本文件
    
21.     Next
    
22. End Sub

复制代码