grant版主，关于批量导入csv文件，再次地请教版主！

Grant

1、如果我想每次仅选择待导入数据文件夹下的一个csv文件，代码如何更改呢？
更改列表框属性 多重选择=无
2.不删除原文件夹csv
    Dim mycount As Long
    Dim I As Integer
    mycount = Me.List1.ListCount   '列数
    If mycount = 0 Then
        MsgBox "导入完毕！'待导入的数据'文件夹中已经没有文件可以导入!"
            MsgBox "a"
        Exit Sub
    End If
For I = 1 To mycount
        Dim cur_path As String
        cur_path = CurrentProject.Path & "\待导入数据\"    '被导入的csv文件存放路径
        out_path = CurrentProject.Path & "\已导入数据\"    '已导入的csv文件存放路径
        Dim csv_name As String
        csv_name = Me.List1.ItemData(mycount - 1) '要导入的文件名:从最后一个开始导入
  
Call ReadCSVFile(cur_path, csv_name)  '调用模块
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.MoveFile cur_path & csv_name, out_path & csv_name
'取消fso后即可.

        Me.List1.RemoveItem csv_name   '        '从原列表中删除
        mycount = mycount - 1
Next I
MsgBox "导入完成", vbInformation, "提示!"

Grant

版主，我好像没说明白。在不删除、改变待导入csv文件夹下，我想每次可以任意地选择其中的一个csv文件，并在同一个主窗体上体现出来。以便对该主窗体做查询等工作（已完成）。
另外，这种导入方法对处于打开和更新状 ...
xxj0109 发表于 2009-3-17 10:47

任意选择一个csv文件不是回答了吗?

第二个问题独占打开,应该是不行,具体还没试过不知道能否更改打开方式.

Grant

或者你上传你的示例,我给你测试一下

Grant

汗,给这个文件我有什么用,还有一个办法可以实现.就是创建副本
用API对文件进行复制,然后在进行导入就不存在打开后无法链接导入的情况了.

Grant

不用移动用复制
fso.CopyFile cur_path & csv_name, out_path & csv_name
复制后,导入已复制后的文件.这样子问题不就解决了,用fso来解决.