fetch this table to excel
$30-250 USD
ชำระเงินเมื่อจัดส่ง
i am trying to get this table through VBA to Excel sheet to do calculations on it on daily basis(click on historical data and then the desired table to be imported through VBA will show up):
[login to view URL]!ut/p/z1/pdFLC4JQEAXgX-N6jlcta2daappgD6u7iVuBGb4WVvTvuz02QQ-i2Q18B-YwxGlBvBTHLBVNVpUil_uSt1aRF9oeTBa4_akGq-WM7HHkMwA0vwHGbFPt6AgRtlUJXPjxSNcQa8R_yrt-1IYVW14ySCQ12X956N_z_JnAY44k_SBwbIOhZzzAp4rP4EWHj-B65A3gzVigIfE0r9b3j-yapu4qUNCIrTgdcgXEN1VRi_I8ORfrSiIVDFQXs9kCmb838vQCS-bvMw!!/dz/d5/L0lDUmlTUSEhL3dHa0FKRnNBLzROV3FpQSEhL2Vu/#chart_tab2
before they upgrade their website to the new version i used to run the VBA code smoothly using this code to fetch the table for all the companies from the HTML page to excel sheet:
Sub stocks()
Dim x As Long, y As Long, xn As Long
Dim a As String
Dim b As String
xn = 1
Sheets("Main").Cells(xn, 6).Value = "STARTED !!"
For xn = 1 To 166
Dim htm As Object
' Dim Day As String
' Dim Month As String
' Dim Year As String
' Dim Date1 As String
Dim Doc As [login to view URL]
Dim ECol As [login to view URL]
' Dim todaysdate As Date
Dim IFld As [login to view URL]
Dim sheetName As String
Set htm = CreateObject("htmlFile")
a = Sheets("Main").Cells(xn + 1, 1).Value
b = Sheets("Main").Cells(xn + 1, 3).Value
Sheets("Main").Cells(xn + 1, 5).Value = "DONE!!!"
If xn > 57 Then
If xn > 112 Then
Sheets("Main").Cells(xn - 110, 18).Value = "DONE!!!"
Else
Sheets("Main").Cells(xn - 56, 11).Value = "DONE!!!"
End If
End If
With CreateObject("[login to view URL]")
.Open "GET", "[login to view URL]!ut/p/c1/04_SB8K8xLLM9MSSzPy8xBz9CP0os3g_A-ewIE8TIwN3Q0tDA0_v4EDLUCNHIwMvc6B8JLJ8QJipgaeJT7BRcICXsYGnEUm6DYJNDUC6w0KcfdyNDQwMCOgOTizS9_PIz03VL8gNjSh3VFQEAM5o3_0!/dl2/d1/L3dDb1ZBQSEhL3dHa0FKREFOZ0EhIS9ZQkpKdzQ1dy83X04wQ1ZSSTQyMEcxOTEwSUtTUTlVMkEyMEI1/?symbol=" & a & "&tabOrder=2&chart_type=chart_oneDay&announcmentNumber=&isAnnual=", False
.send
[login to view URL] = .responseText
End With
sheetName = a & " - " & b
Set ECol = [login to view URL]("table")
For Each IFld In ECol
If [login to view URL] = "Table3" Then
For x = 2 To [login to view URL] - 1
For y = 0 To [login to view URL](x).[login to view URL] - 1
Sheets(sheetName).Cells(x + 22, y + 1).Value = [login to view URL](x).Cells(y).innerText
Next y
Next x
End If
Next
Next xn
[login to view URL]
End Sub
หมายเลขโปรเจค: #10648655
เกี่ยวกับโปรเจกต์
มอบให้กับ:
Hello You require the "Performance Summary" or/and "Unadjusted Prices and Volume" table? Either one I can help you. I will use query tables to fetch the table and insert in excel. I have a lot of experience programmi เพิ่มเติม
freelancer 16 คน กำลังเสนอราคาในงานนี้ โดยมีราคาเฉลี่ยอยู่ที่ $122
First, I am sunsoftpro, I from VietNam. Nice to meet you! I have read your description and been interested in your project. I'm ready to discuss and do hard working so that complete great job. Please discuss requi เพิ่มเติม
Hey, I reviewed the code and the website you shared and looks like the website has changed the way their links are created and hence the code is failing. Can you tell me which tables you were fetching from this w เพิ่มเติม
I have extensive experience with VBA macros including many applications that integrate Excel and IE. Please feel free to PM me if you want to know more.
Could you share the example of a previous output that you used to get, when the script worked? I think the only input was stock symbol. I believe the pieces are all there, just some restructuring is required. I have o เพิ่มเติม
I have 6 years of experience in .NET, VBA Macros, VB script,PS Script and VB creation with application like SAP, Internet explorer, Microsoft Outlook,PDF& Text files, MS Access and SQL Server databases. And also I เพิ่มเติม
Hi I can give you new script with windows application, you can get CSV from that using your given url. if you are agree let me know please. Thanks
Hello, I have 3.5 years experience in VB.NET, C#,VB6.0,VBA development. I have worked with VB.net as Front-end MS SQL Server as Back-end (.mdf) (.sdf) MS Access as Back-end (.mdb) Crystal Reports Also Interacte เพิ่มเติม
hello good day we offer our services to help u refactoring we have skill and exp dev and have more than 6+ year in devlopment we can work full time on your project thanks
i have enough time to do the job, i have a proficiency knowledge in excel, i am a professional who loves to accomplish assignments on the exact time.
I've been working in this program during the day, I already finished it and working perfectly. I used a Macro code that opens the website and explores into the javascript code, finding the table and getting each val เพิ่มเติม