![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- PHP PostgreSQLからCSV形式でエクスポートする際にカラム内の改行をとる方法 1 2023/02/22 10:05
- PHP PHPのセッション有効期限について 5 2023/06/14 12:40
- Excel(エクセル) 【Excel】エクセルで同じセル内でAltキーなしで改行 4 2023/07/19 00:01
- Access(アクセス) アクセスで教えてください。 クエリで2日前を抽出する計算式を 入力して表示させると ちゃんとyyyy 1 2023/06/08 21:05
- 倫理・人権 あまりにも芸能人の 1 2022/05/25 18:04
- Excel(エクセル) エクセルVBA 任意のセルの選択時、指定のセルの値を表示 1 2023/04/21 08:13
- その他(Microsoft Office) 重複データを一つにまとめたい 4 2023/04/17 16:30
- その他(クラウドサービス・オンラインストレージ) Google Todoリスト 1 2023/04/01 19:25
- その他(コンピューター・テクノロジー) コピーデータの欠落 1 2022/07/14 23:30
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word コメント印刷で、見たいコ...
-
エクセル コメント表示位置・...
-
エクセルでセルに挿入したコメ...
-
gooブログについたコメントの返...
-
ワードのコメント枠の色を変更...
-
アメブロにコメントしたのです...
-
スマホに、スマホゲーム3個以下...
-
コメントの管理者だけ表示を許可
-
ブログのコメント返し
-
Gooのブログにコメントしました...
-
夫婦のfacebookでやりとり
-
コメントのお礼のマナー
-
ピアプロで質問です。
-
英語のみでもコメントを受け付...
-
ブログ炎上の基準は?
-
なぜ来るのでしょう?
-
gooブログのコメントを確認する...
-
質問Googleで回答を頂きお礼を...
-
YAHOO!のクリックリサーチのコ...
-
【アンチコメントとは】 たまた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでセルに挿入したコメ...
-
Word コメント印刷で、見たいコ...
-
エクセル コメント表示位置・...
-
Excelのコメントが表示されない
-
アメブロにコメントしたのです...
-
コメントの管理者だけ表示を許可
-
gooブログについたコメントの返...
-
ブログのコメント返し
-
ワードのコメント内のテキスト...
-
芸能人のブログへのコメントに...
-
スマホに、スマホゲーム3個以下...
-
jpgにコメントを埋め込む方...
-
ワードで横にコメントをつけたい。
-
ワードのコメント枠の色を変更...
-
ブログへのリコメントの付け方
-
コメントへの返答の仕方
-
コメントのお礼のマナー
-
ユーザー名変更
-
皆さんの会社、家は、Windows10...
-
自分のアメブロにコメントがで...
おすすめ情報