Cần hỗ trợ hàm/VBA chuyển đổi link sản phẩm (1 người xem)

[hungvu19]

Mình đang cần chuyển đổi link sản phẩm shopee AFF ntn: https://s.shopee.vn/uRdflx8q

Sang link gốc dạng này: https://shopee.vn/product/85881120/4819975900

Có bác nào hỗ trợ được Em xin gửi tiền cafe ạ. Hiện em copy bằng tay nó lâu và hay nhầm lẫn.

 

[minhminh27]

bạn copy bằng tay là việc dán vào trình duyệt xong chờ hiện link gốc hay bạn dùng cách nào/ có hướng dẫn gì để có thể chuyển từ link AFF sang link gốc thế bạn.

 

[yaaasoo01]

Bạn sử dụng addin này https://github.com/longvh211/Chromium-Automation-with-CDP-for-VBA

Mình có test thử với url của bạn với đoạn code phía dưới.

Sub Test()
    Dim chrome As New CDPBrowser
    
    'Start and hide
    chrome.start
    chrome.hide
    'Perform automation in the background
    chrome.navigate "https://s.shopee.vn/uRdflx8q", isInteractive
    Debug.Print chrome.url
    
End Sub

 

[thuytrangbp28]

Bạn dùng code bên dưới

Function link_goc(shortURL As String) As String
    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    On Error Resume Next
    http.Open "GET", shortURL, False
    http.setRequestHeader "User-Agent", "Mozilla/5.0"
    http.send
    
    If Err.Number <> 0 Then
        link_goc = "Loi truy cap"
        Exit Function
    End If
    
    link_goc = http.Option(1)
End Function

Sau đó trong excel nhập công thức kiểu này

=LEFT(link_goc(A1),FIND("?",link_goc(A1))-1)

(Lười viết code nên tận dụng hàm của excel )

- Function "link_goc" lấy được toàn bộ link dài lê thê
- Thêm LEFT() để lấy từ đầu đến trước dấu "?" trong link dài kia