如何用lsp打开相对路径的excel文件

leedun

请教各位前辈，有咩有什么办法能实现打开相对路径下的excel文件

飞雪神光

1. ;;;名称:BF-Excel-Open
   
2. ;;;说明:打开一个excel文件
   
3. ;;;参数:Filename:文件路径
   
4. ;;;参数:ishide:是否可见，t为可见，nil为不可见
   
5. ;;;返回:一个表示打开的excel文件的vla对象
   
6. ;;;示例BF-Excel-Open "C:\\Users\\vic\\Desktop\\1.xlsx" t)
   
7. (Defun BF-Excel-Open (filename ishide / ActiveSheet ExcelApp Rtn Sheets WorkSheet)
   
8.         ;(setq filename (strcase filename))
   
9.         ;(if (null (wcmatch filename "*.xls"))
   
10.         ;  (setq filename (strcat filename ".xls"))
    
11.         ;)
    
12.   (if (and (findfile filename)
    
13.                                 (setq Rtn (vlax-get-or-create-object "Excel.Application"))
    
14.       )
    
15.     (progn
    
16.       (vlax-invoke
    
17.                                 (vlax-get-property Rtn 'WorkBooks)
    
18.                                 'Open
    
19.                                 filename
    
20.       )
    
21.       (if ishide
    
22.                                 (vla-put-visible Rtn 1)
    
23.                                 (vla-put-visible Rtn 0)
    
24.       )
    
25.     )
    
26.   )
    
27.   Rtn
    
28. )
    
29. (BF-Excel-Open "D:\\数据处理.xlsm" t)
    
30. (BF-Excel-Open (strcat (getvar "DWGPREFIX") "数据处理.xlsm") t)

;;;名称:BF-Excel-Open<br /> ;;;说明:打开一个excel文件<br /> ;;;参数:Filename:文件路径<br /> ;;;参数:ishide:是否可见，t为可见，nil为不可见<br /> ;;;返回:一个表示打开的excel文件的vla对象<br /> ;;;示例<img src="static/image/smiley/default/sad.gif" smilieid="2" border="0" alt="" />BF-Excel-Open "C:\\Users\\vic\\Desktop\\1.xlsx" t)<br /> (Defun BF-Excel-Open (filename ishide / ActiveSheet ExcelApp Rtn Sheets WorkSheet)<br />         ;(setq filename (strcase filename))<br />         ;(if (null (wcmatch filename "*.xls"))<br />         ;  (setq filename (strcat filename ".xls"))<br />         ;)<br />   (if (and (findfile filename)<br />                                 (setq Rtn (vlax-get-or-create-object "Excel.Application"))<br />       )<br />     (progn<br />       (vlax-invoke<br />                                 (vlax-get-property Rtn 'WorkBooks)<br />                                 'Open<br />                                 filename<br />       )<br />       (if ishide<br />                                 (vla-put-visible Rtn 1)<br />                                 (vla-put-visible Rtn 0)<br />       )<br />     )<br />   )<br />   Rtn<br /> )<br /> (BF-Excel-Open "D:\\数据处理.xlsm" t)<br /> (BF-Excel-Open (strcat (getvar "DWGPREFIX") "数据处理.xlsm") t)

leedun

飞雪神光 发表于 2024-5-15 07:59

感谢前辈回复，我把代码修改之后打不开文件，应该是我不会改的问题，麻烦前辈直接赐予代码
以下是绝对路径代码
(defun c:ZBCL()
(startapp "C:\\Program Files (x86)\\Microsoft Office\\Office16\\EXCEL.EXE" "D:\\数据处理.xlsm")
)
代码需求是我把文件所在文件夹设置支持搜索路径，根据文件名用代码打开，感谢！

leedun

菜卷鱼 发表于 2024-5-14 14:57
(startapp
    "C:\\Program Files (x86)\\Microsoft Office\\root\\Office16\\EXCEL.EXE"
    "E:\\我的 ...

感谢回复，我的代码就是这样写的，要打开的文件地址能不能用相对路径，或者支持搜索路径

飞雪神光

有啊  先用系统变量获得相对路径 再打开文件

leedun

飞雪神光 发表于 2024-5-14 07:45
有啊  先用系统变量获得相对路径 再打开文件

可以用lsp设置打开文件吗

飞雪神光

可以的 有相关操作Excel函数

菜卷鱼

(startapp
    "C:\\Program Files (x86)\\Microsoft Office\\root\\Office16\\EXCEL.EXE"
    "E:\\我的文档\\通讯录\\2016.11.04通讯录.xls"
  )

leedun

飞雪神光 发表于 2024-5-14 07:48
可以的 有相关操作Excel函数

我现在的代码是(startapp "C:\\Program Files (x86)\\Microsoft Office\\Office16\\EXCEL.EXE" "E:\\数据处理V2.0.xlsm")，如何用相对路径啊，请前辈指教

飞雪神光

1. (strcat (getvar "DWGPREFIX") "数据处理V2.0.xlsm")
   
2. 或者
   
3. (strcat (getvar "DWGPREFIX") (vl-filename-base (getvar "DWGNAME")) ".xlsm")

(strcat (getvar "DWGPREFIX") "数据处理V2.0.xlsm")<br /> 或者<br /> (strcat (getvar "DWGPREFIX") (vl-filename-base (getvar "DWGNAME")) ".xlsm")