lisp 如何操作EXCEL ????????????????

挚友01

请问: 1. 在lisp中如何判断某个工作薄是否已经打过?
         2. 用lsip如何操作,将EXCEL某个工作表拷贝到当前的工作表?
        3. 如何获取某个工作表有内容的某一列最后一行行号?
请多多指教!!!

挚友01

大师,你给出的是一种方法,我只会lisp,VLISP还没学会,我看过一段代码:
(Defun vlxls-app-open(XLSFile UnHide / ExcelApp WorkSheet Sheets ActiveSheet Rtn)
  ;;;function: this program can open an excelfile
  (setq XLSFile (strcase XLSFile))
  (if (null (wcmatch XLSFile "*.XLS"))
  (setq XLSFile (strcat XLSFile ".XLS")))
  (if (and (findfile XLSFile)
       (setq Rtn (vlax-get-or-create-object "Excel.Application")))
    (progn (vlax-invoke-method (vlax-get-property Rtn 'WorkBooks)
        'Open XLSFile)
(if UnHide
    (vla-put-visible Rtn 1)
    (vla-put-visible Rtn 0))))
  Rtn)

;;;Examples:
;;;(setq *xlapp* (vlxls-app-open “C:/test.XLS” T)) e #<VLA-OBJECT _Application 001efd2c>
意思是打开一个EXCEL文件,现在我想要判断这个文件是否已经打开,这要怎么改?
第二个问题是,有一个表,我称之为模版,这个表中有内嵌对应的VBA程序,当新建一个表时,要将模版的所有内容拷入新表中.并实现模版中的所有功能(VBA程序作用).

Free-Lancer

1 a. (vlax-get-object "Excel.Application") -> workbooks -> foreach workbook name
   b. vl-file-size 不可读取返回 nil

2 查找前面每日一码

3 用 UsedRange 后获取 Column ，倒着往前第一个有内容的单元格

挚友01

能具体点吗，有代码能一点点琢磨出来点，还有第二个问题将模版的嵌入的VBA也拷，行吗?

Free-Lancer

挚友01 发表于 2015-2-8 21:44
能具体点吗，有代码能一点点琢磨出来点，还有第二个问题将模版的嵌入的VBA也拷，行吗?

没看懂你要表达什么意思，Excel 启动后用 workbooks 获取的是文档集合，每个文档中又可以获取 Sheets 集合，Excel 的 ActiveSheet 是当前 Sheet，遍历 WorkBooks 获取其它 WorkBook 中的 Sheets，再遍历 Sheets  中的 Sheet ，获取 UsedRange ，复制到 ActiveSheet

Excel.Application -> WorkBooks
                             ->WorkBook -> Sheets
                                                     -> Sheet -> UsedRange


这种关系和 Autocad  一样，只不过 Autocad  没有第三级，Document 就一个

AutoCAD.Application -> Documents
                                   -> Document

iLisp

挚友01 发表于 2015-2-9 21:06
大师,你给出的是一种方法,我只会lisp,VLISP还没学会,我看过一段代码:
(Defun vlxls-app-open(XLSFile UnHi ...

打开的文件在windows是锁定状态，使用vl-file-size返回nil
使用com方式复制Range会把公式一起复制的(相对引用)至于VBA控制没有遇到过，你可以发个文件上来测试下

挚友01

MSXL-GET-ACTIVESHEET 这个函数在哪去找到和在哪去装载?

挚友01

随便加载一段看是不是能拷贝过来
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
'If Target.Row <= 4 Then
  '  Range("A5").Select
'End If
End Sub

挚友01

还有就是在VLISP程序控制中能不能在EXCEL里执行个宏命令?

iLisp

挚友01 发表于 2015-2-9 22:57
还有就是在VLISP程序控制中能不能在EXCEL里执行个宏命令?

为什么要这样做？

konglong604

Free-Lancer 发表于 2015-2-8 09:51

请教一下,为什么我用vl-file-size来判断一个打开的EXCEL文件,仍然能够获取文件大小,并不是返回 nil
我也想判断一个EXEL是否打开,如果打开了,就不再重复打开.

fengyun7000

能打开文件的前提条件是不是要保持Excel文件打开状态？

fengyun7000

(defun getfilerange(ExcelFile SheetName / xl wbs wb fn shs sh usr row yn column xn ret)
        (vl-load-com)
        (setq ExcelFile fn SheetName s_name)
        ;(STARTAPP "EXPLORER.EXE""C:\\Program Files (x86)\\Microsoft Office\\root\\Office16\\EXCEL.EXE")
        (setq xl (vlax-get-or-create-object "Excel.Application"))
        (setq wbs (vlax-get-property xl "WorkBooks"))
        (setq wb (vlax-invoke-method wbs "Open" ExcelFile))
        (setq shs (vlax-get-property wb "Sheets"))
        (setq sh (vlax-get-property shs "Item" SheetName))
        (setq usr (vlax-get-property sh 'usedRange))
        (setq row (vlax-get-property usr 'rows))
        (setq yn (vlax-get-property row 'count))
        (setq column (vlax-get-property usr 'columns))
        (setq xn (vlax-get-property column 'count))
        (vlax-invoke-method wb "Close")
        (vlax-invoke-method xl "Quit")
        (vlax-release-object xl)
        (setq yn(itoa yn))
        (setq ret(chr (+ xn 64)))
        (setq ret (strcat "A3:" ret yn))
);end fun
我用这个读，总是一会行，一会又说实参太少，打不开Excel文件，哪位给详细解释下？
我是刚入门，是不是一开始要运行下打开Excel。EXE？