fetch this table to excel

เสร็จสมบูรณ์ โพสต์แล้ว 7 ปีที่ผ่านมา ชำระเงินเมื่อจัดส่ง
เสร็จสมบูรณ์ ชำระเงินเมื่อจัดส่ง

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

AJAX Excel jQuery / Prototype Visual Basic สำหรับแอป

หมายเลขโปรเจค: #10648655

เกี่ยวกับโปรเจกต์

16 ข้อเสนอ โปรเจกต์ระยะไกล ใช้งาน %project.latestActivity_relativeTime|แทนที่%

มอบให้กับ:

magentapowa

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 เพิ่มเติม

$35 USD ใน 1 วัน
(29 รีวิว)
4.4

freelancer 16 คน กำลังเสนอราคาในงานนี้ โดยมีราคาเฉลี่ยอยู่ที่ $122

gangabass

I'm VBA developer and expert in web scraping that's why I'm sure you'll be impressed with my work. I can update your code in less than a day and I can offer you best price here. All I need to start is milestone p เพิ่มเติม

$64 USD ใน 1 วัน
(143 รีวิว)
6.7
sunsoftpro

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 เพิ่มเติม

$220 USD ใน 3 วัน
(75 รีวิว)
7.1
shikhamehta

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 เพิ่มเติม

$80 USD ใน 3 วัน
(123 รีวิว)
6.6
Sercho56

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.

$200 USD ใน 5 วัน
(39 รีวิว)
6.0
zu02

Hi there, I’d like to be considered for your programmer position. I’m an Access/VBA developer with a strong background developing a wide range of accounting, economical, statistical and mixed type projects using Ms Acc เพิ่มเติม

$155 USD ใน 3 วัน
(24 รีวิว)
5.6
agragaurav

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 เพิ่มเติม

$200 USD ใน 2 วัน
(15 รีวิว)
5.2
prabakarm23

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 เพิ่มเติม

$83 USD ใน 3 วัน
(51 รีวิว)
4.8
abugosia

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

$55 USD ใน 1 วัน
(21 รีวิว)
4.7
Maheshpatel107

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 เพิ่มเติม

$94 USD ใน 3 วัน
(11 รีวิว)
3.7
EventTech

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

$177 USD ใน 3 วัน
(1 รีวิว)
0.0
sbpelek

I would like to grab this chance

$150 USD ใน 1 วัน
(0 รีวิว)
0.0
zizobmr

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.

$111 USD ใน 3 วัน
(0 รีวิว)
0.0
juanpabloortiz

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 เพิ่มเติม

$80 USD ใน 1 วัน
(0 รีวิว)
0.0