tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Excelのデータを取込みたい
投稿日: 2014/03/17(Mon) 09:18
投稿者銭形
初めて投稿させていただく銭形と申します。
なぜかVB6を使うことになり、使い始めて2か月の超初心者です。
質問ですが、花ちゃんのHPを色々と拝見し、構文を使わせてもらっていますが、下記のような場合、
うまくデータを取り込めません。すみませんが、アドバイスノほどよろしくお願い致します。
(ちなみに、VB6.0、Windows7、Excel2010)
【質問】
Excelシートから色々な表示形式の゛ータを取り込む際、分数で表示形式されているデータを取込むと
数値(小数点)で取り込まれてしまう。
見た目には、3/8と表示されているが、実際にカーソルをあてると0.375と表示されている。
この3/8のまま取り込みたいのですが、可能でしょうか?下記の構文だと、0.375で取り込まれてしまう。
◎Excel側
   A  B  C  D・・・
 1 AA 3/8 ←この3/8の場所にカーソルをあてると0.375と表示される。(表示形式が分数になっている)
 2 BB ABC  200
 :
(省略)
    Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;IMEX=1")
    Set rs = DB.OpenRecordset(xlSheetName)
    Do Until rs.EOF
        With rs
        MyData = ""
        MyData =  .Fields(0) & "," & .Fields(1) & "," & .Fields(2) & "," & .Fields(3)
   ※.Fields(1)に、0.375が入ってしまう。(出来れば3/8のまま取り込みたい)
(省略)
わかりにくい文章で申し訳ございませんが、よろしくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。