grant版主，關(guān)于批量導(dǎo)入csv文件，再次地請教版主！

xxj0109

grant版主，關(guān)于批量導(dǎo)入csv文件，見帖子http://m.mzhfr.cn/vvb/thread-56710-1-1.html。我也想繼續(xù)請教您：
1、如果我想每次僅選擇待導(dǎo)入數(shù)據(jù)文件夾下的一個csv文件，代碼如何更改呢？
2、如果這些csv處在打開狀態(tài)下，我還能夠?qū)�入并進行查詢工作嗎？

grant版主，找上面那個帖子幾天了，麻煩您幫忙再解答一下好嗎？能把那個帖子里的附件修改一下嗎？我是新手。
拜托了！
謝謝！

xxj0109

補充一句，導(dǎo)入完畢后，不刪除原文件夾下的csv文件。
grant版主，急切地等待！。。。。。。

xxj0109

這個問題不能再請教了嗎？繼續(xù)等。。。。。。。。。。

Grant

1、如果我想每次僅選擇待導(dǎo)入數(shù)據(jù)文件夾下的一個csv文件，代碼如何更改呢？
更改列表框?qū)傩?多重選擇=無
2.不刪除原文件夾csv
    Dim mycount As Long
    Dim I As Integer
    mycount = Me.List1.ListCount   '列數(shù)
    If mycount = 0 Then
        MsgBox "導(dǎo)入完畢！'待導(dǎo)入的數(shù)據(jù)'文件夾中已經(jīng)沒有文件可以導(dǎo)入!"
            MsgBox "a"
        Exit Sub
    End If
For I = 1 To mycount
        Dim cur_path As String
        cur_path = CurrentProject.Path & "\待導(dǎo)入數(shù)據(jù)\"    '被導(dǎo)入的csv文件存放路徑
        out_path = CurrentProject.Path & "\已導(dǎo)入數(shù)據(jù)\"    '已導(dǎo)入的csv文件存放路徑
        Dim csv_name As String
        csv_name = Me.List1.ItemData(mycount - 1) '要導(dǎo)入的文件名:從最后一個開始導(dǎo)入
  
Call ReadCSVFile(cur_path, csv_name)  '調(diào)用模塊
  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 "導(dǎo)入完成", vbInformation, "提示!"

xxj0109

謝謝gg版主，去學(xué)習(xí)嘍

xxj0109

版主，我好像沒說明白。在不刪除、改變待導(dǎo)入csv文件夾下，我想每次可以任意地選擇其中的一個csv文件，并在同一個主窗體上體現(xiàn)出來。以便對該主窗體做查詢等工作（已完成）。
另外，這種導(dǎo)入方法對處于打開和更新狀態(tài)的csv文件可以嗎？

xxj0109

Grant

版主，我好像沒說明白。在不刪除、改變待導(dǎo)入csv文件夾下，我想每次可以任意地選擇其中的一個csv文件，并在同一個主窗體上體現(xiàn)出來。以便對該主窗體做查詢等工作（已完成）。
另外，這種導(dǎo)入方法對處于打開和更新狀 ...
xxj0109 發(fā)表于 2009-3-17 10:47

任意選擇一個csv文件不是回答了嗎?

第二個問題獨占打開,應(yīng)該是不行,具體還沒試過不知道能否更改打開方式.

xxj0109

我試運行時后，已導(dǎo)入的csv文件夾下好像還是把所有的csv都導(dǎo)入過來了。
還有，我怎么能在窗體上看到被導(dǎo)入的文件？

Grant

或者你上傳你的示例,我給你測試一下