Excel VBA質問箱 IV

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

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


71653 / 76732 ←次へ | 前へ→

【9572】Re:文字列となっている数値を数値に戻す
発言  ichinose  - 03/12/8(月) 23:17 -

引用なし
パスワード
   ▼hana さん:
こんばんは。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=9123;id=excel

からの流れですね?

ExcelブックをADOで接続してのI/Oは
色々と制限があるみたいです。
ADOXを使用してエクスポートブック(私の例でいうExportBK.xls)まで
作成するようなコードを書かないと数字を数字として登録する事は難しそうです
(少なくとも私が調べた限りでは)。

しかも、このエクスポートブックをADOで全て操作するようなコードを書かなければ
なりません(Excelで保存したりすると数値として保存されませんでした)。
但し、以下のような現象も確認しました。

仮にA列を数値、B列〜V列までは、文字列というエクスポートブック(ExportBK.xls)を考えてみます。

リンクで示したコードを用いて、アクティブシートの
セルA2が「1」、セルB2列〜V2列にそれぞれ「B」、「C」、・・・「V」が
入力されていて、これをExportBK.xlsにエクスポートしたとします。

ExportBK.xlsには、上記のデータが追加されると思いますが、
この時A列の「1」が問題になりますよね。
文字列の"1"として、登録されています。

これは、書式を触っただけでは、変更されませんでした。

このA列の"1"だけ、

>Sub tesut()
Dim a As Long
a = Range("AXX")
Range("AXX").FormulaR1C1 = a
>End Sub
等として、数字の1にしてブックExportBK.xlsを保存してみて下さい。

この状態で再度、エクスポートを行ってみて下さい。
今度は、A列が数字として登録されているはずです。

結果として、
直前の行の属性に追加される行が依存しているようなのですが・・・。

後は、既存データの数値化は、エクスポートブック(ExportBK.xls)に対して、
'=====================================================
Sub test()
  Set rng = Cells.SpecialCells(xlCellTypeConstants)
  rng.Value = rng.Value
End Sub

を実行してみて下さい。
数字として、再登録されると思います。


>アクセスからのOutPutで、数値が文字列となってしまっています。
↑については、数字が文字になってしまう現象が確認できませんでしたが、
修正は、上記のコードで可能だと思います。
2 hits

【9562】文字列となっている数値を数値に戻す hana 03/12/8(月) 17:30 質問
【9565】Re:文字列となっている数値を数値に戻す INA 03/12/8(月) 18:18 回答
【9572】Re:文字列となっている数値を数値に戻す ichinose 03/12/8(月) 23:17 発言
【9573】Re:文字列となっている数値を数値に戻す(追... ichinose 03/12/8(月) 23:22 発言
【9575】Re:文字列となっている数値を数値に戻す(追... hana 03/12/9(火) 11:29 質問
【9584】Re:文字列となっている数値を数値に戻す(追... ichinose 03/12/9(火) 17:59 回答
【9585】Re:文字列となっている数値を数値に戻す(追... ichinose 03/12/9(火) 18:03 発言
【9597】Re:文字列となっている数値を数値に戻す(追... hana 03/12/10(水) 9:54 お礼
【9612】Re:文字列となっている数値を数値に戻す(追... ichinose 03/12/10(水) 13:14 発言
【9624】Re:追伸)の追加 hana 03/12/10(水) 17:29 お礼
【9625】Re:文字列となっている数値を数値に戻す(追... Jaka 03/12/10(水) 17:36 発言
【9626】Re:文字列となっている数値を数値に戻す(追... ichinose 03/12/10(水) 18:06 お礼
【9657】Re:文字列となっている数値を数値に戻す(追... hana 03/12/12(金) 10:07 お礼
【9724】すみません。 Jaka 03/12/15(月) 16:51 発言

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