importing text file into excel

stealthdevil · June 28th, 2007, 09:48 AM

Hi,
  I'm hoping someone can point me in the right direction on this. I've done it a few times in access, but its a little different in excel.
  There's a text file on the network that is updated daily via the mainframe. I need to automate an excel workbook to import this text file. I've been trying to use the GetObject function to bring in the text file and store it in a variable for manipulation, but it seems to be a little different than with access.
  What is the best way to go about doing this?

Thanks,
David

Shasur · June 29th, 2007, 01:51 AM

It would be bettter to have that as a query table

Sub TXT_QueryTable()

Dim ConnString As String

Dim qt As QueryTable

ConnString = "TEXT;C:\Temp.txt"

Set qt = Worksheets(1).QueryTables.Add(Connection:=ConnStri ng, _
Destination:=Range("B1"))

qt.Refresh

End Sub

This will apply if you have the same text file that is getting appended. If it changes then change the Connection string

Also you can refresh the Excel every time it gets opened using qt.Refresh

Private Sub Workbook_Open()
Dim qt As QueryTable
Set qt = ActiveWorkbook.Sheets(1).QueryTable(1)
qt.Refresh

End Sub

Cheers
Shasur

http://www.vbadud.blogspot.com

stealthdevil · July 10th, 2007, 11:28 AM

Thanks for the reply Shasur!
I tried to use the above code, but never got it going quite right.
I did find a way to do import the text file though, using the code below.

Code:

Public Sub ImportTextFile()
    Dim RowNdx As Long
    Dim ColNdx As Integer
    Dim TempVal As Variant
    Dim WholeLine As String
    Dim Pos As Integer
    Dim NextPos As Integer
    Dim SaveColNdx As Integer
    Dim Sep As String
    Dim FName As String

    Cells.Select
    Range("A2:V3500").Select
    Selection.ClearContents

    FName = "Y:\INCOMING\sorter1.txt"
    Sep = ","

    Application.ScreenUpdating = False
    'On Error GoTo EndMacro:

    SaveColNdx = 1
    RowNdx = 2

    Open FName For Input Access Read As #1

    While Not EOF(1)
        Line Input #1, WholeLine
        If Right(WholeLine, 1) <> Sep Then
            WholeLine = WholeLine & Sep
        End If
        ColNdx = SaveColNdx
        Pos = 1
        NextPos = InStr(Pos, WholeLine, Sep)
        While NextPos >= 1
            TempVal = Mid(WholeLine, Pos, NextPos - Pos)
            Cells(RowNdx, ColNdx).Value = TempVal
            Pos = NextPos + 1
            ColNdx = ColNdx + 1
            NextPos = InStr(Pos, WholeLine, Sep)
        Wend
        RowNdx = RowNdx + 1
    Wend

EndMacro:
    On Error GoTo 0
    Application.ScreenUpdating = True
    Close #1

End Sub

The only problem I'm having now is that some of the fields have quotes. I need to get rid of the quotes. How can I accomplish this?

Thanks,
Dave