DAOでExcelの情報取得の方法 (ID:112953)

名前

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

本文 説明の仕方が下手ですいません レスが付かないのもそのせいかな？ セルに”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 と現在はここで行き詰ってます