<em>Excel</em>中,如何用<em>vb</em>a实现另存为

如果要每个SHEET存一个文zhidao件，需要循环把每个SHEET先移出来，再另存回为PDF。
代码如下，供参答考。
Sub 折表存PDF()
Dim MyWork
Dim MySheet
Dim MyPath
MyWork = ActiveWorkbook.Name
MyPath = ActiveWorkbook.Path
For Each MySheet In Sheets
MySheet.Copy
ChDir MyPath
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MySheet.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWindow.Close False
Windows(MyWork).Activate
Next
End Sub

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

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

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

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

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

Sub New_worksheet()

Sheets(1).Select

Worksheets.Add

End Sub

则会另存为sheet2工作表了。

答：e69da5e887aae799bee5baa6366

Sub Demo()
    Dim Sht As Worksheet
    Dim FilePath As String
    FilePath = ThisWorkbook.Path & "\"
    Application.ScreenUpdating = False
    For Each Sht In ThisWorkbook.Sheets
        If Not Sht.Name = "分析" Then
            With Sht
                .UsedRange.Value = .UsedRange.Value
                .Copy
            End With
            With ActiveWorkbook
                .SaveAs Filename:=FilePath & Sht.Name
                .Close
            End With
        End If
    Next Sht
    Application.ScreenUpdating = True
    MsgBox "导出完成"
End Sub

例子来代码源：百

Sub test()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Administrator\桌面度\test.pdf"
End Sub