View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default Workbooks.OpenText problem in XL2000

Hi Mike

This is your problem

Origin:=437

? xlWindows
2
? xlMacintosh
1
? xlMSDOS
3

If this argument is omitted, the method uses the current setting of the File Origin option in the Text Import Wizard


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mike Iacovou" wrote in message ...
Hi there. the following code (to import CSV data into worksheet) seems to
work ok in XL2002+, but results in an error on XL2000 regarding the opentext
command (this error was reported to me, and sadly i dont have the error code
etc). I suspect that either one of the operands is invalid in XL2000, or
XL2000 is a little more strict and i have left something out... please
advise. TIA

Workbooks.OpenText Filename:=sPath, Origin:=437, StartRow:=1,
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
ConsecutiveDelimiter:=False, Semicolon:=False, Comma:=True
With ActiveWorkbook
.Worksheets(1).UsedRange.Copy copyTo.Range("A1")
.Close False
End With