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

nywl2008

好东西，收下了。。。 感谢分享

花间一壶酒

缘之圆 发表于 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命令一样？