VBA Macro Code - Copy Data from Multiple Word Files to Excel

In this video, you will learn how you can Copy Data from Multiple Word Files to Excel using VBA Macro Code.

VBA Macro Code Used in the video:
Sub Copy_Data_From_Multiple_WordFiles()

Dim FolderName As String
Dim FileName As String
Dim NewWordFile As New Word.Application
Dim NewDoc As New Word.Document

Application.DisplayAlerts = False
'Application.ScreenUpdating = False

FolderName = "C:\Test\"
FileName = Dir(FolderName)

'Loop start

Do While FileName ⋖⋗ ""

Set NewDoc = NewWordFile.documents.Open(FolderName & FileName)

NewDoc.Range(0, NewDoc.Range.End).Copy
Range("LastRow").PasteSpecial xlPasteValues

NewDoc.Close SaveChanges:=wdDoNotSaveChanges
NewWordFile.Quit

FileName = Dir()

Loop

End Sub

-------
Video Gears
Mic used for Audio recording: https://amzn.to/32ZSagv
Soundproofing Foam that I use, this also helps to reduce echo: https://amzn.to/2Dy939l
For Video editing, I use Canva.com, you can join Canva by clicking here: https://www.canva.com/join/brake-euro...
Computer used for Editing: https://amzn.to/3bv9PjL
Mobile used for video shooting: https://amzn.to/3gZP00X
Reach out to me on Fiver for any excel automation projects: https://www.fiverr.com/share/71GKke


#LearnExcelVBA #LearnExcelMacro