G
Guest
The answer to a question I previously posted....
Dim bk as Workbook, rng as Range
ChDir "C:\Temp"
set bk = Workbooks.OpenText( Filename:="C:\Temp\myfile.txt", _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), _
Array(8,1), Array(12, 1), Array(17, 1), _
Array(21, 1), Array(29, 1), Array(38, 1), _
Array(46, 1), Array(50, 1), Array(58, 1), _
Array(67, 1))
set rng = activesheet.Range("A1").CurrentRegion
set rng = rng.offset(1,0).Resize(rng.rows.count-1)
Windows("daily.xls").Activate
Sheets("table").Select
Worksheets("table").Unprotect
rng.copy Destination:=Range("T2")
I get "Compile erro: Expected;List separatot or )"
What am I missing?
Thanks!
Dim bk as Workbook, rng as Range
ChDir "C:\Temp"
set bk = Workbooks.OpenText( Filename:="C:\Temp\myfile.txt", _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), _
Array(8,1), Array(12, 1), Array(17, 1), _
Array(21, 1), Array(29, 1), Array(38, 1), _
Array(46, 1), Array(50, 1), Array(58, 1), _
Array(67, 1))
set rng = activesheet.Range("A1").CurrentRegion
set rng = rng.offset(1,0).Resize(rng.rows.count-1)
Windows("daily.xls").Activate
Sheets("table").Select
Worksheets("table").Unprotect
rng.copy Destination:=Range("T2")
I get "Compile erro: Expected;List separatot or )"
What am I missing?
Thanks!