Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim 取得番地 As Long
取得番地 = ActiveCell.Row
'ファイルを書き込みで開く(無ければ新規作成される、あれば上書き)
Open "C:test.txt" For Output As #1
'開いたファイルに書き込む
Print #1, Cells(取得番地, 1).Value
Print #1, Cells(取得番地, 2).Value
Print #1, Cells(取得番地, 3).Value
Print #1, Cells(取得番地, 4).Value
'開いたファイルを閉じる
Close #1
'終わったのが分かるようにメッセージを出す
MsgBox "完了です"
End Sub
