如何将一工作表的内容格式等原封不动地拷贝到另一个工作表中
编号：QA002200
建立日期: 1999年12月8日 最后修改日期：1999年12月8日
所属类别：
dkf:
操作系统: win98
编程工具: vba for excel
问题: 如何将一工作表的内容格式等原封不动地拷贝到另一个工作表中？
在sheet1中预先设置好了一个空表（包括标题、表头、各行中的左端内容、各行列的大小等），此sheet可隐藏，我想编写VBA程序，将sheet1原封不动地拷贝到sheet2中，要求格式也不发生变化，类似于模板那样，然后再在sheet2的空白单元格中填加需要的内容，这样就生成了正式的打印报表。我想知道实现“如何将sheet1原封不动地拷贝到sheet2中”。如果使用复制到剪贴板中然后再粘贴的话，内容不变，但各行列格式大小会变化。如果使用模板(新建或打开：如 Workbooks.Open FileName:="D:\work\ok\1.xlt", Editable:=True）的话，则要新产生新的文件，而不能在原有的文件中增加一个sheet。
回答:
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(2)
Sheets("Sheet1 (2)").Select
Sheets("Sheet1 (2)").Name = "Sheet4"
此问题由李海回答。
| |
|
|
| |
|
|
