Workbooks.OpenText problem in XL2000
 

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

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

Workbooks.OpenText problem in XL2000
 

many thanks Ron
sadly, it still doesn't appear to work.
the exact error code is: 438 'object doesn't support this property/method'
i'll investigate further, but any further ideas greatly appreciated. Code
now stands at:

['WorkPath' / 'fname' are global variables]

Dim wb As Workbook, sPath As String
sPath = WorkPath & fname
Workbooks.OpenText Filename:=sPath, 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

Cheers

NOT a problem with OpenText... (!)
 

Hi Ron.
I have managed to actually find the routine inquestion - it is NOT the
workbooks.opentext code (although i am sure that the tag i have removed would
cause problems if the system actually got as far as that). The problem is
actually with BrowseForFolder - or more accurates with obj.SELF.path - i will
start a new thread as any responses will be under the wrong problem subject
(if omitting the tag fails to correct the problem). I suspect the 'SELF' tag
is not supported in XL2000... i'll try without.

NOT a problem with OpenText... (!)
 

Hi Mike

Working for me in Excel 2000

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


"Mike Iacovou" wrote in message ...
Hi Ron.
I have managed to actually find the routine inquestion - it is NOT the
workbooks.opentext code (although i am sure that the tag i have removed would
cause problems if the system actually got as far as that). The problem is
actually with BrowseForFolder - or more accurates with obj.SELF.path - i will
start a new thread as any responses will be under the wrong problem subject
(if omitting the tag fails to correct the problem). I suspect the 'SELF' tag
is not supported in XL2000... i'll try without.