DAOでExcelの情報取得の方法

解決


チャチ  2004-04-23 23:46:10  No: 112952

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

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


チャチ  2004-04-28 20:48:48  No: 112953

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

セルに”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

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


岡田 之仁  2004-04-28 21:42:58  No: 112954

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

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

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

ご検討下さい。

以上。


チャチ  2004-05-07 00:47:28  No: 112955

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

別の方法を考えます


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加