我希望用户打开他们的Outlook，并有一个功能，将更新达特（主）文件，提示他们打开源文件。达特文件位于teams/sharepoint中。
用我的代码，它只制作了主文件的副本，这不是我想要的。

Sub UpdateTATFile()
    Dim tatFile As Workbook
    Dim tatSheet As Worksheet
    Dim sourceFile As Workbook
    Dim lastRow As Long
    Dim sourceFilePath As String
    
    ' Open the TAT file from Teams/SharePoint
    Dim sFileName As String
    sFileName = "link.xlxs" ' Update with the actual URL of your TAT file
    
    ' Create a new instance of Excel
    Dim xl As Object
    Set xl = CreateObject("Excel.Application")
    
    ' Open the TAT file
    Dim f As Object
    Set f = xl.Application.Workbooks.Open(fileName:=sFileName, ReadOnly:=False)
    
    ' Set the TAT file as the active workbook
    Set tatFile = xl.Application.ActiveWorkbook
    
    ' Specify the TAT sheet in the TAT file
    Set tatSheet = tatFile.Worksheets("IS PO bookings") ' Update with the appropriate TAT sheet name
    
    ' Prompt the user to select the source file
    Dim fileDialog As Object
    Set fileDialog = xl.Application.fileDialog(3) ' 3 corresponds to the FilePicker dialog type
    
    ' Display the file picker dialog
    If fileDialog.Show = -1 Then ' If the user clicked the "Open" button
        ' Get the selected file path
        sourceFilePath = fileDialog.SelectedItems(1)
        
        ' Check if the user selected a file
        If Len(sourceFilePath) > 0 And Dir(sourceFilePath) <> "" Then
            ' Open the source file
            Set sourceFile = xl.Application.Workbooks.Open(sourceFilePath, UpdateLinks:=False)
            
            ' Find the last row in the TAT sheet
            lastRow = tatSheet.Cells(tatSheet.Rows.Count, "A").End(xlUp).Row + 1
            
            ' Retrieve data from the source file and populate in the TAT sheet
            tatSheet.Cells(lastRow, "A").Value = sourceFile.Worksheets("Order Entry Form").Range("F13").Value
            tatSheet.Cells(lastRow, "B").Value = sourceFile.Worksheets("Order Entry Form").Range("D13").Value
            tatSheet.Cells(lastRow, "C").Value = sourceFile.Worksheets("Order Entry Form").Range("D21").Value
            tatSheet.Cells(lastRow, "D").Value = sourceFile.Worksheets("Order Entry Form").Range("D9").Value
            tatSheet.Cells(lastRow, "E").Value = Date
            tatSheet.Cells(lastRow, "F").Value = sourceFile.Worksheets("Order Entry Form").Range("D15").Value
            tatSheet.Cells(lastRow, "G").Value = sourceFile.Worksheets("Order Entry Form").Range("D7").Value
            tatSheet.Cells(lastRow, "H").Value = sourceFile.Worksheets("Order Entry Form").Range("F19").Value
            tatSheet.Cells(lastRow, "I").Value = sourceFile.Worksheets("Order Entry Form").Range("F9").Value
            tatSheet.Cells(lastRow, "M").Value = sourceFile.Worksheets("Order Entry Form").Range("O9").Value
            tatSheet.Cells(lastRow, "N").Value = sourceFile.Worksheets("ENQUIRY - ORDER REVIEW").Range("F27").Value
            tatSheet.Cells(lastRow, "O").Value = "PRV"
            
            ' Close the source file without saving changes
            sourceFile.Close SaveChanges:=False
        Else
            MsgBox "Source file not found.", vbExclamation
        End If
    End If
    
    ' Save and close the TAT file
    tatFile.Close SaveChanges:=True
    
    ' Close Excel
    xl.Quit
    Set xl = Nothing
End Sub