如何单独保存某个表(VBA)

Bluelost

我想用宏来另存一个EXCEL文件的一个单独的sheet,而且只希望保存表格和数值,宏代码什么则不保存,saveAs 方法则会把整个excel文件保存起来!

应该怎么弄?请指教!

Bluelost

难道就没人会吗?

lirong

Public Function Move_Sheet(ByVal JBook As String)

  Application.ScreenUpdating = False

  Application.DisplayAlerts = False

  Dim FName As String

  Dim SBook As String

  

  SBook = ActiveWorkbook.Name

  FName = Dir(JBook)

  

  If FName = vbNullString Then

     Sheets("Sheet1").Copy

     ActiveWorkbook.SaveAs Filename:=JBook

     FName = ActiveWorkbook.Name

     'Selection.PasteSpecial Paste:=xlValues

     'Selection.PasteSpecial Paste:=xlFormats

  Else

     Workbooks.Open Filename:=JBook

     Workbooks(SBook).Sheets("Sheet1").Copy Workbooks(FName).Sheets(1)

  End If

  

  On Error Resume Next

  Dim fRange As Range

  Dim Nx     As Range

  Err.Clear

  

  Set fRange = Cells.SpecialCells(xlCellTypeFormulas)

  If fRange Is Nothing = False Then

     For Each Nx In fRange

         Nx = Nx.Value

     Next

  End If

  Workbooks(FName).Close SaveChanges:=True

  Application.ScreenUpdating = True

  Application.DisplayAlerts = True

End Function

wktt6833

在工作表上点右键,将工作表另存

红池坝

录制一个“移动或复制工作表”的宏就行了（要勾选保留副本）