写个vba程序，能合并多个文件

你好! 下面是一个可以合并多个文件的 VBA 程序：

Sub MergeFiles() ' 定义变量 Dim FilesToOpen, FileName As String Dim FileNum As Integer Dim Counter As Integer Dim RowNdx As Long Dim ColNdx As Integer Dim Sheet As Worksheet Dim WorkBk As Workbook Dim SourceRange As Range Dim DestRange As Range Dim Last