看板Programming
标 题请教大大关於 VBA 的问题...
发信站KKCITY (Thu Nov 15 23:43:00 2007)
转信站ptt!ctu-reader!ctu-peer!news.nctu!netnews.chu!Leo.mi.chu!zoonews.ee.nt
最近在用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
》──┘ ◤ 唱片公司授权，音乐尽情下载
--