Excel中,如何用vba实现另存为工作表?(去掉公式)

1、首先，找到要进行 *** 作的Excel表格，右键单击Excel图标，然后在d出的右键菜单中选择打开命令。

2、从打开的工作簿左下角的工作表标签可知，该工作簿默认生成工作表为一个。

3、按下组合键Alt+F11，即可快速调出VBA窗口。

4、在VBA界面中单击菜单栏中的插入，选择模块命令，此时会d出一个另存为的模块窗口。

5、在另存为的模块窗口中复制粘贴以下代码：

SubNew_worksheet()

Sheets(1).Select

Worksheets.Add

EndSub

则会另存为sheet2工作表了。

实现的方法和详细的 *** 作步骤如下：

1、首先，在桌面第一章中，每个工作簿的名称都放在工作表中，如下图所示，然后进入下一步。

2、其次，完成上述步骤后，创建一个新的工作簿，将其命名为“第一章目录”，然后按“alt  + f11”组合键打开“宏”界面，如下图所示，然后进入下一步。

3、接着，完成上述步骤后，在VBA中，单击“插入”按钮，然后选择“模块”选项以创建新模块，如下图所示，然后进入下一步。

4、然后，完成上述步骤后，输入如下红框中的代码，如下图所示，然后进入下一步。

5、随后，完成上述步骤后，返回到名为“第一章目录”的工作簿，然后按“alt  + f8”组合键调出“宏”对话框，如下图所示，然后进入下一步。

6、最后，完成上述步骤后，单击“宏”对话框中的“执行”按钮，“宏”对话框自动关闭，代码自动执行，即第一页中的每个文件夹名称都显示在sheet1中，可以根据需要调整格式，如下图所示。这样，问题就解决了。

Sub 另存为()

  Set sht = Sheet4

  Set mf = Sheet1

    NewFileName = sht.Range("AE4") &"销售订单录入" &Year(Date) &"-" &Month(Date) &"-" &Day(Date)  '拟拟取名

    On Error Resume Next

' ###########检查C盘下有没有此文件 #############

    Dim ObjFSO

    Set ObjFSO = CreateObject("Scripting.FileSystemObject")

      If ObjFSO.FileExists("C:\" &NewFileName &".xls") Then

        MsgBox "C盘下已有此文件名，请重新命名！"

        GoTo 0

      End If

' ###########如果没有此文件则复制新增 #############

    mf.Copy '复制工作表

    ActiveWorkbook.SaveAs Filename:="C:\" &NewFileName &".xls" '保存新增的文件并重命名到C盘下

    ActiveWorkbook.Close True            '关闭文件

0

End Sub

---