vba如何实现将一个EXCEL文件中隐藏的SHEET页自动复制

Question

想把一个sheet页做成模板隐藏掉，然后每输入一个指令就会自动复制一个该sheet页

Answer 1

Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks.open("源文件.xls") '先打开要复制的文件
wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前
End Sub

这样是最简单的代码了，但是有些限制：如果工作表的某些单元格中字符数超过255个，则副本的该单元格中只保留前255个字符。

如果复制源文件中第一个工作表内容到当前工作簿第一个工作表中，用下列代码：
Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks("book2") '先打开要复制的文件
wkbk.Sheets(1).UsedRange.Copy '复制源文件中第一个工作表的内容
ThisWorkbook.Sheets(1).Range("A1").Paste '粘贴到当前工作簿第一个工作表中
End Sub

Answer 2

以下脚本应该可以解决你的问题，这样做每次都会复制一个页到最后，当然可以调整参数选择复制的位置
Sub tt()
wsc = Worksheets.Count
Sheets("Sheet1").Copy After:=Sheets(wsc)
Sheets(wsc + 1).Visible = True
End Sub本回答被提问者和网友采纳

Answer 3

解除隐藏，复制，再隐藏。