Sub ¶}±Ò¨Ã½s¿èÀÉ®×()
Dim MyFile As String
MyFile = Application.GetOpenFilename("ExcelÀÉ®×,*.xls*", MultiSelect:=False)
If MyFile = "False" Then Exit Sub
With Workbooks.Open(MyFile).Sheets(1)
.Activate
.Cells(1, 1) = "abc"
'.Parent.Close True 'Ãö³¬ÀÉ®×+¦sÀÉ
End With
End Sub