I know this is an older thread but I thought I'd ask for some direction anyway.
I tried the code example and I received a compile error: User-defined type not defined. When I debugged, the error was with this line:

Dim xlApp As New Excel.Application, xlWkBk As Excel.Workbook