OpenText method not working

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
Back
Top