复制工作表

神秘风暴

Sub copysh()
'另存为对话框
fileSaveName = Application.GetSaveAsFilename("表二" & Format(Now, "YYYY-MM-DD-HHmmSS") & ".xls") '以标签名+日期命名
If fileSaveName <> False Then
Sheet2.Activate
ActiveSheet.Copy
    'ActiveWorkbook.SaveAs Filename:=fileSaveName & ".xls"   '新表打开
    ActiveWorkbook.Close SaveChanges:=True, Filename:=fileSaveName & ".xls"  '新表关闭
    Sheet1.Select
End If
End Sub

以上代码为复制sheet2整个工作表为新的工作薄，如果我只想复制sheet2的某个区域，如：A1:G100的区域，请问该如何修改呢？

猴子下山了

你试试
sheet2.Range("A1:G100").Select
Selection.Copy

神秘风暴

猴子下山了 发表于 2021-9-9 14:40
你试试
sheet2.Range("A1:G100").Select
Selection.Copy

你好，我试过了，这样改的话就把所有的表都复制出来了，我也不知道为啥。。。。

lisongmei

Sub copy_copy()
Application.ScreenUpdating = False '关闭屏幕刷新
Dim wb As Workbook'声明
Set wb = Workbooks.Add '新建
ThisWorkbook.Sheets(1).Range("a1:a100").Copy wb.Sheets(1).Range("a1") '复制粘贴
wb.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yy-mm-dd-hh-mm-ss") & ".xlsx" '另存
wb.Close '关闭
Application.ScreenUpdating = True '屏幕刷新
End Sub

他途供参考

不可一世

我觉得三楼的答案是正确的

roserice

Sub copysh1()
Sheet2.Activate
ActiveWorkbook.SaveAs Filename:=Format(Now, "YYYY-MM-DD-HHmmSS") & ".xls"   '新表打开
Sheet2.Cells.Delete
Workbooks.Open "c:\users\administrator\desktop\book1.xlsm" ‘book1是源表名
Workbooks(2).Sheets(2).Range("a1:a5").Copy Destination:=Workbooks(1).Sheets(2).Range("a1:a5")   
  ActiveWorkbook.Close
Sheet2.Select
End Sub