求Word弹出文件夹选择框代码

aerosol

下面是一个弹出文件夹选择框代码。

Dim xlsFile As String Dim CDLG As Object Set CDLG = CreateObject("MSComDlg.CommonDialog") With CDLG .DialogTitle = "打开文件" .Filter = _ "Excel File|*.xls" .ShowOpen 'MsgBox .FileName End With

Dim xlApp As Object

Set xlApp = CreateObject("Excel.Application") 'New Excel.Application '‘创建EXCEL应用程序对象

Dim xlBook As Object '‘'EXCEL所打开的EXCEL对象

Set xlBook = xlApp.Workbooks.Open(CDLG.FileName) '‘打开XLS文件 xlApp.Workbooks.Application.Visible = True Set CDLG = Nothing

我这个代码在某些电脑上可以，好多电脑上用不了好像是CreateObject("MSComDlg.CommonDialog")的问题，我搞不太清楚，请各位大虾指点，帮我改一下，谢谢

守柔

请参：

Sub Example2()'此代码功能为列出指定文件夹中所有选取的WORD文件全路径名 Dim MyDialog As FileDialog, GetStr As String On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '清除所有文件筛选器中的项目 .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件 .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环 GetStr = GetStr & vbCrLf & vrtSelectedItem Next vrtSelectedItem ' MsgBox GetStr Selection.InsertAfter GetStr '列出所有文件名 End If End With End Sub

cxffxc

一个很不错的东东。

我把.Filters.Add "所有 WORD 文件", "*.doc", 1改成了.Filters.Add "所有文件", "*.*", 1，用直来更方便了。

aerosol

太感谢了，你真是我们的偶像啊向你敬礼！！！！！