[算表] 請教VBA同時匯出與匯入.txt檔

看板Office作者babygiggles (咯咯笑)時間9年前 (2016/09/02 16:59)推噓0(0推 0噓 3→)

留言3則, 2人參與討論串1/1

Excel2013 最近剛初學EXCEL VBA 主要要寫一個方便文獻整理的小程式幫助工作文獻查找順利進行目前構想是：找出文件夾(包含子目錄)下的文獻檔名，然後輸入進excel表單內但一直沒有辦法解決以下問題：我在主程式內呼叫A程式會將所有我設定的檔案資料夾路徑寫入一個subfolder.txt內程式碼如下 Open subpath For Append As #1 Call GetFolderInfo(inputpath) Close #1 ----其中呼叫的程式是---- Sub GetFolderInfo(ByVal Target As String) With CreateObject("Scripting.FileSystemObject") If .GetFolder(Target).SubFolders.Count > 0 Then Dim f As Object For Each f In .GetFolder(Target).SubFolders Call GetFolderInfo(f.path) Next f End If Print #1, Target End With End Sub ----這部分有參考市面上的書籍直接使用----- 接著下面我會再重新開啟這個subfolder.txt讀入在文字檔內的路徑以做使用 Open path For Input As #2 Line Input #2, ppath MsgBox ppath Close #2 但是到要再讀取這邊就出現問題一直卡在這邊我已經close匯入的#1文件了這時候不能用open再打開#2嗎? (但是#1跟#2是同一個文件) 我要怎麼樣才能夠獲得子資料夾的路徑進而取得檔名呢? 先謝謝大家 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.251.135.186 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1472806766.A.9FF.html