Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |