vl-file-copy 运行时有时无是怎么回事?

st788796 · 发表于 2015-4-22 11:42:12

既然无法 findfile LHM_tf, LHM_tf 哪来的名字？没有名字怎么 copy!

还可以
(setq excel (vlax-get-or-create-object "Excel.Application")
wks (vlax-get excel 'Workbooks)
)
(setq wk (vlax-invoke wks 'Open (findfile "接线图程序.xls")))
(vlax-invoke wk 'Savead "test.xls")
(vlax-put excel 'Visible 1)
(vlax-release-object excel)

aeo · 发表于 2015-4-23 16:29:11

挚友01 发表于 2015-4-16 09:14
(if (setq LHM_tf (getfiled "选择文件" "" "xls" 32))
返回一个xls为后缀的文件名，只是一个字符串而已 ( ...

getfiled------>如果不存在，那LHM_tf= nil -----》 (findfile nil) 会什么结果？？？

挚友01 · 发表于 2015-4-23 23:49:38

本帖最后由挚友01 于 2015-4-23 23:58 编辑

(setq LHM_tf (getfiled "选择文件" "" "xls" 32)) 输入456gfher
(prin1 LHM_tf)(getpoint)
"C:\\Users\\Administrator\\Documents\\456gfher.xls" ; 的确返回了一个有路径的文件名字符串，下面就是判断其是否存在啊
(if LHM_tf
(if (findfile LHM_tf)
   (startapp "EXCEL" LHM_tf)
   (if (setq tf1 (findfile "接线图程序.xls"))
   (progn
      (vl-file-copy tf1 LHM_tf)
      (startapp "EXCEL" LHM_tf)
   ) )
)
)

我是想要做的是，输入一个文件名**.xls，如果不存在就新建一个，如果存在就直接打开...

挚友01 · 发表于 2015-4-24 09:02:46

终于搞了个半明白了，出错的不是前的语句，是在这(startapp "EXCEL" LHM_tf)
startapp在有些机器不认前面的路径"C:\\Users\\Administrator\\Documents\\456gfher.xls"错误
如果改成(startapp "EXCEL" "456gfher.xls")就没错了，现在要搞清楚的是(startapp为什么不认路径名了...

挚友01 · 发表于 2015-4-24 09:15:15

(startapp "notepad.exe" "\"my stuff.txt\"") 如何在变量里加入\"

挚友01 · 发表于 2015-4-24 10:44:49

(startapp "EXCEL" (strcat (chr 34) LHM_tf (chr 34))) 就ok了

账号		自动登录	找回密码
密码			立即注册

[求助] vl-file-copy 运行时有时无是怎么回事?