請教大大關於 VBA 的問題...
最近在用excel 執行一些工作，不過出現了些問題，還請大大們指點~
Dim f_list, name_prefix, name_postfix As String
Set fa = CreateObject("scripting.filesystemobject")
f_list = Dir(ActiveWorkbook.Path & "\scr\*.*")
Set s = fa.GetExtensionName(f_list)
Do
name_prefix = Left(file_list, 5)
MsgBox s
MsgBox a
name_postfix = Right(file_list, 1)
MsgBox (name_prefix & " " & name_postfix)
Loop Until Len(file_list) = 0
以上編譯時會在 Set s = fa.GetExtensionName(f_list) 時出現型態不符合的錯誤<
請問各位大大我哪邊寫錯了呢?
感謝指點~
--
┌─────◆ＫＫＣＩＴＹ◆─────┐ ◢ ◤ 找歌最方便 KKBOX 歌詞搜尋!!
│ bbs.kkcity.com.tw │ \^_^ / ★http://www.kkbox.com.tw★
└──《From:218.165.41.192 》──┘ ◤ 唱片公司授權，音樂盡情下載
--
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
