Excel for mac web query returned no data4/22/2023 ![]() ![]() 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 Comments
Leave a Reply.AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |