India

<div>I need a long term highly skilled Excel VBA developer.</div><div> </div><div>First task is to fix a query string issue. Following function gives error related to&nbsp; formula.</div><div>Please apply if you have worked with QueryTables before and you are sure that you can fix this.</div><div>I will provide macro file once I see some confidence in you and also assign project.</div><div> </div><div>Sub downloaddata() &nbsp;&nbsp;&nbsp; On Error GoTo ErrOccured &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; strEndYr = Trim(Str(Year(Sheets("Main").Range("L1").Value))) &nbsp;&nbsp;&nbsp; strStartYr = Trim(Str(Year(Sheets("Main").Range("L3").Value))) &nbsp;&nbsp;&nbsp; strEndDt = Trim(Str(Day(Sheets("Main").Range("L1").Value))) &nbsp;&nbsp;&nbsp; strStartDt = Trim(Str(Day(Sheets("Main").Range("L3").Value))) &nbsp;&nbsp;&nbsp; strEndMo = Trim(Str(Month(Sheets("Main").Range("L1").Value) - 1)) &nbsp;&nbsp;&nbsp; strStartMo = Trim(Str(Month(Sheets("Main").Range("L3").Value) - 1)) &nbsp;&nbsp;&nbsp; intDownloadRecords = Sheets("Main").Range("L2").Value &nbsp;&nbsp;&nbsp; If Len(strEndMo) = 1 Then strEndMo = "0" &amp; strEndMo &nbsp;&nbsp;&nbsp; If Len(strStartMo) = 1 Then strStartMo = "0" &amp; strStartMo &nbsp;&nbsp;&nbsp; strFormula = "let" &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "&nbsp;&nbsp;&nbsp; Source = Csv.Document(Web.Contents(""" &amp; ""function=TIME_SERIES_DAILY_ADJUSTED"" &amp; ""&amp;datatype=csv"" &amp; ""&amp;symbol=" &amp; strSymbol &amp; """ &amp; ""&amp;outputsize=full"" &amp; ""&amp;apikey=N2T7KBUCA0A5ZEZP""),[Delimiter="","", Columns=9, Encoding=1252, QuoteStyle=QuoteStyle.None])," &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "&nbsp;&nbsp;&nbsp; #""Promoted Headers"" = Table.PromoteHeaders(Source, [PromoteAllScal" &amp; _ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "ars=true])," &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "&nbsp;&nbsp;&nbsp; #""Changed Type"" = Table.TransformColumnTypes(#""Promoted Headers"",{{""timestamp"", type date}, {""open"", type number}, {""high"", type number}, {""low"", type number}, {""close"", type number}, {""adjusted_close"", type number}, {""volume"", Int64.Type}, {""dividend_amount"", type number}, {""split_coefficient"", Int64.Type}})" &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "in" &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "&nbsp;&nbsp;&nbsp; #""Change" &amp; _ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "d Type""" &nbsp;&nbsp;&nbsp; strFormula2 = "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" &amp; strDisplay &nbsp;&nbsp;&nbsp; ActiveWorkbook.Queries.Add Name:=strDisplay &amp; Now, Formula:=strFormula &nbsp;&nbsp;&nbsp; With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(strFormula2), Destination:=Range("$A$1")).QueryTable &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandType = xlCmdSql &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandText = Array( _ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "SELECT TOP " &amp; intDownloadRecords &amp; " * FROM [" &amp; strDisplay &amp; "]" _ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .RowNumbers = False &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .FillAdjacentFormulas = False &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .PreserveFormatting = True &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .RefreshOnFileOpen = False &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .BackgroundQuery = False &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .RefreshStyle = xlInsertDeleteCells &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .SavePassword = False &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .SaveData = True &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .AdjustColumnWidth = True &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .RefreshPeriod = 0 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .PreserveColumnInfo = True &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ListObject.DisplayName = strDisplay &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Refresh BackgroundQuery:=False &nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp; ErrOccured: End Sub </div><div> </div><div>This is just a first small job. This may lead to many more VBA projects in future.</div><div> </div><div>Thanks. </div>

Excel VBA - Fix QueryTables issue

Useful links

Company

Information

Content Writers

Freelancers

Freelance Jobs

Online Jobs

Designers

Developers

Translations