Workbooks.OpenText problem in XL2000

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

Guest

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