MatthewPream
New Member
- Joined
- Mar 10, 2023
- Messages
- 1
- Office Version
- 365
- 2021
- Platform
- Windows
Hello, im very novice when it comes to VBA and I'm working with a workbook that has around 60 Worksheets one for each employee. I was able to get a code to save each worksheet in the workbook as a pdf but my boss would prefer word. I'm stumped on how to transform this into word. Below is the PDF Code I'm using.
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "\" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Anything helps, Thanks!
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "\" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Anything helps, Thanks!