Solved

Excel/VBA ADO Query

Posted on 2006-07-21
5
430 Views
Last Modified: 2011-10-03
Hi All,

I have a series of log files I'm trying to organize into excel by treating the text logs as an ADO Recordset.

The format of the logs is as follows:

"Column1" "Column2" "Column3" "Column4"...
"Data1" "Data2" "Data3" "Data4"...

When I query "Select * from "... it only seems to be returning the first column, not the entire row as desired...

The code follows:

'This gives us a full path name e.g. C:tempfolderfile.txt
          'We need to split this into path and file name
          Set oFSObj = CreateObject("SCRIPTING.FILESYSTEMOBJECT")

          strFilePath = oFSObj.GetFile(strFullPath).ParentFolder.Path
          strFilename = oFSObj.GetFile(strFullPath).Name


          'Open an ADO connection to the folder specified
          Set oConn = CreateObject("ADODB.CONNECTION")
          oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                     "Data Source=" & strFilePath & ";" & _
                     "Extended Properties=""text;HDR=Yes;FMT=Delimited"""

          Set oRS = CreateObject("ADODB.RECORDSET")

          'Now actually open the text file and import into Excel
          oRS.Open "SELECT * FROM " & strFilename, oConn, 3, 1, 1    
              Sheets.Add
             ActiveSheet.Range("A1").CopyFromRecordset oRS, 65535
          Wend

          oRS.Close
          oConn.Close

Any ideas?
0
Comment
Question by:musesshadow
  • 2
5 Comments
 
LVL 3

Expert Comment

by:cdemir
ID: 17174471
pseudo code :

rownum = 1
while not rs.eof
   colnum = 1
   cells(rownum,colnum) = rs.fields(0)
   colnum = 2
   cells(rownum,colnum) = rs.fields(1)
   ...
   rownum = rownum + 1
wend
0
 

Author Comment

by:musesshadow
ID: 17178523
Hi CDemir,

I had thought of this too, but it doesn't seem to work.
Whether I try the standard reader (as in my initial post) or the .fields(x) option, I can only seem to get information from the file for the first column of information.

Would this be because of the quotes and the spacing?  Is the delimitation of the file screwing excel?
0
 

Author Comment

by:musesshadow
ID: 17178706
A standard "file reader"

Open sFileName For Input Access Read As #1

          While Not EOF(1)
             Line Input #1, WholeLine
             Cells(RowNdx, ColNdx).Value = WholeLine
             RowNdx = RowNdx + 1
          Wend
          Close #1

Seems to work.

Please close case with me as the solution :)
0
 

Accepted Solution

by:
ee_ai_construct earned 0 total points
ID: 17405208
PAQ / Refund
ee ai construct, community support moderator
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

There is an easy way, in .NET, to centralize the treatment of all unexpected errors. First of all, instead of launching the application directly in a Form, you need first to write a Sub called Main, in a module. Then, set the Startup Object to th…
This article will show, step by step, how to integrate R code into a R Sweave document
The viewer will learn how to clear a vector as well as how to detect empty vectors in C++.
This video will show you how to get GIT to work in Eclipse.   It will walk you through how to install the EGit plugin in eclipse and how to checkout an existing repository.

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now