|
Sheets("test").Select
Set dbs = OpenDatabase("PostgreSQL", dbDriverNoPrompt, False, "ODBC;DATABASE=test;UID=test;PWD=test;DSN=PostgreSQL")
行r = 1
Do While Cells(行r, 1) <> ""
a1 = Cells(行r, 1)
a2 = Cells(行r, 2)
a3 = Cells(行r, 3)
a4 = Cells(行r, 4)
a5 = Cells(行r, 5)
a6 = Cells(行r, 6)
a7 = Cells(行r, 7)
dbs.Execute "insert into test (b1,b2,b3,b4,b5,b6,b7)" & _
" values ('" & a1 & "','" & a2 & "','" & a3 & "','" & a4 & "','" & a5 & "','" & a6 & "','" & a7 & "');"
行r = 行r + 1
Loop
dbs.Close
Set dbs = Nothing
上記のようなときに
insert文のvaluesの後ろを途中で改行したいのですがVBAの改行[ _]を使ってもエラーとなってしまいます。
どのようにしたら改行することができるでしょうか。教えてください。
|
|