ファイルを新規に作成し、セル内容を追加、保存する。

SQL_BUN = Sheets("sql").Range("b12").Value
' SQL文ファイルを新規に作成する。
Open "d:\si\SQL_DB.SQL" For Append As #1
Print #1, SQL_BUN
Close #1