急,求助各位大侠,怎么在VBA中加入“Microsoft Common Dialog Control 6.0（SP2）”或“Microsoft Common Dialog Control 6.0（SP3）”?

[nixiaolong]

急,求助各位大侠,怎么在VBA中加入“Microsoft Common Dialog Control 6.0（SP2）”或“Microsoft Common Dialog Control 6.0（SP3）”?

[xinliangyu]

我PC上可以加sp6的Microsoft Common Dialog Control 6.0

[aijie099]

你可以“浏览”控件加入那个控件

[sijigang]

把控件注册一下，regsvr32 /s *.ocx

[myhgyp]

1、先插入一个用户窗体
2、在工具箱上点右键，选择“附加控件”
3、选择Microsoft Common Dialog Control 6.0即可

[viena]

补丁版本降低啊，重装VB，重打SP2或SP3补丁，呵呵~

[cslf]

到microsoft下载Vs6sp6.exe，安装就ok啦。

[YIXIAOYING]

哈哈，终于碰到一个我知道的：）
VB6 工具箱点击右健选择“部件”，在部件框选择Microsoft Common Dialog Control 6.0，打勾，确定，OK :p

[Tiger_Zhao]

我看不过去了，nixiaolong (倪小龙) 问的是 VBA（Offece 中的宏编辑器），里面是没法添加 Microsoft Common Dialog Control 的

[pweixing]

VBA可以添加 Microsoft Common Dialog Control ，只是版本都是sp6的，如果要低版本的只有重新安装一下vb6了，不过现在不包含sp5的vb倒是不好找了！
呵呵
安装步骤：
1、先插入一个用户窗体
2、在工具箱上点右键，选择“附加控件”
3、选择Microsoft Common Dialog Control 6.0， version 6.0（sp6）

[沐NeMo]

Private Sub CmdChoosedDir_Click()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
'dialogType
'msoFileDialogFilePicker
'msoFileDialogFolderPicker
'msoFileDialogOpen
'msoFileDialogSaveAs
With dlgOpen
If .Show = -1 Then
txtpath = .SelectedItems(1)
End If
End With
Set dlgOpen = Nothing
End Sub

Private Sub CmdChoosedFiles_Click()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
With dlgOpen
.Filters.Clear
.Filters.Add "文体文件.txt", "*.txt"
'.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
If .Show = -1 Then
' .AllowMultiSelect = True '
' For Each vrtSelectedItem In .SelectedItems
' MsgBox "Path name: " & vrtSelectedItem
' Next vrtSelectedItem
.AllowMultiSelect = False
txtpath = .SelectedItems(1)
End If
End With
Set dlgOpen = Nothing
End Sub

[沐NeMo]

不必引用:Microsoft Common Dialog Control 6.0. 也可以出现对话框 选择文件,或选择文件夹.

[沐NeMo]

但要引用 : Microsoft Office 10.0 Object Library