让你开始
例如：
A1为C:\Users\JL\Documents\data
A2为myworkbook.xlsx

Sub OpenAndWriteToFile()
    Dim filePath As String
    Dim fileName As String
    Dim wb As Workbook
    
    'get the file path and name from cells A1 and A2
    filePath = ActiveWorkbook.Worksheets("Sheet1").Range("A1").Value
    fileName = ActiveWorkbook.Worksheets("Sheet1").Range("A2").Value
    
    'open the workbook
    Set wb = Workbooks.Open(filePath & "\" & fileName)
    
    'write "Hello" in cell A1 of Sheet3 of the opened workbook
    wb.Worksheets("Sheet3").Range("A1").Value = "Hello"
    
    'save and close the workbook
    wb.Close SaveChanges:=True
End Sub