excel怎么以现有的页面为模板新增页面

Eltrion

在论坛看到一个vlsp操作excel的相关函数合集  里面有操作页面的函数  但好像没有我需要的这种  就是比如现在有页面sheet1   里面做好了一些模板  怎样以sheet1为模板新建一个页面sheet2
下面是函数合集里关于页面操作的函数

2. ;0·获取xls文件的所有页面名称列表
   
3. ;|
   
4. Examples:
   
5. (vlxls-sheet-get-all *xlapp*)  ==>  ( "Sheet1" "Sheet2" "Sheet3" )
   
6. |;
   
7. (defun vlxls-sheet-get-all (xlapp / SH Rtn)
   
8.    (vlax-for SH (vlax-get-property Xlapp "sheets" )
   
9.       (setq Rtn (cons (vlax-get-property sh "Name" ) Rtn))
   
10.    )
    
11.    (reverse Rtn)
    
12. )
    
13. 
    
14. 
    
15. ;0·获取当前页面名称
    
16. ;|
    
17. Examples:
    
18. (vlxls-sheet-get-active *xlapp*)  ==>  "Sheet2"
    
19. |;
    
20. (defun vlxls-Sheet-Get-Active (xlapp)
    
21.    (vlax-get-property (msxl-get-ActiveSheet Xlapp) 'name)
    
22. )
    
23. 
    
24. 
    
25. ;0·删除页面
    
26. ;|
    
27. Examples:
    
28. (vlxls-sheet-delete *xlapp* "Sheet1")  ==>  T
    
29. (vlxls-sheet-delete *xlapp* "UnExistingSheet")  ==>  NIL
    
30. |;
    
31. (defun vlxls-sheet-delete (xlapp Name / sh Rtn)
    
32.    (setq Rtn (vlxls-sheet-get-all Xlapp))
    
33.    (vlax-for sh (vlax-get-property Xlapp "sheets" )
    
34.       (if (= (vlax-get-property sh "Name" ) Name)
    
35.          (vlax-invoke-method sh "Delete" )
    
36.       )
    
37.    )
    
38.    (not (equal Rtn (vlxls-sheet-get-all Xlapp)))
    
39. )
    
40. 
    
41. 
    
42. ;0·更改页名称
    
43. ;|
    
44. Examples:
    
45. (vlxls-sheet-rename "New" "Sheet1" *xlapp*)  ==>  T
    
46. (vlxls-sheet-rename "New" NIL *xlapp*)  ==>  T
    
47. (vlxls-sheet-rename "Sheet3" NIL *xlapp*)  ==>  NIL
    
48. (vlxls-sheet-rename "Sheet2" "Sheet1" *xlapp*)  ==>  NIL
    
49. (vlxls-sheet-rename "Sheet2" "UnExistSheet" *xlapp*)  ==>  NIL
    
50. |;
    
51. (defun vlxls-sheet-rename (New Old Xlapp / sh Rtn)
    
52.    (if (null old)
    
53.       (setq old (msxl-get-name (msxl-get-activesheet Xlapp)))
    
54.    )
    
55.    (if (member New (vlxls-sheet-get-all Xlapp))
    
56.       (setq Rtn nil)
    
57.       (progn
    
58.          (vlax-for sh (vlax-get-property Xlapp "sheets" )
    
59.             (if (= (msxl-get-name sh) Old)
    
60.                (msxl-put-name sh New)
    
61.             )
    
62.          )
    
63.          (setq Rtn
    
64.             (equal New
    
65.                (vlax-get-property (msxl-get-ActiveSheet Xlapp) 'name)
    
66.             )
    
67.          )
    
68.       )
    
69.    )
    
70.    Rtn
    
71. )
    
72. 
    
73. 
    
74. ;0·新增页
    
75. ;|
    
76. Examples:
    
77. (vlxls-sheet-add *xlapp* "Sheet1")  ==>  T
    
78. (vlxls-sheet-add *xlapp* NIL)  ==>  T
    
79. (vlxls-sheet-add *xlapp* "NewSheet")  ==>  NIL
    
80. |;
    
81. (defun vlxls-sheet-add (xlapp Name / Rtn)
    
82.    (if (member name (vlxls-sheet-get-all xlapp))
    
83.       (setq Rtn nil)
    
84.       (progn
    
85.          (vlax-put-property
    
86.             (vlax-invoke-method
    
87.                (vlax-get-property Xlapp "sheets" )
    
88.                "Add"
    
89.             )
    
90.             "name"
    
91.             Name
    
92.          )
    
93.          (setq Rtn (equal (vlxls-sheet-get-active xlapp) name))
    
94.       )
    
95.    )
    
96.    Rtn
    
97. )
    
98. 
    
99. 
    
100. ;0·激活指定页面
     
101. ;|
     
102. Examples:
     
103. (vlxls-sheet-put-active *xlapp* "Sheet1")  ==>  T
     
104. (vlxls-sheet-put-active *xlapp* "NewSheet")  ==>  T
     
105. |;
     
106. (defun vlxls-sheet-put-active (xlapp Name / sh)
     
107.    (if (null (vlxls-sheet-add xlapp name))
     
108.       (vlax-for sh (vlax-get-property Xlapp "sheets" )
     
109.          (if (= (vlax-get-property sh "Name" ) Name)
     
110.             (vlax-invoke-method sh "Activate" )
     
111.          )
     
112.       )
     
113.    )
     
114.    (equal (vlxls-sheet-get-active xlapp) name)
     
115. )
     

;0·获取xls文件的所有页面名称列表<br /> ;|<br /> Examples:<br /> (vlxls-sheet-get-all *xlapp*)  ==>  ( "Sheet1" "Sheet2" "Sheet3" )<br /> |;<br /> (defun vlxls-sheet-get-all (xlapp / SH Rtn)<br />    (vlax-for SH (vlax-get-property Xlapp "sheets" )<br />       (setq Rtn (cons (vlax-get-property sh "Name" ) Rtn))<br />    )<br />    (reverse Rtn)<br /> )<br /> <br /> <br /> ;0·获取当前页面名称<br /> ;|<br /> Examples:<br /> (vlxls-sheet-get-active *xlapp*)  ==>  "Sheet2"<br /> |;<br /> (defun vlxls-Sheet-Get-Active (xlapp)<br />    (vlax-get-property (msxl-get-ActiveSheet Xlapp) 'name)<br /> )<br /> <br /> <br /> ;0·删除页面<br /> ;|<br /> Examples:<br /> (vlxls-sheet-delete *xlapp* "Sheet1")  ==>  T<br /> (vlxls-sheet-delete *xlapp* "UnExistingSheet")  ==>  NIL<br /> |;<br /> (defun vlxls-sheet-delete (xlapp Name / sh Rtn)<br />    (setq Rtn (vlxls-sheet-get-all Xlapp))<br />    (vlax-for sh (vlax-get-property Xlapp "sheets" )<br />       (if (= (vlax-get-property sh "Name" ) Name)<br />          (vlax-invoke-method sh "Delete" )<br />       )<br />    )<br />    (not (equal Rtn (vlxls-sheet-get-all Xlapp)))<br /> )<br /> <br /> <br /> ;0·更改页名称<br /> ;|<br /> Examples:<br /> (vlxls-sheet-rename "New" "Sheet1" *xlapp*)  ==>  T<br /> (vlxls-sheet-rename "New" NIL *xlapp*)  ==>  T<br /> (vlxls-sheet-rename "Sheet3" NIL *xlapp*)  ==>  NIL<br /> (vlxls-sheet-rename "Sheet2" "Sheet1" *xlapp*)  ==>  NIL<br /> (vlxls-sheet-rename "Sheet2" "UnExistSheet" *xlapp*)  ==>  NIL<br /> |;<br /> (defun vlxls-sheet-rename (New Old Xlapp / sh Rtn)<br />    (if (null old)<br />       (setq old (msxl-get-name (msxl-get-activesheet Xlapp)))<br />    )<br />    (if (member New (vlxls-sheet-get-all Xlapp))<br />       (setq Rtn nil)<br />       (progn<br />          (vlax-for sh (vlax-get-property Xlapp "sheets" )<br />             (if (= (msxl-get-name sh) Old)<br />                (msxl-put-name sh New)<br />             )<br />          )<br />          (setq Rtn<br />             (equal New<br />                (vlax-get-property (msxl-get-ActiveSheet Xlapp) 'name)<br />             )<br />          )<br />       )<br />    )<br />    Rtn<br /> )<br /> <br /> <br /> ;0·新增页<br /> ;|<br /> Examples:<br /> (vlxls-sheet-add *xlapp* "Sheet1")  ==>  T<br /> (vlxls-sheet-add *xlapp* NIL)  ==>  T<br /> (vlxls-sheet-add *xlapp* "NewSheet")  ==>  NIL<br /> |;<br /> (defun vlxls-sheet-add (xlapp Name / Rtn)<br />    (if (member name (vlxls-sheet-get-all xlapp))<br />       (setq Rtn nil)<br />       (progn<br />          (vlax-put-property<br />             (vlax-invoke-method<br />                (vlax-get-property Xlapp "sheets" )<br />                "Add" <br />             )<br />             "name" <br />             Name<br />          )<br />          (setq Rtn (equal (vlxls-sheet-get-active xlapp) name))<br />       )<br />    )<br />    Rtn<br /> )<br /> <br /> <br /> ;0·激活指定页面<br /> ;|<br /> Examples:<br /> (vlxls-sheet-put-active *xlapp* "Sheet1")  ==>  T<br /> (vlxls-sheet-put-active *xlapp* "NewSheet")  ==>  T<br /> |;<br /> (defun vlxls-sheet-put-active (xlapp Name / sh)<br />    (if (null (vlxls-sheet-add xlapp name))<br />       (vlax-for sh (vlax-get-property Xlapp "sheets" )<br />          (if (= (vlax-get-property sh "Name" ) Name)<br />             (vlax-invoke-method sh "Activate" )<br />          )<br />       )<br />    )<br />    (equal (vlxls-sheet-get-active xlapp) name)<br /> )<br />

不知道有没有大神可以教下怎么做到这样的效果

edata

可以复制sheet然后改个名字就行了..
如果模板是文件,可以尝试在add的时候加入文件路径及文件名字符串做为模板新建..
(vlax-invoke-method
               (vlax-get-property Xlapp "sheets" )
               "Add" ""文件路径及文件名
            )

Eltrion

edata 发表于 2019-8-5 22:16
可以复制sheet然后改个名字就行了..
如果模板是文件,可以尝试在add的时候加入文件路径及文件名字符串做为 ...

如果是复制sheet改名的话在lsp里要怎么操作呢

Eltrion

edata 发表于 2019-8-5 22:16
可以复制sheet然后改个名字就行了..
如果模板是文件,可以尝试在add的时候加入文件路径及文件名字符串做为 ...

还有大神  如果使用你给的代码

1. (vlax-invoke-method
   
2.                 (vlax-get-property *Xlapp* 'sheets )
   
3.                 'Add  "C:\\Users\\Eltrion\\Desktop\\aaa\\aaa.xlsx"
   
4.             )

复制代码

就会提示; 错误: Automation 错误。 类 Sheets 的 Add 方法无效  按照你的原文也是一样  请问要怎么处理呢   路径是没有问题的