Tolong di bantu cara mendapatkan data web menggunakan vba di excel
ini web nya mmobuyer.com
screenshot : https://prnt.sc/t1klxr
Tolong di bantu cara mendapatkan data web menggunakan vba di excel
ini web nya mmobuyer.com
screenshot : https://prnt.sc/t1klxr
kalau pakai selenium di chrome :
Saya mau ambil data ini (server, price, need stock)
bisa di buatkan codenya mas?
kalau pakai selenium di chrome :
[attachment:5eec284e063cb]
coba :
Sub tes() Dim bot As New WebDriver Dim tds As WebElements, trs As WebElements, tr As WebElement, td As WebElement bot.Start "chrome" bot.Get "https://www.mmobuyer.com/" Set trs = bot.FindElementByClass("order-table").FindElementByTag("tbody").FindElementsByTag("tr") r = 1 For Each tr In trs c = 1 Set tds = tr.FindElementsByTag("td") For Each td In tds Cells(r, c) = td.Text c = c + 1 Next td r = r + 1 Next tr Range("A1:D" & r).WrapText = False End Sub
@manweljs_ Sub tes()
Dim bot As New WebDriver
Dim tds As WebElements, trs As WebElements, tr As WebElement, td As WebElementbot.Start "chrome"
bot.Get "https://www.mmobuyer.com/"
Set trs = bot.FindElementByClass("order-table").FindElementByTag("tbody").FindElementsByTag("tr")r = 1
For Each tr In trs
c = 1
Set tds = tr.FindElementsByTag("td")
For Each td In tds
Cells(r, c) = td.Text
c = c + 1
Next td
r = r + 1
Next tr
Range("A1:D" & r).WrapText = False
End Sub
tolong di bantu
di jalankan ke 2x nya muncul error seperti gambar
dari awal saya berasumsi @sucyresky sudah menginstal selenium dan tau cara menggunakannya.
jika belum instal, silahkan instal dahulu. anda bisa download di sini :SeleniumBasic v2.0.9.0
setelah instal selenium, pastikan chrome driver versinya sama dengan versi chrome anda. jika belum sama cek versi chrome anda, kemudian cari versi yang sama di sini : ChromeDriver
setelah ketemu drivernya, extrak dahulu lalu paste di :
C:\Users\%username%\AppData\Local\SeleniumBasic
setelah 2 tahapan diatas, pastikan SeleniumTypeLibrary sudah aktif di VBA References :
setelah itu baru jalankan skrip diatas.
terlampir contoh hasilnya
@manweljs_ dari awal saya berasumsi @sucyresky sudah menginstal selenium dan tau cara menggunakannya.
jika belum instal, silahkan instal dahulu. anda bisa download di sini :SeleniumBasic v2.0.9.0setelah instal selenium, pastikan chrome driver versinya sama dengan versi chrome anda. jika belum sama cek versi chrome anda, kemudian cari versi yang sama di sini : ChromeDriver
setelah ketemu drivernya, extrak dahulu lalu paste di :C:\Users\%username%\AppData\Local\SeleniumBasicsetelah 2 tahapan diatas, pastikan SeleniumTypeLibrary sudah aktif di VBA References :
[attachment:5eec54bb13192]setelah itu baru jalankan skrip diatas.
terlampir contoh hasilnya
Kalau kita mau mengambil data yang di "WOWCLASSIC" saja, cara penulisan codenya bagaimana mas?
WOWCLASSIC itu apa? kategorinya? maksudnya di filter dahulu atau bagaimana? yang saya lihat di web itu ada WoW Classic US dan WoW Classic EU, yang diinginkan yang mana?
coba jelaskan lebih rinci
WOWCLASSIC itu apa? kategorinya? maksudnya di filter dahulu atau bagaimana? yang saya lihat di web itu ada WoW Classic US dan WoW Classic EU, yang diinginkan yang mana?
coba jelaskan lebih rinci
yang ini mas (WOW CLASSIC US)
edit menjadi :
Sub tes() Dim bot As New WebDriver Dim tds As WebElements, trs As WebElements, tr As WebElement, td As WebElement bot.Start "chrome" bot.Get "https://www.mmobuyer.com/" bot.FindElementByCss("select[name='games']").SendKeys "WoW Classic US" bot.Wait 2000 Set trs = bot.FindElementByClass("order-table").FindElementByTag("tbody").FindElementsByTag("tr") r = 1 For Each tr In trs c = 1 Set tds = tr.FindElementsByTag("td") For Each td In tds Cells(r, c) = td.Text c = c + 1 Next td r = r + 1 Next tr Range("A1:A" & r).WrapText = True End Sub
@manweljs_ Sub tes()
Dim bot As New WebDriver
Dim tds As WebElements, trs As WebElements, tr As WebElement, td As WebElementbot.Start "chrome"
bot.Get "https://www.mmobuyer.com/"
bot.FindElementByCss("select[name='games']").SendKeys "WoW Classic US"
bot.Wait 2000
Set trs = bot.FindElementByClass("order-table").FindElementByTag("tbody").FindElementsByTag("tr")r = 1
For Each tr In trs
c = 1
Set tds = tr.FindElementsByTag("td")
For Each td In tds
Cells(r, c) = td.Text
c = c + 1
Next td
r = r + 1
Next tr
Range("A1:A" & r).WrapText = True
End Sub
sudah bias mas, ty banget
tolong di bantu, cara mengambil teks yg berwarna merahnya saja di table mmobuyer.com gmana yh, saya sudah ada excel nya tinggal di tambahin codenya nya aja