DAOでExcelの情報取得の方法

解決

---

過去の質問より
データを取得できたのですが

.Fields(0)
VBAで言う
.Valueで取得できますが
.Textで取得したいのですが
方法はありますでしょうか？
つまり
セルに”1月1日”と入っていても
情報としては”2004/01/01”で引っ張ってくる
という事です
見たままの状態で情報を得たいので
よろしくお願いします

編集    削除

---

説明の仕方が下手ですいません
レスが付かないのもそのせいかな？

セルに”1月1日”と入っていたら
DAOを使って”1月1日”と情報を取得する
方法を教えて下さいということです

    Dim DB           As DAO.Database
    Dim RC           As DAO.Recordset
    Dim strFileName  As String
    Dim strOutFile   As String
    Dim strW         As String

    strFileName = App.Path & "\Test.xls"
    strOutFile = App.Path & "\Test.txt"
    Set DB = OpenDatabase(strFileName, False, False, "Excel 8.0;HDR=NO;")
    Set RC = DB.OpenRecordset("Sheet1$")
    Open strOutFile For Output As #1
    Do Until RC.EOF
        With RC
        '3列分のデータを取得
            strW = .Fields(0).Value
            strW = strW & vbTab & .Fields(1).Value
            strW = strW & vbTab & .Fields(2).Value
            Print #1,strW
            .MoveNext
        End With
    Loop
    Close #1
    RC.Close
    DB.Close
    Set RC = Nothing
    Set DB = Nothing

と現在はここで行き詰ってます

編集    削除

---

エクセルの場合、セルの表示属性の設定が可能で日付の
フォーマットを指定できます。

ですが、これをＤＡＯ経由では取得できません。
見えたとおりに取得したいという部分は不可能です。

日付データではなく、文字列として日付を入力したセル
であれば、そのまま取得は可能です。

ご検討下さい。

以上。

編集    削除

---

なるほど
ありがとうございます

別の方法を考えます

編集    削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。