Import text file into excel using vbscript

[Suggz]

Hi,

I am attempting to import a text file, but I get an error "(10094) ActiveX Automation: Object var is 'Nothing'."

Not sure what the mistake here is.

Sub vba_excel_importing_file()
    Dim strFileName As String

    strFileName = InputBox("Enter the full path to the comma " & _
               "separated file to import")

	Set oExcel = CreateObject("Excel.Application")

    With oExcel.ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strFileName, Destination:=oExcel.Range("A1") _
        )
        oExcel.Name = "vba excel importing file"
        oExcel.FieldNames = True
        oExcel.RowNumbers = False
        oExcel.FillAdjacentFormulas = False
        oExcel.PreserveFormatting = True
        oExcel.RefreshOnFileOpen = False
        oExcel.RefreshStyle = xlInsertDeleteCells
        oExcel.SavePassword = False
        oExcel.SaveData = True
        oExcel.AdjustColumnWidth = True
        oExcel.RefreshPeriod = 0
        oExcel.TextFilePromptOnRefresh = False
        oExcel.TextFilePlatform = 437
        oExcel.TextFileStartRow = 1
        oExcel.TextFileParseType = xlDelimited
        oExcel.TextFileTextQualifier = xlTextQualifierDoubleQuote
        oExcel.TextFileConsecutiveDelimiter = False
        oExcel.TextFileTabDelimiter = False
        oExcel.TextFileSemicolonDelimiter = False
        oExcel.TextFileCommaDelimiter = True
        oExcel.TextFileSpaceDelimiter = False
        oExcel.TextFileColumnDataTypes = Array(1, 1, 1, 1)
        oExcel.TextFileTrailingMinusNumbers = True
        oExcel.Refresh BackgroundQuery:=False
    End With
End Sub

[Guido Geurs]

This will import a file into Excel.

Do While X = 0
    strAnswer = InputBox _
        ("Please enter a name :","Load TXT File")
    If strAnswer = "" Then
        Wscript.Echo "You must enter a file name."
    Else
        Wscript.Echo strAnswer
        Exit Do
    End If
Loop


Dim objUser, strExcelPath, objExcel, objSheet, _
objFSO, objFile, aline, l, irow, icol

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strAnswer, ForReading)

' strExcelPath = ...
' Bind to Excel object.
'On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
If (Err.Number <> 0) Then
    Wscript.Echo "Excel application not found."
    Wscript.Quit
End If

With objExcel
	.Visible = True
	.Workbooks.Add
	Set objSheet = 	.ActiveWorkbook.Worksheets(1)
	objSheet.Name = "test"
End with

irow= 1
icol= 1
While Not objFile.AtEndOfStream
    l = objFile.ReadLine
    objSheet.Cells(irow, icol) = l
    irow= irow+ 1
Wend

objExcel.UserControl = True