Sub 添加单属性单产品刊登()
Dim last_row As Long
Dim product_workbook As Workbook
Dim ebaylist_workbook As Workbook
Dim product_worksheet As Worksheet
Dim ebaylist_worksheet As Worksheet
Dim lookup_value As Variant
Set product_workbook = Workbooks.Open(“C:\Users\Administrator\Downloads\需要新编sku.xlsx”)
Set ebaylist_workbook = Workbooks.Open(“C:\Users\Administrator\Downloads\eBay-category-listing-template-11月-21-2023-15-9-18.xlsx”)
Set product_worksheet = product_workbook.Worksheets(“新编sku1”)
Set ebaylist_worksheet = ebaylist_workbook.Worksheets(“listings”)
ebaylist_worksheet.Range(“A4”) = “*Action(SiteID=US|Country=CN|Currency=USD|Version=1193”
last_row = Cells(Rows.Count, 2).End(xlUp).Row
For i = 5 To last_row
ebaylist_workbook.Activate
lookup_value = ebaylist_worksheet.Range(“B” & i).Value
Range(“E” & i) = Application.VLookup(lookup_value, product_worksheet.Range(“A:O”), 11, False)
Range(“L” & i) = Application.VLookup(lookup_value, product_worksheet.Range(“A:O”), 13, False)
Range(“N” & i) = Application.VLookup(lookup_value, product_worksheet.Range(“A:O”), 14, False)
Range(“P” & i) = Application.VLookup(lookup_value, product_worksheet.Range(“A:O”), 12, False)
Range(“P” & i).Replace What:=”” & Chr(10) & “”, Replacement:=”<br>”, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range(“A” & i) = “Add”
Range(“M” & i) = 11
Range(“O” & i) = “1000-New”
Range(“Q” & i) = “FixedPrice”
Range(“R” & i) = “GTC”
Range(“X” & i) = “CN, CN”
Range(“AK” & i) = “Return accepted”
Range(“AL” & i) = “eBay Payments”
Range(“AO” & i) = “BOMAOER”
Range(“AP” & i) = “Does Not Apply”
Rows(i).RowHeight = 80
Next
End Sub