Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Import data
I recorded the attached macro for importing data into my worksheet in range
A6:E700. However when I try to run it on reopening my workbook I get a highlight in the debugger at this line. ..Refresh BackgroundQuery:=False Can someone tell me what I'm doing wrong? Sub Import() Workbooks.Add With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\chris\My Documents\Wednesday Positions.txt", _ Destination:=Range("A1")) .Name = "Wednesday Positions" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlFixedWidth .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1) .TextFileFixedColumnWidths = Array(10, 5, 10, 16) .Refresh BackgroundQuery:=False--- This line is always highlighted. End With Range("A1:E718").Select Selection.Copy Windows("Wednesday Report.xls").Activate ActiveSheet.Paste End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Import data
Delete the QueryTable when the macro is ready
Something like this ActiveSheet.QueryTables(1).Delete -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "chrisnsmith" wrote in message ... I recorded the attached macro for importing data into my worksheet in range A6:E700. However when I try to run it on reopening my workbook I get a highlight in the debugger at this line. .Refresh BackgroundQuery:=False Can someone tell me what I'm doing wrong? Sub Import() Workbooks.Add With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\chris\My Documents\Wednesday Positions.txt", _ Destination:=Range("A1")) .Name = "Wednesday Positions" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlFixedWidth .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1) .TextFileFixedColumnWidths = Array(10, 5, 10, 16) .Refresh BackgroundQuery:=False--- This line is always highlighted. End With Range("A1:E718").Select Selection.Copy Windows("Wednesday Report.xls").Activate ActiveSheet.Paste End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
import XML data...Is there a size limit on the import? | Excel Discussion (Misc queries) | |||
How to Start Excel in Text Import Wizard for data import | Setting up and Configuration of Excel | |||
Import external data, data includes Excel function | Excel Worksheet Functions | |||
Prevent equation from skipping data when referencing import data? | Excel Discussion (Misc queries) | |||
how to Import data in excel office2003 with data more 65000 rows | Excel Worksheet Functions |