Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8368 / 13646 ツリー ←次へ | 前へ→

【33728】初心者なので教えてください f118 06/1/19(木) 14:19 質問[未読]
【33729】Re:初心者なので教えてください inoue 06/1/19(木) 14:54 発言[未読]

【33728】初心者なので教えてください
質問  f118  - 06/1/19(木) 14:19 -

引用なし
パスワード
     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の改行[ _]を使ってもエラーとなってしまいます。
どのようにしたら改行することができるでしょうか。教えてください。

【33729】Re:初心者なので教えてください
発言  inoue E-MAILWEB  - 06/1/19(木) 14:54 -

引用なし
パスワード
   コード上の改行は「_」の前にスペース1桁必要です。
最大20回くらいは可能なはずです。

8368 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free