C# と VB.NET の質問掲示板

Oracleよりデータを取得し、事前に用意しているテンプレートに貼り付けを
行っているのですが、特定の列（数字型）が通貨型に勝手に変換されてしまいます。
（プログラム内でセルの書式を通貨型に変換は行ってい無いことを確認）
貼り付けるデータに問題があると思い、処理概要の２をコメントし
オープン、クローズのみを行うようにしてみたのですが、それでも通貨型に
変換されてしまいます。
そういった情報が無いか探してみましたが、見つからず
未だ解決に至っていません。
もしこのような事象に心当たりのある方が
いらっしゃれば解決方法をご教示ください。


●処理概要

1.Excelオブジェクト作成
    Set gvObjExcel = New Excel.Application
    Set gvObjBook = gvObjExcel.Workbooks.Open(gvExlOPh)
    Set gvObjSheet = gvObjBook.Worksheets(gvAA2000ExlNm)
    gvObjExcel.Visible = False
    gvObjExcel.DisplayAlerts = False

２．データ取得（以下のようなデータの貼り付け）

	gvObjSheet.Range(数字).Value = gvObjSheet.Range(数字).Value + ダイナセット.フィールド("テスト").Value

３．Excelファイルを任意の場所に保存
    gvObjBook.SaveAs FileName:=gvExlSPh, FileFormat:=51
    gvObjBook.Close
    gvObjExcel.DisplayAlerts = True
    gvObjExcel.ScreenUpdating = True

４．Excelファイルをクローズ
    gvObjExcel.ScreenUpdating = True
    gvObjExcel.Quit

●開発環境
Visual Basic6(SP6)
Excel 2010
MicroSoft Excel 14.0 Object Library

魔界の仮面弁士様

回答ありがとうございます。

>ダイナセットということは、RDO や ADODB ではなく、
>Oracle Objects for OLE での接続とお見受けします。
OO4Oを使用しています。

＞>まず確認ですが、
>　Debug.Print TypeName( gvObjSheet.Range(数字).Value )
>　Debug.Print TypeName( ダイナセット.フィールド("テスト").Value )
>　Debug.Print TypeName( gvObjSheet.Range(数字).Value + ダイナセット.フィールド("テスト").Valuee )
>は、どういう結果となりますか?

以下の結果となりました。
Debug.Print TypeName( gvObjSheet.Range(数字).Value )                                              → Double
Debug.Print TypeName( ダイナセット.フィールド("テスト").Value )                                   → String
Debug.Print TypeName( gvObjSheet.Range(数字).Value + ダイナセット.フィールド("テスト").Valuee )   → Double

>また、Excel のバージョンは何でしょうか?
Excel 2012で確認を行っています。


>これは、Excel のセル書式すなわち NumberFormat プロパティの値が、
>代入処理の前後で(通貨に)変化してしまう、という意味でしょうか。

現象としてはそのようになるのですが、
調査のため以下の２の処理をすべてコメントアウト
してみたのですが、それでも通貨型に変換されてしまいます。

１.Excelオープン
２．データ取得&代入
３．Excelクローズ

 魔界の仮面弁士様

回答ありがとうございます
 

>知りたかったのはマイナーバージョンとか C2R / MSI の情報とかです。
Office: Microsoft Office Professional Plus 2010 Excel Ver 14.0.7214.5000(32Bit)となります。
 
>手順 1 と 3 だけに単純化した「現象を再現可能なコード」を
>作成してもらえないでしょうか
以下の環境でデバッグを行いました。（■Excelライブラリ処理の部分をご確認ください。）

>Workbook の SaveAs メソッドを呼び出す際に、
>Local 引数を明示してみてください
SaveAsメソッドにLocal:=trueを追加して確認しましたが、変化はありませんでした。


書式が通貨型に変わってしまうセルですが、Aのセル（数値型）とBのセル（数値型）
を足した値をセットしています。( =A10 + B10のような）
（データのセットの処理をコメントしても発生するので、関係はありませんが．．．）


●環境
 OS:Microsoft Windows XP Professional Version 2002 SP3
 VB6:Microsoft Visual basic 6.0(SP6)

●コンパイル設定
 ビルド形式:ActiveX DLL
 コンパイル方法：ネイティブコードコンパイル（コードの実行速度を最適化）
 
●プログラムが参照しているライブラリ
 Visual Basic For Applications
 Visual Basic runtime objects and procedures
 Visual Basic objects and procedures
 OLE Automation
 Oracle InProc Server 5.0 Type Library
 Microsoft Excel 14.0 Object Library

●プログラム構成

  clExcelOutput.cls(Excelファイル出力メイン処理)
  mdExcel.bas(Excelライブラリ)
  

●プログラム概要

-- -----------------------------------------------------
 ■Excelファイル出力メイン処理
-- -----------------------------------------------------
  １．初期処理
      １．１．呼び出しパラメータの受け取り
      ２．２．データベース接続

  ２．Excelファイル作成処理
      ２．１．Excelのオープン
      ２．２．Oracleからデータを取得
        (OraDynasetオブジェクトに対してSQLの結果をセット(データベースの接続、クエリ実行、クローズはライブラリで行っています。)
      ２．３．Excelにデータをセット
        以下のように値をセット
        gvObjSheet.Range("I8").Value = wvDyn.Fields("komoku1").Value

  ３．Excelファイル保存処理

  ４．Excelファイルクローズ処理

-- -----------------------------------------------------
 ■Excelライブラリ処理
-- -----------------------------------------------------

  - ------------------------------
  - Excelファイルのオープン
  - ------------------------------
     Set gvObjExcel = New Excel.Application
     Set gvObjBook = gvObjExcel.Workbooks.Open(指定したフォルダ)
     Set gvObjSheet = gvObjBook.Worksheets(指定したファイル名)
     gvObjExcel.Visible = False
     gvObjExcel.DisplayAlerts = False


  - ------------------------------
  - Excelファイルの保存
  - ------------------------------
     gvObjBook.SaveAs gvExcelTempPath
     gvObjExcel.DisplayAlerts = True


  - ------------------------------
  - Excelファイルのクローズ
  - ------------------------------
    gvObjExcel.ScreenUpdating = True
    gvObjExcel.Quit

    Set gvObjExcel = Nothing
    Set gvObjBook = Nothing
    Set gvObjSheet = Nothing

魔界の仮面弁士様

回答ありがとうございます。

>「現象を再現可能なコード」というのは、第三者がそのまま自身の環境で
>検証可能となる情報を提供して欲しい、という意味でした…。
申し訳ございません。当方の認識不足でした。

>既存のファイルを使うのではなく、「新規ブック」で試してみてください。
>新規に新しい Excel ファイルを用意し、そこに最低限度の書式設定を
>施したものを読み込ませて、再現性を確認してみるということです。
>もしも新規ファイルで再現せず、特定のファイルでのみ起こる事象なら、
>VB のコードを見てもあまり意味は無く、元ファイルの内容を疑っていくべきかと。
>一方、新規ファイルでも再現するようであれば、その検証ファイルの作成手順を公開すると共に、
>セルの内容（というか書式指定？）が処理の前後でどう変化するのかを示して頂けれあ、
>他の Excel バージョン（あるいは同じ Excel バージョン）を使っている他者にも
>検証できますので、バージョン依存性や環境依存性があるのかどうかを確認できそうです。

以下の２つを検証しました。

１．新規ファイルを作成し、元ファイルの最低限の書式設定を行い、問題のプログラムを実行
２．新規ファイルを作成し、Excelのオープン、クローズのみを行うプログラムを新規に作成・実行

１の結果：書式が変更されない。
２の結果：書式が変更されない。

上記の結果からファイル自体に問題があるようです。
現在、ファイルの詳細な情報を調査中です。
（原因が分かり次第、ご報告します。）


色々と有益な情報を教えていただき誠にありがとうございます。