No.2ベストアンサー
- 回答日時:
取りあえずインポートしてあるとして・・
テーブル名が、T1
フィールド名が、F1
とすると更新クエリで行います
下記SQL文のテーブル名、フィールド名を実際のものに置き換え
クエリのSQLビューに貼り付けて一旦閉じて後、再度開いて下さい。
UPDATE T1 SET T1.F1 = Replace([F1],Chr(10),Chr(13) & Chr(10));
これでExcelの改行コードが変換されます。
テーブルを開いて行の高さを大きくとって確認下さい。
※バックアップは取ってからお試しを
No.1
- 回答日時:
[イミディエイト]
? CnnExecute("UPDATE Table1 SET Field_1=Replace(Field_1, '【2】', Chr$(13) & Chr$(10) & '【2】')")
True
ID_______Field_1
1__________【1】コメント11
___________【2】コメント2
2__________【1】コメント11
___________【2】コメント2
3__________【1】コメント11
___________【2】コメント2
と、CnnExecute関数を用いて一気に修正することが可能です。
[イミディエイト]ウィンドウで実行します。
Public Sub ErrMessage(ByVal CnnErrors As ADODB.Error, ByVal strSQL As String)
MsgBox "ADOエラーが発生しましたので処理をキャンセルします。" & Chr$(13) & Chr$(13) & _
"・Err.Description=" & CnnErrors.Description & Chr$(13) & _
"・Err.Number=" & CnnErrors.Number & Chr$(13) & _
"・SQL State=" & CnnErrors.SQLState & Chr$(13) & _
"・SQL Text=" & strSQL, _
vbExclamation, " ADO関数エラーメッセージ"
End Sub
Public Function CnnExecute(ByVal strSQL As String) As Boolean
On Error GoTo Err_CnnExecute
Dim isOK As Boolean
Dim cnn As ADODB.Connection
isOK = True
Set cnn = CurrentProject.Connection
With cnn
.Errors.Clear
.BeginTrans
.Execute strSQL
.CommitTrans
End With
Exit_CnnExecute:
On Error Resume Next
cnn.Close
Set cnn = Nothing
CnnExecute = isOK
Exit Function
Err_CnnExecute:
isOK = False
If cnn.Errors.Count > 0 Then
ErrMessage cnn.Errors(0), strSQL
cnn.RollbackTrans
Else
MsgBox "プログラムエラーが発生しました。システム管理者に報告して下さい。(CnnExecute)", _
vbExclamation, " 関数エラーメッセージ"
End If
Resume Exit_CnnExecute
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word コメント印刷で、見たいコ...
-
エクセルでセルに挿入したコメ...
-
エクセル コメント表示位置・...
-
スマホに、スマホゲーム3個以下...
-
Excelのコメントが表示されない
-
ワードのコメント内のテキスト...
-
gooブログについたコメントの返...
-
ブログのコメント修正方法について
-
mixi コメントへの返事の方法
-
ブログへのリコメントの付け方
-
YouTubeのコメントについてです
-
マイミク
-
ワード文書の右側にあるグレー...
-
ブログで稼げるようになりたい...
-
「回覧」「閲覧」の違いについて
-
「閲覧ありがとうございます」...
-
FC2ブログでのID検索
-
住民票閲覧制限してても住所が...
-
ライブドアブログの PV と U...
-
1つのサーバー契約で複数のドメ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word コメント印刷で、見たいコ...
-
エクセルでセルに挿入したコメ...
-
エクセル コメント表示位置・...
-
Excelのコメントが表示されない
-
コメントの管理者だけ表示を許可
-
ワードのコメント内のテキスト...
-
ワードで横にコメントをつけたい。
-
URLを入力しコメントすると...
-
コメントからバレる?
-
ブログへのリコメントの付け方
-
スマホに、スマホゲーム3個以下...
-
芸能人のブログへのコメントに...
-
ワードのコメント枠の色を変更...
-
アメブロにコメントしたのです...
-
gooブログのコメント投稿について
-
コメントのお礼のマナー
-
Gooのブログにコメントしました...
-
Excel のコメントに逃避癖があ...
-
jpgにコメントを埋め込む方...
-
gooブログについたコメントの返...
おすすめ情報