(VBA) ExcelのデータをMySQLデータベースに反映させる

以下のVBAスクリプトは、私がExcelで実際に使っているマクロです。Excelファイルで電話帳を作っておき、そのデータをMySQLデータベースに反映させるために使用しています。ExcelファイルのE列に電話番号を入れておきその他の列には名前、住所、郵便番号、Fax番号などを入力してあります。Excelのデータの行のうち、すでに同じ電話番号のレコードがMySQLデータベースに存在するものは、何もしません。Excelに書かれた行のうち、同じ電話番号がMySQLデータベース側に存在しないものだけ、MySQLデータベースへの追加を行っています。なお、MySQLに追加を行うファンクションが定義されておりその中で使用しているMySQL ODBC Driver がインストールされていることが必要です。データベース名はuser、接続ユーザ名はuser、パスワードはuser となっています。　

https://gist.github.com/cofearabi/5845135

	Sub send_mysql()
	Dim int_sheets_no
	int_sheets_no = 1
	int_line = 2
	Do While Worksheets(int_sheets_no).Range("E" & int_line).Value <> ""
	str_name = Worksheets(int_sheets_no).Range("B" & int_line).Value
	str_zip = Worksheets(int_sheets_no).Range("C" & int_line).Value
	str_address = Worksheets(int_sheets_no).Range("D" & int_line).Value
	str_tel = Worksheets(int_sheets_no).Range("E" & int_line).Value
	str_fax = Worksheets(int_sheets_no).Range("F" & int_line).Value
	Call add_mysql(str_name, str_zip, str_address, str_tel, str_fax)
	int_line = int_line + 1
	Loop
	Set xlbook = Nothing
	Set xlApp = Nothing
	End Sub
	Function add_mysql(str_name, str_zip, str_address, str_tel, str_fax)
	Set conn_1 = CreateObject("ADODB.Connection")
	Set rs_1 = CreateObject("ADODB.Recordset")
	conn_1.Open "Driver={MySQL ODBC 5.2w Driver};server=192.168.2.100;" & _
	"database=user; uid=user; pwd=user;"
	intCount = 0
	rs_1.Open "select * from tel where tel like '" & str_tel & "'", conn_1, 3, 3
	If rs_1.EOF <> True And rs_1.BOF <> True Then
	'MsgBox "already exists " & vbCrLf & str_tel
	Else
	rs_1.addnew
	rs_1.Fields("name") = str_name
	rs_1.Fields("zip") = str_zip
	rs_1.Fields("address") = str_address
	rs_1.Fields("tel") = str_tel
	rs_1.Fields("fax") = str_fax
	rs_1.Update
	rs_1.Close
	MsgBox "add " & vbCrLf & str_tel
	End If
	conn_1.Close
	End Function

view raw gistfile1.vb hosted with ❤ by GitHub