Excel常用命令对象调用 升级版。。。

花间一壶酒

缘之圆 发表于 2023-4-9 10:59
楼主  您这边 还可以加一个功能吗？    就是有一个表格，表格区域有特定的公式，想复制原来表格数据，然后 ...

你这种行为是违规的哦  不能在开源区谈生意的  建议直接奔定制区。。。

缘之圆

楼主  您这边 还可以加一个功能吗？    就是有一个表格，表格区域有特定的公式，想复制原来表格数据，然后粘贴为保留值来覆盖原来的表格，让其表格公式的数据变为常数，可以做吗？多少钱？

huang19781029

66666666666666666

impkq

感谢楼主大大的提示，经过几番尝试终于实现想要的功能，贴出来供将来有同样需求的人

  

子程序名	返回值类型	公开	备 注
工作表_复制
参数名	类 型	参考	可空	数组	备 注
工作表索引	整数型
目标工作表索引	整数型

全_表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).方法 (“Copy”, 全_表格集.读对象型属性 (“Item”, 目标工作表索引).读对象型属性 (“Cells”, ).读属性 (“Range”, “A1”))

.版本 2<br /> <br /> .子程序 工作表_复制<br /> .参数 工作表索引, 整数型<br /> .参数 目标工作表索引, 整数型<br /> <br /> 全_表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).方法 (“Copy”, 全_表格集.读对象型属性 (“Item”, 目标工作表索引).读对象型属性 (“Cells”, ).读属性 (“Range”, “A1”))

impkq

赤璃琴殇 发表于 2023-4-7 14:45
如果要复制连同样式的话  可以直接在工作表对象下进行复制  “Worksheet.Copy”  Copy这个方法工作表对象 ...

复制工作表用对象操作怎么写？我试了以下两种方法都不行

  

子程序名	返回值类型	公开	备 注
工作表_复制
参数名	类 型	参考	可空	数组	备 注
工作表索引1	整数型
工作表索引2	整数型

' 全_表格集.读对象型属性 (“Item”, 工作表索引1).写属性 (“Copy”, 全_表格集.读对象型属性 (“Item”, 工作表索引2))
全_表格集.读对象型属性 (“Item”, 工作表索引1).写属性 (“Copy”, 工作表索引1)

.版本 2<br /> <br /> .子程序 工作表_复制<br /> .参数 工作表索引1, 整数型<br /> .参数 工作表索引2, 整数型<br /> <br /> ' 全_表格集.读对象型属性 (“Item”, 工作表索引1).写属性 (“Copy”, 全_表格集.读对象型属性 (“Item”, 工作表索引2))<br /> 全_表格集.读对象型属性 (“Item”, 工作表索引1).写属性 (“Copy”, 工作表索引1)

花间一壶酒

impkq 发表于 2023-4-7 14:34
试过了，这样不行，你点复制好的表打印预览试试，这个只能复制内容，无法复制整体格式，比如单元格宽度， ...

或者你直接  复制的第三个参数“目标位置”不要填写  直接复制到剪切板   然后用粘贴的方法进行粘贴   粘贴的参数第一个是可以选择粘贴样式的 参数说明看文档

花间一壶酒

impkq 发表于 2023-4-7 14:34
试过了，这样不行，你点复制好的表打印预览试试，这个只能复制内容，无法复制整体格式，比如单元格宽度， ...

如果要复制连同样式的话  可以直接在工作表对象下进行复制  “Worksheet.Copy”  Copy这个方法工作表对象也可以使用

impkq

impkq 发表于 2023-4-7 14:34
试过了，这样不行，你点复制好的表打印预览试试，这个只能复制内容，无法复制整体格式，比如单元格宽度， ...

Function 生成表格(n As Integer)
Dim i As Integer
Dim shuliang As Integer
shuliang = Range("AN13").Value
For i = 1 To shuliang
ActiveSheet.Name = "Sheet" & i
ActiveSheet.Copy after:=ActiveSheet
Next i
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete
Application.DisplayAlerts = True
Sheets("Sheet1").Select
End Function

impkq

赤璃琴殇 发表于 2023-4-7 12:28
[e=0].版本 2

.子程序 复制表格例子

试过了，这样不行，你点复制好的表打印预览试试，这个只能复制内容，无法复制整体格式，比如单元格宽度，高度。
有没有什么复制工作表的命令，而不是复制单元格。像vba中的Copy after命令一样？

花间一壶酒

impkq 发表于 2023-4-7 09:44
感谢分享，正好需要，一直用libxl，试试这个。想要一个功能不知道能不能实现：本来表格只有一个正常使用工 ...

  

子程序名	返回值类型	公开	备 注
复制表格例子

变量名	类 型	静态	数组	备 注
工作表索引	整数型
i	整数型
区域	文本型

工作表索引 ＝ 工作表_取工作表索引 (“要复制的工作表”)
计次循环首 (工作表_取工作表数量 (), i)
如果真 (工作表索引 ≠ i)
区域 ＝ “A1”  ＋ “:'目标列数'” ＋ 到文本 (单元格_取已用行数 (工作表索引))  ' 目标列数 就是你要复制的表的最后一个列号 如A B C D。。。。。
单元格_复制 (工作表索引, 区域)
单元格_粘贴 (i, 区域)
Excel_隐藏警示框（真）
Excel_保存 ()
Excel_隐藏警示框（假）

计次循环尾 ()

.版本 2<br /> <br /> .子程序 复制表格例子<br /> .局部变量 工作表索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 区域, 文本型<br /> <br /> 工作表索引 ＝ 工作表_取工作表索引 (“要复制的工作表”)<br /> .计次循环首 (工作表_取工作表数量 (), i)<br />     .如果真 (工作表索引 ≠ i)<br />         区域 ＝ “A1”  ＋ “:'目标列数'” ＋ 到文本 (单元格_取已用行数 (工作表索引))  ' 目标列数 就是你要复制的表的最后一个列号 如A B C D。。。。。<br />         单元格_复制 (工作表索引, 区域)<br />         单元格_粘贴 (i, 区域)<br />         Excel_隐藏警示框（真）<br />         Excel_保存 ()<br />         Excel_隐藏警示框（假）<br />     .如果真结束<br /> <br /> .计次循环尾 ()

差不多就是这样