Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Yet more VBA Help!
Hi,
By recording a Macro and using the text import wizard i have obtained the following code at the end of this post. However, this always places the data in the active worksheet, and i would like to place in a worksheet called ACL. Can anyone show me how to amend this code to do this? Thanks in advance Chris Here's the code: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 18/06/2007 by chrisr3 ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;S:\shared\NCSL\Statistics\Headship\Headship_ Outgoing_Account_Code_Log.txt" _ , Destination:=Range("A1")) .Name = "Headship_Outgoing_Account_Code_Log" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub |