Macro Help
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! |
Macro Help
You are missing the final bracket in the set bk set statement
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))) 'Missing last bracket 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") -- HTH... Jim Thomlinson "Bobby" wrote: 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! |
All times are GMT +1. The time now is 09:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com