Hi,

I am trying to open a csv text file in excel using vbscript or vba. See the
code below

Const xlDelimited = 1
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

The above code is throwing an error. if i do not use the "set wb" to store
the reference to the opened workbook it works fine. But i wanted to store the
reference to this opened file so that i can use it later.

Please help me to solve this problem.

Change

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

to

wb=objExcel.Workbooks.OpenText
("C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True," ,")

since
1. You are assigning the right hand side to wb...
2. objExcel.Workbooks.OpenText does not return an object... it is a BOOLEAN
method which returns True if the file is opened and False otherwise.



"Store a reference of a excel workbook" wrote:

Hi,

I am trying to open a csv text file in excel using vbscript or vba. See the
code below

Const xlDelimited = 1
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

The above code is throwing an error. if i do not use the "set wb" to store
the reference to the opened workbook it works fine. But i wanted to store the
reference to this opened file so that i can use it later.

Please help me to solve this problem.

Thnaks for your reply Sheeloo. But i my problem is not solved yet. I wanted
to store the reference to that opened file in a variable so that i can use it
later. Can you plz tell me the way?

"Sheeloo" wrote:

Change

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

to

wb=objExcel.Workbooks.OpenText
("C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True," ,")

since
1. You are assigning the right hand side to wb...
2. objExcel.Workbooks.OpenText does not return an object... it is a BOOLEAN
method which returns True if the file is opened and False otherwise.



"Store a reference of a excel workbook" wrote:

Hi,

I am trying to open a csv text file in excel using vbscript or vba. See the
code below

Const xlDelimited = 1
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

The above code is throwing an error. if i do not use the "set wb" to store
the reference to the opened workbook it works fine. But i wanted to store the
reference to this opened file so that i can use it later.

Please help me to solve this problem.

Use this
Const xlDelimited = 1
Set objExcel = CreateObject("Excel.Application")


fOpen=objExcel.Workbooks.OpenText
("C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True," ,")


objExcel.Visible = True

if fOpen=true Then
set wb=objExcel.Workbooks("Test.txt")
wb.Sheets("Test").Range("A1").Value="Code OK"
end if


"Store a reference of a excel workbook" wrote:

Thnaks for your reply Sheeloo. But i my problem is not solved yet. I wanted
to store the reference to that opened file in a variable so that i can use it
later. Can you plz tell me the way?

"Sheeloo" wrote:

Change

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

to

wb=objExcel.Workbooks.OpenText
("C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True," ,")

since
1. You are assigning the right hand side to wb...
2. objExcel.Workbooks.OpenText does not return an object... it is a BOOLEAN
method which returns True if the file is opened and False otherwise.



"Store a reference of a excel workbook" wrote:

Hi,

I am trying to open a csv text file in excel using vbscript or vba. See the
code below

Const xlDelimited = 1
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

The above code is throwing an error. if i do not use the "set wb" to store
the reference to the opened workbook it works fine. But i wanted to store the
reference to this opened file so that i can use it later.

Please help me to solve this problem.

Thank you very much Sheeloo. Its Working :)

"Sheeloo" wrote:

Use this
Const xlDelimited = 1
Set objExcel = CreateObject("Excel.Application")


fOpen=objExcel.Workbooks.OpenText
("C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True," ,")


objExcel.Visible = True

if fOpen=true Then
set wb=objExcel.Workbooks("Test.txt")
wb.Sheets("Test").Range("A1").Value="Code OK"
end if


"Store a reference of a excel workbook" wrote:

Thnaks for your reply Sheeloo. But i my problem is not solved yet. I wanted
to store the reference to that opened file in a variable so that i can use it
later. Can you plz tell me the way?

"Sheeloo" wrote:

Change

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

to

wb=objExcel.Workbooks.OpenText
("C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True," ,")

since
1. You are assigning the right hand side to wb...
2. objExcel.Workbooks.OpenText does not return an object... it is a BOOLEAN
method which returns True if the file is opened and False otherwise.



"Store a reference of a excel workbook" wrote:

Hi,

I am trying to open a csv text file in excel using vbscript or vba. See the
code below

Const xlDelimited = 1
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

set wb=objExcel.Workbooks.OpenText
"C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True,", "

The above code is throwing an error. if i do not use the "set wb" to store
the reference to the opened workbook it works fine. But i wanted to store the
reference to this opened file so that i can use it later.

Please help me to solve this problem.

I am happy that it worked for you.

Essentially once you get a reference to Excel by
Set objExcel = CreateObject("Excel.Application")
you can get a reference to any Excel object (Workbooks, Worksheets,
Range,...) through objExcel...



"Store a reference of a excel workbook" wrote:

Thank you very much Sheeloo. Its Working :)

"Sheeloo" wrote:

Use this
Const xlDelimited = 1
Set objExcel = CreateObject("Excel.Application")


fOpen=objExcel.Workbooks.OpenText
("C:\Scripts\Test1.txt",,,xlDelimited,,,,,,,True," ,")


objExcel.Visible = True

if fOpen=true Then
set wb=objExcel.Workbooks("Test.txt")
wb.Sheets("Test").Range("A1").Value="Code OK"
end if