请各位老师帮忙看一下模块自动导入导出的代码

23号人生

各位老师早上好，joyark老师的[分享] VBA实例601例----使用控件和窗体2007版=01=19


帖子中有个关于模块学习的部分，我下载下来后没有试验成功，不知道为什么，可能joyark老师操作的是2007版，我用的是2003版的原因或许是我有些设置没弄好，


请各位老师帮忙看一下，非常感谢。


附件中有个名字为模块的文件夹，路径是放在桌面上，里面存着几个模块；导入模块这个工作簿中我原想的是按一下里面的按钮就提示选择要导入的模块，点击确认后就可以自动导入


可以导入一个或多个模块，“758 自动导入或导出模块”这个工作簿是我从joyark老师帖子中下载下来的原文件。


期待老师能帮忙看一下。。。谢谢。

23号人生

看到好多老师查看，也有老师下载附件，希望老师们能帮帮忙。。。

解0人

1. Sub J0r()
   
2. Dim a, i%
   
3.     With Application.FileDialog(msoFileDialogFilePicker)
   
4.         .AllowMultiSelect = True
   
5.         .Filters.Clear
   
6.         .Filters.Add "VBA bas files", "*.bas"
   
7.         .InitialFileName = ThisWorkbook.Path
   
8.         If .Show Then
   
9.             ReDim a(1 To .SelectedItems.Count)
   
10.             For i = 1 To .SelectedItems.Count
    
11.                 a(i) = .SelectedItems(i)
    
12.             Next
    
13.         Else
    
14.             Exit Sub
    
15.         End If
    
16.     End With
    
17.     With Application.VBE.ActiveVBProject.VBComponents
    
18.         For i = 1 To UBound(a)
    
19.             .Import a(i)
    
20.         Next
    
21.     End With
    
22. End Sub

复制代码

解0人

↓↓↓↓↓↓↓↓↓↓↓↓

23号人生

解0人 发表于 2016-3-11 09:50
↓↓↓↓↓↓↓↓↓↓↓↓

太谢谢老师了，顺便问您一下，如何导入模块的时候保留原.bas的名称，例如：   设置基本格式.bas   将这个bas文件导入后还保留着  “设置基本格式”   这个名称。

解0人

23号人生 发表于 2016-3-11 10:37
太谢谢老师了，顺便问您一下，如何导入模块的时候保留原.bas的名称，例如：   设置基本格式.bas   将这个 ...

1. Sub J0r()
   
2. Dim a, i%, j%
   
3.     With Application.FileDialog(msoFileDialogFilePicker)
   
4.         .AllowMultiSelect = True
   
5.         .Filters.Clear
   
6.         .Filters.Add "VBA bas files", "*.bas"
   
7.         .InitialFileName = ThisWorkbook.Path
   
8.         If .Show Then
   
9.             ReDim a(1 To .SelectedItems.Count)
   
10.             For i = 1 To .SelectedItems.Count
    
11.                 a(i) = .SelectedItems(i)
    
12.             Next
    
13.         Else
    
14.             Exit Sub
    
15.         End If
    
16.     End With
    
17.     j = Application.VBE.ActiveVBProject.VBComponents.Count
    
18.     With Application.VBE.ActiveVBProject.VBComponents
    
19.         For i = 1 To UBound(a)
    
20.             .Import a(i)
    
21.             j = j + 1
    
22.             .Parent.VBComponents(j).Name = Split(Mid(a(i), InStrRev(a(i), "") + 1), ".")(0)
    
23.         Next
    
24.     End With
    
25. End Sub

复制代码

23号人生

解0人 发表于 2016-3-11 10:53

再次谢谢老师，在测试时存在一个问题，如图和附件。

解0人

23号人生 发表于 2016-3-11 11:22
再次谢谢老师，在测试时存在一个问题，如图和附件。

試試修改.bas文件名稱，不要包含特殊字符

23号人生

解0人 发表于 2016-3-11 11:29
試試修改.bas文件名稱，不要包含特殊字符

呵呵，又长知识了，谢谢老师

火冷

22行的InStrRev函数，第2个参数双引号里面应该有反斜杠，显示是空的