OpenText method not working
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
|