メモを新規作成するマクロ

'-------------------------------------------------------------------------------
'新規メモの作成マクロ
'
' CopyRight Naoshi Ide 2015-
'-------------------------------------------------------------------------------
Call Main

'メイン処理
Sub Main()
	Dim memofolder
	Dim strDate
	Dim memoFileName
	Dim memoFileObj

	memofolder = "C:\Users\Nao\Documents\個人フォルダ\10.メモ\"

	strDate = Date
	strDate = Replace(strDate, "/", "")


	text = InputBox("メモのタイトルを入力してください","memo")

	If text="" then
		Exit Sub
	End If

	memoFileName = memoFolder & strDate & "_" & text & ".memo"

	'ファイルの新規作成
	Dim objFileSys
	Set objFileSys = CreateObject("Scripting.FileSystemObject")
	objFileSys.CreateTextFile memoFileName
	Set memoFileObj = objFileSys.OpenTextFile(memoFileName, 2, True)

	memoFileObj.WriteLine("■" + text)
	memoFileObj.Close

	FileOpen(memoFileName)
End Sub