I am automating a text file from Word to Excel. When I try to open the text
file in Excel from Word using:

xlApp.Workbooks.OpenText Filename:= _
wdFile & ".txt", Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False,
Comma:=False _
, Space:=True, Other:=False, TrailingMinusNumbers:=True

I get an error. If I delete everything except the filename and the origin,
it works correctly. However, I need to have the file delimited by spaces.
What is wrong with this?

Thanks, Pflugs

I would guess you are using late binding (GetObject or CreateObject), so
Try replacing xlDelimited with its value, 1


xlApp.Workbooks.OpenText Filename:= _
wdFile & ".txt", Origin:=437, _
StartRow:=1, DataType:=1, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, _
TrailingMinusNumbers:=True

--
Regards,
Tom Ogilvy



"Pflugs" wrote in message
...
I am automating a text file from Word to Excel. When I try to open the
text
file in Excel from Word using:

xlApp.Workbooks.OpenText Filename:= _
wdFile & ".txt", Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False,
Comma:=False _
, Space:=True, Other:=False, TrailingMinusNumbers:=True

I get an error. If I delete everything except the filename and the
origin,
it works correctly. However, I need to have the file delimited by spaces.
What is wrong with this?

Thanks, Pflugs

Thanks, Tom. I ended up just rewriting the macro in Excel. The text file
imported a lot nicer than I thought it would, and I achieved much better
results. Thanks for your time.

Pflugs

"Tom Ogilvy" wrote:

I would guess you are using late binding (GetObject or CreateObject), so
Try replacing xlDelimited with its value, 1


xlApp.Workbooks.OpenText Filename:= _
wdFile & ".txt", Origin:=437, _
StartRow:=1, DataType:=1, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, _
TrailingMinusNumbers:=True

--
Regards,
Tom Ogilvy



"Pflugs" wrote in message
...
I am automating a text file from Word to Excel. When I try to open the
text
file in Excel from Word using:

xlApp.Workbooks.OpenText Filename:= _
wdFile & ".txt", Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False,
Comma:=False _
, Space:=True, Other:=False, TrailingMinusNumbers:=True

I get an error. If I delete everything except the filename and the
origin,
it works correctly. However, I need to have the file delimited by spaces.
What is wrong with this?

Thanks, Pflugs