我想复制粘贴excel中的数据表(见下代码),但效率太低,每张表大概花费2秒,不知道大家有没有更好的方法
tmpExcel.Worksheets(tableName).Range("A1:AJ28").Copy
For count=2 To tableCount
tmpExcel.Worksheets(tableName).Range("A" & rangeValue).PasteSpecial
rangeValue=rangeValue+28
Next
原文地址: http://qqcik.5d6d.net/viewthread.php?tid=365&extra=
tmpExcel.Worksheets(tableName).Range("A1:AJ28").Copy
For count=2 To tableCount
tmpExcel.Worksheets(tableName).Range("A" & rangeValue).PasteSpecial
rangeValue=rangeValue+28
Next
原文地址: http://qqcik.5d6d.net/viewthread.php?tid=365&extra=
将单元格区域复制到指定的区域或剪贴板中。
语法表达式.Copy(Destination)表达式 一个代表 Range 对象的变量。参数名称 必选/可选 数据类型 说明
Destination 可选 Variant 指定区域要复制到的新域。如果省略此参数,Microsoft Excel 会将区域复制到剪贴板。 返回值
Variant示例
此示例将工作表 Sheet1 上单元格区域 A1:D4 中的公式复制到工作表 Sheet2 上的单元格区域 E5:H8 中。Visual Basic for Applications
Worksheets("Sheet1").Range("A1:D4").Copy _
destination:=Worksheets("Sheet2").Range("E5")