Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Err 1004 when move Workbooks.OpenText to called Sub
I am trying to tidy up some VBA code by putting it in a Called Sub
When I use Workbooks.Opentext in the original code as for example sFilename = sPath & "F59080" sWbookname = sPath & "x80G01.xls" Workbooks.OpenText FileName:=sFilename, _ Origin:=xlWindows, _ StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _ Array(Array(0, 1), Array(2, 2), Array(27, 2), Array(137, 2), Array(150, 2)) It works. But if I put it in a called Sub as Sub texToWB(Wb As String, Textfile As String, Arr As String, GrpId As String) If Dir(Textfile) < "" Then Workbooks.OpenText FileName:=Textfile, _ Origin:=xlWindows, _ DataType:=xlFixedWidth, FieldInfo:=Array(Arr) Else MsgBox Textfile & " doesn't exist" End If It fails with Error 1004. I am running Office 2003 and Windows XP |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Workbooks.OpenText StartRow:=2 Not Skipping Row 1 | Excel Programming | |||
Workbooks.OpenText does not work on XP. HELP !!! | Excel Programming | |||
How to open UTF-8 files with Workbooks.OpenText | Excel Programming | |||
Runtime error 1004 with method OpenText - but only on one computer | Excel Programming | |||
Workbooks.OpenText | Excel Programming |