![]() ![]() 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 |