Khi muốn lấy data từ 1 trang web em sử dụng đoạn code tương tự như dươi, để lấy giá trị 1 cell :
Set Datas = ieDoc.getElementById("formMain:sheet_tbl").getElementsByTagName("td")(n)
Range("A5").Value = Datas.innerText
Nhưng em muốn upload dữ liệu lên cell đó và em thử làm:
Set Datas = ieDoc.getElementById("formMain:sheet_tbl").getElementsByTagName("td")(n)
Datas.innerText = Range("A5").Value ( Range("A5").Value = 10)
Sau khi chạy code thì ô đó có giá trị là 10 , nhưng khi em nhấn Save thì nó trở về rỗng "" ( giá trị mặc định là rỗng), không lưu giá trị bằng 10 được.
Em nghĩ .innerText chỉ có tác dụng về hiển thị nên ko add giá trị thực đc, em có thử:
Datas.value = Range("A5").Value
Nhưng bị lỗi.
Rất mong anh/chị nào biết vấn đề này chỉ giúp em! Để em có thể add giá trị vào cell trên web.
Vì Web up dữ liệu là web nội bộ nên em ko tiện up full code!
Kính chúc anh/chị năm mới nhiều sức khỏe và bình an!
Set Datas = ieDoc.getElementById("formMain:sheet_tbl").getElementsByTagName("td")(n)
Range("A5").Value = Datas.innerText
Nhưng em muốn upload dữ liệu lên cell đó và em thử làm:
Set Datas = ieDoc.getElementById("formMain:sheet_tbl").getElementsByTagName("td")(n)
Datas.innerText = Range("A5").Value ( Range("A5").Value = 10)
Sau khi chạy code thì ô đó có giá trị là 10 , nhưng khi em nhấn Save thì nó trở về rỗng "" ( giá trị mặc định là rỗng), không lưu giá trị bằng 10 được.
Em nghĩ .innerText chỉ có tác dụng về hiển thị nên ko add giá trị thực đc, em có thử:
Datas.value = Range("A5").Value
Nhưng bị lỗi.
Rất mong anh/chị nào biết vấn đề này chỉ giúp em! Để em có thể add giá trị vào cell trên web.
Vì Web up dữ liệu là web nội bộ nên em ko tiện up full code!
Kính chúc anh/chị năm mới nhiều sức khỏe và bình an!