VBからEXCELのセルの値を取得する方法

質問

VBからEXCELファイルのあるセルの値を取得すると、本来の書式設定とは
違った形式で取得されてしまいます。
VBから値を取得する方法を教えて下さい。

＊EXCELファイルのセルの設定

　セルの書式設定－ユ－ザ－定義－［h］:mm
　　(時刻ではなく、時間として設定しています)

これをVBから普通に取得すると「1.7523548785」などといった
数値になってしまいます。

回答No.1

1050 円（@1050YEN） · ベストアンサー

[Worksheets(1).Cells(1,1).Value]や[Worksheets(1).Cells(1,1)]
ではなく

Worksheets(1).Cells(1,1).Text
で取得

回答No.7

imogasi

私からすれば、こんなの当たり前です。エクセルは時刻はセルの「値」を２４時間を１とする数値で持っているのは有名な話です。
書式で時刻のように見せてるだけです。それもセルに表示するときに限ります。時刻計算などは見た目の書式の有様（の量）で計算するのでなく、数「値」で計算します。ここをしっかり押さえないと。
ＶＢからエクセル（ＶＢＡの）の世界に入って、左辺変数に＝でセルの値を代入すれば、「値」をとるわけですから、数値になります。ＶＢの世界に戻って扱えば、エクセルの書式の効力はなくなります。そこはプログラマーがＶＢの世界の書式設定の面倒を見なければなりません。
Ｆｏｒｍａｔ関数あたりがそれでしょう。
「マスク」については
http://www.komonet.ne.jp/~vb/chap6.htm
これはＶＢ版だと思うが。

回答No.6

Wendy02

こんばんは。

#1 さんにかぶりますが、ちょっと試してみました。
「［h]:mm 」

こういう書式ですと、Text のほうが後処理が簡単のようです。

サンプルコード

Dim objXlApp As New Excel.Application
With objXlApp
　.Workbooks.Open "D:\testtime.xls"
Debug.Print .Worksheets("Sheet1").Range("A1").Text
　.ActiveWorkbook.Close True
　.Quit
End With

ただ、その下の桁の時間情報まで使うとなれば、.Value プロパティが必要です。

回答No.5

gugux

変数sをstringで宣言して、
s = cells(y,x)
で強引に"1:23:45"とかにならないかな。

回答No.4

Somali_Shinji

それでよいのです。Windows版エクセルでは、1.0は1990/1/1 0:0:0 をあらわします。2.0は1990/1/2 0:0:0 です。時間は小数点以下で表現されます。エクセルのヘルプ「日付と日付システムについて」を読んでみてください。

回答No.3

BLUEPIXY

値としては、正しい値でこれはしょうがないですね。
ＶＢの方で、formatとかを使って書式を付けるしかないと思います。

回答No.2

1050 円（@1050YEN）

CDate(Worksheets(1).Cells(1))
という方法もあり