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

23号人生 · 发表于 2016-3-11 08:57

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

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

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

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

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

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

23号人生 · 发表于 2016-3-11 09:44

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

解0人 · 发表于 2016-3-11 09:49

Sub J0r()
Dim a, i%
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "VBA bas files", "*.bas"
.InitialFileName = ThisWorkbook.Path
If .Show Then
ReDim a(1 To .SelectedItems.Count)
For i = 1 To .SelectedItems.Count
a(i) = .SelectedItems(i)
Next
Else
Exit Sub
End If
End With
With Application.VBE.ActiveVBProject.VBComponents
For i = 1 To UBound(a)
.Import a(i)
Next
End With
End Sub

复制代码

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

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

23号人生 · 发表于 2016-3-11 10:37

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

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

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

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

Sub J0r()
Dim a, i%, j%
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "VBA bas files", "*.bas"
.InitialFileName = ThisWorkbook.Path
If .Show Then
ReDim a(1 To .SelectedItems.Count)
For i = 1 To .SelectedItems.Count
a(i) = .SelectedItems(i)
Next
Else
Exit Sub
End If
End With
j = Application.VBE.ActiveVBProject.VBComponents.Count
With Application.VBE.ActiveVBProject.VBComponents
For i = 1 To UBound(a)
.Import a(i)
j = j + 1
.Parent.VBComponents(j).Name = Split(Mid(a(i), InStrRev(a(i), "") + 1), ".")(0)
Next
End With
End Sub

复制代码

23号人生 · 发表于 2016-3-11 11:22

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

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

解0人 · 发表于 2016-3-11 11:29

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

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

23号人生 · 发表于 2016-3-11 11:46

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

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

火冷 · 发表于 2018-8-21 08:24

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

		自动登录	找回密码
密码			免费注册

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

评分

评分