[求助]需要从csv文件中读取,所以我做了一个导入对话框

hhb4251

Private Sub cmdDataINPUT_Click()
Dim MyDialog As FileDialog, GetStr As String
On Error Resume Next                          '忽略错误 '定义一个文件夹选取对话框
                                              'Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
Set MyDialog = Application.FileDialog(msoFileDialogOpen) '
With MyDialog
.Filters.Clear                                '清除所有文件筛选器中的项目
.Filters.Add "csv 文件", "*.csv", 1           '增加筛选器的项目为所有csv文件
.AllowMultiSelect = True                      '允许多项选择
.Title = "选择导入文件"

If .Show = -1 Then                            '确定

 For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环,取得所选的文件路径和文件名
GetStr = GetStr & vbCrLf & vrtSelectedItem
Next vrtSelectedItem
'MsgBox GetStr

'Workbooks.Open FileName:="GetStr"    '打开该文件,但是这里却行不通,苦恼的就是这里

Workbooks.Open FileName:="C:\CAS系统导入文件-忽视的法士大夫似的发--1复件5.csv"      '打开该文件,用这个可以打开,但不是我想要的,因为每次要打开的文件是用户选择的那个,而不是固定这个

cboType.Text = Sheets(1).Cells(4, 2)          'cboType是系统界面上的控件,他的值等于选中的文件的Sheets(1).Cells(4, 2)   ,这里只是举例,真正系统中有很多

ActiveWorkbook.Close                                '关闭打开的文件            

'Windows("C:\CAS系统导入文件-忽视的法士大夫似的发--1复件5.csv").Close      '关闭打开的文件
' Workbooks(GetStr).Close True                  '关闭打开的文件,但这里也行不同,不过可以用这个ActiveWorkbook.Close 

End If
End With

End Sub

还有一个问题是:以上次序弹出的"选择导入文件"对话框,我单击一个文件的时候,文件名的地方没有显示该文件的文件名,仍然是空白的,但这个不是很要紧.

高手们帮帮忙帮我改以下,也可以从新帮我编一个,先谢了!

 

 

 

 

守柔

大哥，你连抄我的代码也不行啊？我晕。

试一下这个：

Sub Example2()    '此代码功能为列出指定文件夹中所有选取的WORD文件全路径名
    Dim MyDialog As FileDialog
    Dim vrtSelectedItem As Variant, myXls As Workbook
    On Error Resume Next    '忽略错误
    '定义一个文件夹选取对话框
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
    With MyDialog
        .Filters.Clear    '清除所有文件筛选器中的项目
        .Filters.Add "csv 文件", "*.csv", 1           '增加筛选器的项目为所有csv文件
        .AllowMultiSelect = True    '允许多项选择
        If .Show = -1 Then    '确定
            For Each vrtSelectedItem In .SelectedItems    '在所有选取项目中循环
                Set myXls = Workbooks.Open(Filename:=vrtSelectedItem)
                MsgBox myXls.Sheets(1).Cells(4, 2).Value
                '               cbotype.Text = myXls.Sheets(1).Cells(4, 2).Value
                myXls.Close False
            Next
        End If
    End With
End Sub

[此贴子已经被作者于2006-9-28 6:43:47编辑过]

hhb4251

呵呵，斑竹见怪末怪，先谢了，我昨晚凑了半天才凑出有同样功能的语句，但是写的很不规范，斑竹的写的很清楚。

但是第二个问题还是没解决：以上程序弹出的对话框,我单击一个文件的时候,文件名的地方没有显示该文件的文件名,仍然是空白的。我想应该是对话框的参数没设置好，但是又不知道应该对哪个参数进行设置。vb的帮助里面也找不到这个参数。请斑竹赐教。

守柔

QUOTE:

以下是引用hhb4251在2006-9-28 21:58:11的发言：

但是第二个问题还是没解决：以上程序弹出的对话框,我单击一个文件的时候,文件名的地方没有显示该文件的文件名,仍然是空白的。我想应该是对话框的参数没设置好，但是又不知道应该对哪个参数进行设置。vb的帮助里面也找不到这个参数。请斑竹赐教。

显示文件名有意义吗？

你的目的在于打开所有选定的文件，而不论文件名的，我晕。

hhb4251

QUOTE:

以下是引用守柔在2006-9-29 6:40:16的发言：

显示文件名有意义吗？

你的目的在于打开所有选定的文件，而不论文件名的，我晕。

不好意思,守斑竹,我首先更正一下,我现在把他设成一次只能打开一个文件了,而不是打开所有选定的文件.

我想让他显示文件名是因为,这个系统是一个比较正式的系统（目前为止程序代码有６００００行，而且开发还没完全结束）,使用人员很多,而且大部分都是非本公司人员,考虑到公司形象问题,我就尽全力把它做的更好,希望大家能够理解,如果高手们知道怎么设置,希望不啬赐教.先谢了！

守柔

请楼主检查一下Word自带的打开对话框（CTRL+O），它这样做了吗？

由于需要根据用户的不同选定文件的单击事件才能显示不同的文件名，我不知道如何捕捉这个事件，在FileDialog对象中，没有提供这个功能。

hhb4251

我看了word自带的打开对话框,确实是没有这么做,斑竹谢了!