やりたいこと

ダイアログボックスでエクセルファイルを指定する。
指定したエクセルブックを開き、Sheet1のA1セルに「あああ」という文字を入力する。
上書き保存して閉じる。

ソースコード

Sub Enter_text_in_other_excel_file()

'----------ダイアログボックスで指定のエクセルファイルを開く----------

'エクセルファイルのファイルパスを格納する変数FilePathを宣言する
Dim FilePath As String

'ApplicationオブジェクトのGetOpenFilenameメソッドを使って、[ファイルを開く]ダイアログボックスを表示する
'[ファイルを開く]ダイアログボックスに、どんな拡張子のファイルを表示するかを引数FileFilterで設定する
'選択されたファイルのフルパスをFilePathに格納する
FilePath = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")

'GetOpenFilenameメソッドによる[ファイルを開く]ダイアログボックスは選択されたファイルのフルパスを返すだけで、自動的には開かないため、Workbooks.Openを使ってファイルを開く
Workbooks.Open FilePath

'FilePathに代入されているフルパスから、ファイル名を抽出する
'Dir関数は引数に指定したファイルが存在したとき、そのファイル名を返す関数
FileName = Dir(FilePath)

'----------値を入力する----------

'前の処理で抽出したファイルのシートとセルを指定して値を入力する
Dim aaa As String
Workbooks(FileName).Worksheets("Sheet1").Range("A1").Value = "あああ"

'----------上書き保存して閉じる----------

Workbooks(FileName).Save
Workbooks(FileName).Close

End Sub