麻辣家族討論版版 - Powered by Discuz! Board

標題: 使用者自訂形態尚未定義 [打印本頁]

作者: Happkkevin 時間: 2011-7-13 01:44 標題: 使用者自訂形態尚未定義

以前由其他資源取得的檔案，研究語法中
但複製相關物件與目錄，卻與原始檔執行差異
提示錯誤: 使用者自訂形態尚未定義
落在這兩者
Public fso As New Scripting.FileSystemObject
Public sfolder As Folder

對其隱藏時執行結果為子目錄未引用無法呈現

複製匯出檔
[attach]6989[/attach]
原始檔精簡
[attach]6990[/attach]

麻煩先進指導囉

作者: GBKEE 時間: 2011-7-13 08:43

回復 1# Happkkevin
在Vba 工具->設定引用項目加入 Microsoft Scripting Runtime
如圖

[attach]6992[/attach]

作者: Happkkevin 時間: 2011-7-13 20:25

感謝版大的幫助，這問題解決了
想整理這個檔案符合自己需求
在檔案列表中，以下語法列出了檔案等需要格式
是否可新增欄位
以 .Cells(i, 16) = f.【顯示作者】
.Cells(i, 17) = f.【顯示標題】
語法增加作者與標題資料

   .Cells(i, 11).Select
      ActiveSheet.Hyperlinks.add anchor:=Selection, Address:=spath & sFileName, _
                  TextToDisplay:=sFileName
      .Cells(i, 12) = Int(FileLen(spath & sFileName) / 1024) & " kb"
      .Cells(i, 13) = VBA.Right(Cells(i, 11), 3)
      Set f = fs.GetFile(spath & sFileName) '返回指定路徑文件所對應的 File 對象
      .Cells(i, 14) = f.DateCreated
      .Cells(i, 15) = f.DateLastModified

作者: yuchin 時間: 2013-6-11 12:18

無法下載檔案，可能是權限不足吧！
不然，可以幫你看看

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)