| |
▼小松や さん：
こんばんは。
>VBAを用いて、EXCELのセルの情報をテーブルのあるフィールドに
>コピーしたいのですが、セル内での改行が消えてしまい？うまく表示
>できません。
>解決法がご存知の方いらっしゃいましたらご教授願います。
>
>↓でコピーしたフィールド(メモ型)をテキストボックスに表示
> すると改行なしのデータとなってしまうのです。
まず、このテキストボックスは、どこにあるテキストボックスですか？
Excelのシートに貼り付けたコントロールツールボックスのテキストボックス？
それともExcelのユーザーフォームに貼り付けたテキストボックス？
あるいは、アクセスのフォームに貼り付けたテキストボックス？
または、オートシェープのテキストボックス？
この辺りをはっきり記述して下さい。
気がついた点は、
まず、コントロールツールボックスを使用してシートに貼り付けたテキストボックス、
又は、Excelのユーザーフォームに貼り付けたテキストボックスだとして・・。
例えば、
range("a1").value="aaaaa" & vblf & "bbbb"
上記コードの実行で設定されたセルａ１の値をテキストボックスに表示する場合、
テキストボックスのプロパティMutilineをTrueに設定して下さい。
これで改行されるはずです。
アクセスのフォームに貼り付けたテキストボックスの場合・・・。
Excel/ＶＢＡで
mystr=replace(range("a1").value,vblf,vbcrlf)
というように改行コードを変換してからmdbファイルのテーブルにセットしてみて下さい。
>RS("TITLE") = CStr(XLS.Sheets(NGi).Cells(i + 4, 6).Value)
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
