Semicolon:=False, Comma:=True, Space:=False, other:=True, OtherChar:=",", FieldInfo:=Array(1, 2) Sheets("Data").Columns("A:B").ColumnWidth = 12 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ With Sheets("Data").QueryTables.Add(Connection:="URL " & str, Destination:=Sheets("Data").Range("a1"))Įnd With Sheets("Data").Range("a1").CurrentRegion.TextToColumns Destination:=Sheets("Data").Range("a1"), DataType:=xlDelimited, _ Selection.ClearContents 'Download stock quotes. Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Sheets("Data").Activate 'Name of sheet the data will be downloaded into. Sub GetFinvizData() Dim str As String 'Delete existing data Sheets( "Data").Columns( "A:B").ColumnWidth = 12 Semicolon:= False, Comma:= True, Space:= False, other:= True, OtherChar:= ",", FieldInfo:=Array(1, 2) TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= False, Tab:= False, _ Sheets( "Data").Range( "a1").CurrentRegion.TextToColumns Destination:=Sheets( "Data").Range( "a1"), DataType:=xlDelimited, _ With Sheets( "Data").QueryTables.Add(Connection:= "URL " & str, Destination:=Sheets( "Data").Range( "a1")) Sheets( "Data").Activate 'Name of sheet the data will be downloaded into.
0 kommentar(er)
