dari gambar diatas, "in_stock" dari "sku" tersebut = True
bener gak ? kalo benar berarti metodenya salah, karena yang anda cari kan yang nilai = False
bdw, SKU nya juga ada 4 :D
dari gambar diatas, "in_stock" dari "sku" tersebut = True
bener gak ? kalo benar berarti metodenya salah, karena yang anda cari kan yang nilai = False
bdw, SKU nya juga ada 4 :D
Mohon maaf berikut detailnya:
Link : https://www.jakmall.com/computindo/cover-hujan-sepatu#2644383360843
SKU : OMTP2VBL
Ini yang dalam html :
Berikut saya lampirkan script excel saat ini saya pakai
Terima kasih
Iya kak benar tampilan website di IE tidak menampilkan SKU
Setiap belakang Link Produk ada 13 angka yang menunjukan juga sebagai sku produknya
Contoh:
https://www.jakmall.com/computindo/cover-hujan-sepatu#2644383360843
SKU : 2644383360843
Ini tampilan di html bodynya:
Apakah bisa dari sku yang di belakang link website tersebut kita mendapatkan in_stock yang di produk itu mas sorry?
Edit tambahin screenshot tampilan html body
saya rasa bisa :), bentar ya
thank you mas @manweljs_ :)
coba skrip berikut :
Sub GetFromWeb() Dim Ie As New InternetExplorer Dim lIdx As Long Range("c2:d300").Clear lIdx = Range("A" & Rows.Count).End(xlUp).Row With Ie For i = 2 To lIdx .Visible = False .navigate Cells(i, 1).Value Do DoEvents Loop Until .readyState = READYSTATE_COMPLETE sBuffer = .document.body.innerHTML 'Cek SKU 13 Karakter dahulu SKU = Chr$(34) & Right(Sheet1.Cells(i, 1), 13) & Chr$(34) & "," & """sku""" & ":" SKUpos = InStr(1, sBuffer, SKU) If SKUpos Then SKU = Mid(sBuffer, SKUpos + Len(SKU), 10) SKU = Replace(SKU, Chr$(34), "") End If 'Cari Posisi SKU 8 karakter SKUpos = 0 SKUpos = InStr(1, sBuffer, """sku""" & ":" & Chr$(34) & SKU & Chr$(34)) 'Kata kunci pencarian xHarga = Chr$(34) & "final" & Chr$(34) & Chr$(58) xStok = Chr$(34) & "in_stock" & Chr$(34) & Chr$(58) xHargaPos = InStr(SKUpos, sBuffer, xHarga) xStokPos = InStr(SKUpos, sBuffer, xStok) 'Harga : If xHargaPos Then sTemp = vbNullString sTemp = Mid(sBuffer, xHargaPos + Len(xHarga), 50) sTemp = Mid(sTemp, 1, InStr(1, sTemp, Chr$(44)) - 1) Sheet1.Cells(i, 3) = sTemp End If 'Stok : If xStokPos Then sTemp = vbNullString sTemp = Mid(sBuffer, xStokPos + Len(xStok), 50) sTemp = Mid(sTemp, 1, InStr(1, sTemp, Chr$(44)) - 1) If sTemp = "null" Then Sheet1.Cells(i, 4) = "Stok Tersedia" ElseIf sTemp = "0" Then Sheet1.Cells(i, 4) = "Stok tidak tersedia" Else Sheet1.Cells(i, 4) = "Stok Tinggal " & sTemp End If End If Next i End With ' Note : hasilnya masih ngawur :P Ie.Quit Set Ie = Nothing Application.StatusBar = "" MsgBox "Selesai boss Awe", , "Selamat" End Sub
Note : hasilnya sengaja belum sesuai harapan, silahkan di kembangkan ;)
Wah petunjuk dan jalan yang terang banget
Akhirnya sudah berhasil Mas
terima kasih banyak Mas Man atas bantuannya.
Mohon maaf sita waktu mas ikut dalam masalah ini
Semoga Mas sehat selalu dan di berkati Tuhan, amin..
Salam
Awe
kak @awe ada script untuk shopee dan bukalapak gk yaa,,,,,
kalau ada,,,,,,,aku mau kak hehe :)