如何利用<em>VBA</em>将一个<em>Excel</em>中的每

原因可能出在

1. 可能path变量是保留字，变量无效，改另一个变量名试试。

2. 可能工作簿还没保存，导致路径无效，保存工作簿再试。

3. 可能你用的版本不支持，换2010版以上版本。

打开这个excel ,另存为副本, (最好放到某个文件夹内)
按alt+F11, 视图---代码窗口 --把如下复制进去--按F5 运行即e68a84e799bee5baa6e997aee7ad94333可

Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count

For i = b To 1 step -1
sheets(i).select
sheets(i).Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues

Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xlsx"
.Close

End With
Next i

Application.ScreenUpdating = true

End Sub

可以通过录制宏百得到一段代码，稍加修改后即可使用，如下图示度：

---

代码：

Option Explicit

Sub EtoPDFs()

'

'另存为PDF

'   '全选工作表问

    Sheets.Select 

   '另存为PDF文件‘ThisWorkbook.Name’部分因为不知道你答的工作簿后缀是什么，否则可以版通过权mid或者left函数修改保存的名字

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf", Quality _

        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=True    

End Sub