Happkkevin

　暱稱: Kevin

中學生 Rank: 2

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-7-13 01:44 | 只看該作者

使用者自訂形態尚未定義

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

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

複製匯出檔

資料夾資料查詢.rar (86.1 KB)
原始檔精簡

電腦文件檔名管理系統整理.rar (727.35 KB)

麻煩先進指導囉

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-7-13 08:43 | 只看該作者

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

TOP

Happkkevin

　暱稱: Kevin

中學生 Rank: 2

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

3^#

發表於 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

TOP

yuchin

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 7
點名: 0
作業系統: mac
軟體版本: 10
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2013-6-11
最後登錄: 2013-6-11

4^#

發表於 2013-6-11 12:18 | 只看該作者

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

TOP