Hi all,

Using Excel2002, trying to open a batch file and copy to another sheet
within a workbook, however I am getting a file not found error, even though
it is definitely there. Any suggestions?

Sub import_batch()

Workbooks.OpenText Filename:="batch.BAT", Origin _
:=xlWindows, startrow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=True, other:=False, FieldInfo:=Array(1, 1)

Workbooks("batch.BAT").Activate
Range("a1", Range("a1").End(xlDown).End(xlToRight)).Copy
ThisWorkbook.Activate
JumperInput.Activate
ActiveSheet.Paste Destination:=Worksheets("JumperInput").Range("a1")
Application.CutCopyMode = False
Workbooks("batch.BAT").Close SaveChanges:=False


End Sub

You only give the file name, not the path. Without a path Excel will look
for the file in the current directory (hint: do a File... Open from the Excel
menu, look at the folder it is opening: that is where it is looking for your
file). Ty specifying the entire path, e.g.
Workbooks.OpenText Filename:="C:\MyStuff\FileFolder\batch.BAT",...
--
- K Dales


"TxRaistlin" wrote:

Hi all,

Using Excel2002, trying to open a batch file and copy to another sheet
within a workbook, however I am getting a file not found error, even though
it is definitely there. Any suggestions?

Sub import_batch()

Workbooks.OpenText Filename:="batch.BAT", Origin _
:=xlWindows, startrow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=True, other:=False, FieldInfo:=Array(1, 1)

Workbooks("batch.BAT").Activate
Range("a1", Range("a1").End(xlDown).End(xlToRight)).Copy
ThisWorkbook.Activate
JumperInput.Activate
ActiveSheet.Paste Destination:=Worksheets("JumperInput").Range("a1")
Application.CutCopyMode = False
Workbooks("batch.BAT").Close SaveChanges:=False


End Sub