VB6.0,DAOでXlsファイルに数字を入力させるには？ (ID:106802)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6.0からDAOを使いXlsファイルにテキストボックスから入力された数字を 保存しようとしています。 現在下のように処理しているのですが、処理終了後エクセルでxlsファイルを開くと 数字の頭に'が付き文字列として扱われてしまっています。 これを上手く数字として認識させ入力させる良い方法がありましたらご教授ください。 Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;") Set RS = DB.OpenRecordset(xlSheetName) Do Until txtInput(i).Text = "" RS.Edit RS.Fields(1) = txtInput(i).Text RS.Update i = i + 1 RS.MoveNext If i = 10 Then Exit Do End If Loop RS.Close DB.Close