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