Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Excel/VBA ADO Query

Posted on 2006-07-21
5
Medium Priority
?
443 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The purpose of this article is to demonstrate how we can use conditional statements using Python.
When we want to run, execute or repeat a statement multiple times, a loop is necessary. This article covers the two types of loops in Python: the while loop and the for loop.
This tutorial covers a step-by-step guide to install VisualVM launcher in eclipse.
The viewer will learn how to use the return statement in functions in C++. The video will also teach the user how to pass data to a function and have the function return data back for further processing.
Suggested Courses

604 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