汇总多个EXCEL档案的问题请帮忙解答！

Anna1lan

HI，各位大神：
   准备将每日接单（MO_Report 1124--11/26）汇总到一个Excel 档案
如下无法很好实现，请帮忙解答，感谢！！！！
问题：
1.在把文件路径定义给变量时候，发现路径一直是：

"C:\Users\LEWIS_LIU\AppData\Roaming\Microsoft\Excel\XLSTART\合併\"

但这个文件夹我是放在我电脑的F盘的;
2.即使实现汇总,可有重复的信息行数，若我想按照"SO"刷选掉重复留下不重复的资料应该怎么操作呢？
Attribute VB_Name = "Module1"
Sub 合併數據()
     Dim Mypath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
     Application.ScreenUpdating = False        '凍結屏幕,以防屏幕抖動
   Mypath = ThisWorkbook.Path & "\合併\"          '把文件路徑定義給變量
   myFile = Dir(Mypath & "\" & "*.xls")          '以此找尋指定路徑中的*.xls
     Do While myFile <> ""
        If myFile <> ThisWorkbook.Name Then
           Set AK = Workbooks.Open(Mypath & myFile)
            For i = 1 To AK.Sheets.Count
           aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
           tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
              AK.Sheets(i).Select
           AK.Sheets(i).Range("a3:k" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
           Next
           Workbooks(myFile).Close False
        End If
        myFile = Dir
     Loop
        
     Application.ScreenUpdating = True
     MsgBox "匯總完成,請查看!", 64, "提示"
End Sub