[已解决]大侠，怎样添加窗口用来输入地址

追梦人亮

大家好，我有一个批量导入TXT的vba,但每次运行，里面的路径必须对，如果txt的文件夹变了位置还得更改路径，怎样能使执行命令时出现一个窗口，里面有一个默认的txt文件夹地址，同时还可以输入变化了地址，这样可以方便好多，希望大神们帮忙！谢谢啦

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-10-28 00:01

追梦人亮 发表于 2013-10-27 23:52
不好意思啊，水平比较菜，不知道怎样把那个路径传到Path，演示是会了，再帮帮忙吧！

1. Sub 导入()                                                     '定义程序
   
2.     Dim mPath$                                                  '路径
   
3.     With Application.FileDialog(msoFileDialogFolderPicker)
   
4.         .AllowMultiSelect = False
   
5.         .InitialFileName = "c:"
   
6.         If .Show = -1 Then
   
7.             mPath = .SelectedItems(1)
   
8.             daoru mPath                                                   '运行并传入路径
   
9.             Sheets("399300").Select                                       '选中
   
10.             Sheets("399300").Name = "沪深300"                             '改名
    
11.             Sheets("无名").Delete                                         '删除                                          '
    
12.         Else
    
13.             MsgBox "没有选择要导入的文件夹"
    
14.         End If
    
15.     End With
    
16. End Sub                                                           '结束
    

复制代码

替换你原有的导入 过程。

跳转到最佳答案楼层

hwc2ycy

直接通过一个对话框来选择文件夹吧,演示代码，实际用的时候，根据情况改动就可以了。

1. Sub test()
   
2.     With Application.FileDialog(msoFileDialogFolderPicker)
   
3.         .AllowMultiSelect = False
   
4.         .InitialFileName = "c:"
   
5.         If .Show = -1 Then
   
6.             MsgBox "你选择的路径是：" & .SelectedItems(1)
   
7.         End If
   
8.     End With
   
9. End Sub
   

复制代码

追梦人亮

hwc2ycy 发表于 2013-10-27 23:23
直接通过一个对话框来选择文件夹吧,演示代码，实际用的时候，根据情况改动就可以了。

首先，谢谢啦，但是怎么往进加啊，我现在运行时只是选中了，但是不执行，怎么办？

hwc2ycy

追梦人亮 发表于 2013-10-27 23:47
首先，谢谢啦，但是怎么往进加啊，我现在运行时只是选中了，但是不执行，怎么办？

选中文件夹后，点 确定，这个过程只是演示用的。

追梦人亮

hwc2ycy 发表于 2013-10-27 23:49
选中文件夹后，点 确定，这个过程只是演示用的。

不好意思啊，水平比较菜，不知道怎样把那个路径传到Path，演示是会了，再帮帮忙吧！

hwc2ycy

追梦人亮 发表于 2013-10-27 23:52
不好意思啊，水平比较菜，不知道怎样把那个路径传到Path，演示是会了，再帮帮忙吧！

1. Sub 导入()                                                     '定义程序
   
2.     Dim mPath$                                                  '路径
   
3.     With Application.FileDialog(msoFileDialogFolderPicker)
   
4.         .AllowMultiSelect = False
   
5.         .InitialFileName = "c:"
   
6.         If .Show = -1 Then
   
7.             mPath = .SelectedItems(1)
   
8.             daoru mPath                                                   '运行并传入路径
   
9.             Sheets("399300").Select                                       '选中
   
10.             Sheets("399300").Name = "沪深300"                             '改名
    
11.             Sheets("无名").Delete                                         '删除                                          '
    
12.         Else
    
13.             MsgBox "没有选择要导入的文件夹"
    
14.         End If
    
15.     End With
    
16. End Sub                                                           '结束
    

复制代码

替换你原有的导入 过程。

追梦人亮

hwc2ycy 发表于 2013-10-28 00:01
替换你原有的导入 过程。

非常感谢哈！[em25][em24]