|
▼イッコウ さん:
こんにちは。
>はじめまして、皆様よろしくお願いします。
>
>文字列の取得につい質問があります。
>現在、Cellsを使用しWorkSheetからデータを取得しています。
>ところが、実数値を取得した場合、1.0は1になってしまいます。
>どのように取得すればよいのでしょうか?
>
><ソース>
>*sht は WorkSheetです。
>*Data,strはString形です。
>
>Do
> If (sht.Cells(1, xcell) = "") Then
> Exit Do
> ElseIf (xcell = 1) Then
> Data = Trim(sht.Cells(ycell, xcell))
> Else
> str = Trim(sht.Cells(ycell, xcell))
> Data = Data & Chr(&HD) & str
> End If
> If (ycell = 1) Then
> iCellItem = xcell
> End If
> xcell = xcell + 1
>Loop
まず、プロパティはきちんと記述してくださいネ!!
しなかったために経験しなくてもよいエラーに遭遇することが
ありますよ!!
セルには、「1.0」と表示されているのであれば、
sht.Cells(ycell, xcell).text
で確認してください。
|
|