指定目录生成文件——求高手帮助完善VBA！！

dc201010

附件里面表格已经实现在指定位置（在VBA里设置好的）生成文件的功能，现在想进一步完善下，
即是：添加一个选择生成文件保存文件夹的控件，并将生成文件保存在该指定文件夹内！

1. Sub 柱状图输出()
   
2.     Dim s As String
   
3. 
   
4.     Dim FullName As String, rng As Range
   
5. 
   
6.     Application.ScreenUpdating = False
   
7. 
   
8.      FullName = "D:\柱状图" & Cells(31, 1) & ".JCD"  'H1格数据为JCD文件名
   
9. 
   
10.     Open FullName For Output As #1    '以读写方式打开文件，每次写内容都会覆盖原先的内容
    
11. 
    
12.     '参考帮助，fullname为文件全名
    
13. 
    
14.     For Each rng In Range("a1").CurrentRegion
    
15. 
    
16.         s = s & rng.Value
    
17. 
    
18.         If rng.Column = Range("a1").CurrentRegion.Columns.Count Then
    
19. 
    
20.             Print #1, s  '把数据写到文本文件里
    
21. 
    
22.             s = ""
    
23. 
    
24.         End If
    
25. 
    
26.     Next
    
27. 
    
28.     Close #1    '关闭文件
    
29. 
    
30.    Application.ScreenUpdating = True
    
31. 
    
32.    MsgBox "柱状图已经导出至D盘“柱状图”文件夹，请自己复制至相应工点文件夹！"
    
33. 
    
34. End Sub
    

复制代码

测试文件.rar (32.49 KB, 下载次数: 6)

2013-4-30 21:12 上传

点击文件名下载附件

dc201010

无人问津啊？