Office中国论坛/Access中国论坛

标题: 如何单独保存某个表(VBA) [打印本页]

作者: Bluelost 时间: 2006-5-4 23:03
标题: 如何单独保存某个表(VBA)
我想用宏来另存一个EXCEL文件的一个单独的sheet,而且只希望保存表格和数值,宏代码什么则不保存,saveAs 方法则会把整个excel文件保存起来!

应该怎么弄?请指教!

作者: Bluelost 时间: 2006-5-13 17:20
难道就没人会吗?

作者: lirong 时间: 2006-5-15 16:11
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 时间: 2006-9-12 07:29
在工作表上点右键,将工作表另存

作者: 红池坝 时间: 2006-9-12 16:43
录制一个“移动或复制工作表”的宏就行了（要勾选保留副本）

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)