実行するその前に…
「…できた…!」 小一時間もたったころ、星くんはプログラムを完成させました。
Sub Test()
Dim Bookpath As String
'変数に対象ブックのパスを格納する
Bookpath = Application.GetOpenFilename
'対象ブックを開く
Workbooks.Open Filename:=Bookpath
'セルA1に"開いたよ!"の文字列を入力する
Range("A1") = "開いたよ!"
'対象ブックを閉じる
ActiveWorkbook.Close SaveChanges:=True
End Sub
「…これで、八木のいったとおりの動作をするはずだが…。
早速、実行してみるか…と、その前にテスト用にブックを用意しなきゃ」
星くんは、[マイ ドキュメント]フォルダに"Test.xls"という名前のブックを1つ作成しました。
このブックは新規作成したばかりで、何もデータが入力されていません。