→ soyoso: 取得路徑後再以迴圈do..loop配合dir取檔名 09/02 18:07
→ babygiggles: ！原來如此！我知道我哪邊錯誤了！謝謝您！ 09/02 18:11
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