[已解决]Excel中利用VBA生成无重复随机码

yjwdjfqb

Excel中利用VBA生成无重复随机码
请老师们帮帮忙，谢谢大家了！
请见附件：
WORD利用VBA按文本序号导入文本.rar (6.07 KB, 下载次数: 21)

2015-10-28 20:52 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

wp8680

2015-10-28 21:15

1. Sub Input1()    '----------------读取数据
   
2.     Dim s As Variant, st$
   
3.     Dim ph, ph1
   
4.     ph = ThisDocument.PATH & ""
   
5.     ph1 = Dir(ph & "*.txt")
   
6.     Do While ph1 <> ""
   
7.         Open ph & ph1 For Input As #1
   
8.         Do While Not EOF(1)
   
9.             Input #1, s
   
10.             Debug.Print s
    
11.             st = st & s & vbCr
    
12.         Loop
    
13.         Close #1
    
14.         ph1 = Dir
    
15.     Loop
    
16.     ThisDocument.Range.Text = st
    
17. End Sub

复制代码

s楼主提问不对题，我按楼主附件做一代码，存在WORD的模块中，运行码代码，就行了。

跳转到最佳答案楼层

wp8680

1. Sub Input1()    '----------------读取数据
   
2.     Dim s As Variant, st$
   
3.     Dim ph, ph1
   
4.     ph = ThisDocument.PATH & ""
   
5.     ph1 = Dir(ph & "*.txt")
   
6.     Do While ph1 <> ""
   
7.         Open ph & ph1 For Input As #1
   
8.         Do While Not EOF(1)
   
9.             Input #1, s
   
10.             Debug.Print s
    
11.             st = st & s & vbCr
    
12.         Loop
    
13.         Close #1
    
14.         ph1 = Dir
    
15.     Loop
    
16.     ThisDocument.Range.Text = st
    
17. End Sub

复制代码

s楼主提问不对题，我按楼主附件做一代码，存在WORD的模块中，运行码代码，就行了。

yjwdjfqb

wp8680 发表于 2015-10-28 21:15
s楼主提问不对题，我按楼主附件做一代码，存在WORD的模块中，运行码代码，就行了。

非常感谢老师的帮助，我发错了。
老师代码也是我非常想要的，谢谢你了老师！