ebay商品基本属性组合成数据表格式，可用上传到系统递交数据
该刊登表设计是利用VB写的，当时因为两个系统的数据不能直接对接，又copy并且组合SKU，一个表格一个表格填写，比较麻烦，还好刊登系统可以允许用excel表格上传数据
所以就下好模板，学了VB语言，在业余的时候做了这个数据自动组合功能用刊登数据广告。
另外也使用VB写了一个excel表格几千行数据的处理（这个另做解释）
********************************************************************************************************************
关于SKU刊登功能如下：
（图文与代码）从basic表提取数据 判断数据并组装好，填写在export表上面的格式，就可以上传到系统后台的，这样在产品刊登上可以节省很多时间（总共有106列，但最重要的是SKU和属性的组合）；
关键代码：
Sub E_US刊登模板0420()
'basic表单参数
With Sheets("basic")
basic_cnt = .Range("a63556").End(xlUp).Row
basic_i =
'export-20130124表格的起始点，用j来递增多属性，完成后返还给i;
i =
Do While basic_i <= basic_cnt
basic_sku = .Cells(basic_i, "a")
basic_site = .Cells(basic_i, "b")
basic_price = .Cells(basic_i, "c")
basic_ismult = .Cells(basic_i, "d")
basic_mv1_code = .Cells(basic_i, "e")
basic_mv1_att = .Cells(basic_i, "f")
basic_mv1_val = .Cells(basic_i, "g")
basic_mv2_code = .Cells(basic_i, "h")
basic_mv2_att = .Cells(basic_i, "i")
basic_mv2_val = .Cells(basic_i, "j")
basic_mv3_code = .Cells(basic_i, "k")
basic_mv3_att = .Cells(basic_i, "l")
basic_mv3_val = .Cells(basic_i, "m")
basic_title = .Cells(basic_i, "n")
basic_description = .Cells(basic_i, "o")
basic_ebay_cat1 = .Cells(basic_i, "p")
basic_ebay_cat2 = .Cells(basic_i, "q")
basic_item_spec4 = .Cells(basic_i, "r")
basic_item_spec5 = .Cells(basic_i, "s")
basic_item_spec6 = .Cells(basic_i, "t")
basic_item_spec7 = .Cells(basic_i, "u")
basic_item_spec8 = .Cells(basic_i, "v")
basic_item_spec9 = .Cells(basic_i, "w")
basic_item_spec10 = .Cells(basic_i, "x")
basic_item_spec11 = .Cells(basic_i, "y")
basic_item_spec12 = .Cells(basic_i, "z")
basic_item_spec13 = .Cells(basic_i, "aa")
basic_item_spec14 = .Cells(basic_i, "ab")
basic_item_spec15 = .Cells(basic_i, "ac")
basic_photo = .Cells(basic_i, "ad")
'j来引导下一个多属性
j = i
'----------------------------
'数据表列号
dsheet_row_id = "A"
dsheet_shop_initial = "B"
dsheet_sitecode = "C"
dsheet_currency = "D"
dsheet_format = "E"
dsheet_duration = "F"
dsheet_var_parent_sku = "G"
dsheet_product_code = "H"
dsheet_remark = "I"
dsheet_var_photo = "J"
dsheet_var_child_var1 = "K"
dsheet_var_child_var2 = "L"
dsheet_var_child_var3 = "M"
dsheet_var_child_var4 = "N"
dsheet_var_child_var5 = "O"
dsheet_var_ean = "P"
dsheet_var_upc = "Q"
dsheet_var_isbn = "R"
dsheet_lot_size = "S"
dsheet_qty = "T"
dsheet_price = "U"
dsheet_discount_profileid = "V"
dsheet_isoffer = "W"
dsheet_rejectamt = "X"
dsheet_acceptamt = "Y"
dsheet_payment_method = "Z"
dsheet_paypal_email = "AA"
dsheet_autopay = "AB"
dsheet_checkout_policy = "AC"
dsheet_itemcountry = "AD"
dsheet_itemlocation = "AE"
dsheet_ship_to_country = "AF"
dsheet_exclude_shiptolocation = "AG"
dsheet_ship_service = "AH"
dsheet_first_post = "AI"
dsheet_second_post = "AJ"
dsheet_intl_ship_service = "AK"
dsheet_intl_ship_location = "AL"
dsheet_intl_first_post = "AM"
dsheet_intl_second_post = "AN"
dsheet_max_dispatch_time = "AO"
dsheet_return_accepted = "AP"
dsheet_return_refund = "AQ"
dsheet_return_within = "AR"
dsheet_return_shipby = "AS"
dsheet_return_policy = "AT"
dsheet_productsize = "AU"
dsheet_receivedesc1 = "AV"
dsheet_receivedesc2 = "AW"
dsheet_receivedesc3 = "AX"
dsheet_receivedesc4 = "AY"
dsheet_receivedesc5 = "AZ"
dsheet_maindesc01 = "BA"
dsheet_maindesc02 = "BB"
dsheet_maindesc03 = "BC"
dsheet_maindesc04 = "BD"
dsheet_maindesc05 = "BE"
dsheet_maindesc06 = "BF"
dsheet_maindesc07 = "BG"
dsheet_maindesc08 = "BH"
dsheet_maindesc09 = "BI"
dsheet_maindesc10 = "BJ"
dsheet_pictotal = "BK"
dsheet_poster = "BL"
dsheet_poster_link = "BM"
dsheet_gallery = "BN"
dsheet_gallerytype = "BO"
dsheet_photofirst = "BP"
dsheet_pic_use_actual_path = "BQ"
dsheet_desc_use_actual_html = "BR"
dsheet_cmptblty_use_profile = "BS"
dsheet_pic_actual_paths = "BT"
dsheet_condition_id = "BU"
dsheet_condition_desc = "BV"
dsheet_ebcategory = "BW"
dsheet_ebcategory2 = "BX"
dsheet_shopcategory1 = "BY"
dsheet_shopcategory2 = "BZ"
dsheet_sitecategory = "CA"
dsheet_titleexternal = "CB"
dsheet_subtitleexternal = "CC"
dsheet_titleinternal = "CD"
dsheet_item_specific_1 = "CE"
dsheet_item_specific_2 = "CF"
dsheet_item_specific_3 = "CG"
dsheet_item_specific_4 = "CH"
dsheet_item_specific_5 = "CI"
dsheet_item_specific_6 = "CJ"
dsheet_item_specific_7 = "CK"
dsheet_item_specific_8 = "CL"
dsheet_item_specific_9 = "CM"
dsheet_item_specific_10 = "CN"
dsheet_item_specific_11 = "CO"
dsheet_item_specific_12 = "CP"
dsheet_item_specific_13 = "CQ"
dsheet_item_specific_14 = "CR"
dsheet_item_specific_15 = "CS"
dsheet_catalog_type = "CT"
dsheet_catalog_id = "CU"
dsheet_catalog_use_photo = "CV"
dsheet_catalog_use_specific = "CW"
dsheet_profile_idx = "CX"
dsheet_cmptblty_profile_idx = "CY"
dsheet_template_idx = "CZ"
dsheet_attr_group = "DA"
dsheet_privatelisting = "DB"
dsheet_listenhancement = "DC"
dsheet_keep_enabled = "DD"
dsheet_EOF = "DE"
'-----------------------------------------------
'E_US站点参数
Cells(i, dsheet_row_id) = ""
Cells(i, dsheet_shop_initial) = "e"
Cells(i, dsheet_sitecode) = "US"
Cells(i, dsheet_currency) = "USD"
Cells(i, dsheet_format) = "BIN"
Cells(i, dsheet_duration) = "GTC"
If basic_ismult = Then
arr_mv1_cod = Split(basic_mv1_code, ",")
len_mv1_cod = UBound(arr_mv1_cod)
arr_mv1_val = Split(basic_mv1_val, ",")
len_mv1_val = UBound(arr_mv1_val)
If Trim(basic_mv3_val = "") Then
'判断单SKU和单属性值
If Trim(basic_mv2_val = "") Then
If len_mv1_cod = len_mv1_val Then
For mv1_i = To len_mv1_cod
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1_i)) & "/120129eusd"
If arr_mv1_val(mv1_i) Like "x*" Then
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1_i))
Else
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1_i))
End If
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) =
Cells(j, dsheet_qty) =
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j +
Next
Else
MsgBox (basic_i & "row:length of mv1_code and mv1_val not same")
Exit Sub
End If
'判断单SKU双属性值，或者双SKU双属性值
Else
arr_mv2_val = Split(basic_mv2_val, ",")
len_mv2_val = UBound(arr_mv2_val)
'判断单SKU双属性值
If Trim(basic_mv2_code) = "" Then
If (len_mv1_cod + ) = (len_mv1_val + ) * (len_mv2_val + ) Then
'使用mv_k定位循环双属性值
mv_k = j
'*****************************循环SKU编号
For mv1code_i = To len_mv1_cod
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & arr_mv1_cod(mv1code_i) & "/120129eusd"
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) =
Cells(j, dsheet_qty) =
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j +
Next
For len_mv1val_i = To len_mv1_val
For len_mv2val_i = To len_mv2_val
'判断属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(len_mv1val_i) Like "x*" Then
Cells(mv_k, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(len_mv1val_i))
Else
Cells(mv_k, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(len_mv1val_i))
End If
'判断属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(len_mv2val_i) Like "x*" Then
Cells(mv_k, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(len_mv2val_i))
Else
Cells(mv_k, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(len_mv2val_i))
End If
mv_k = mv_k +
Next
Next
Else
MsgBox (basic_i & "row:len_mv1_cod!=len_mv1_val*len_mv2_val")
Exit Sub
End If
'双SKU双属性值
Else
arr_mv2_cod = Split(basic_mv2_code, ",")
len_mv2_cod = UBound(arr_mv2_cod)
If len_mv1_cod <> len_mv1_val Then
MsgBox (basic_i & "row:2/2 mode len_mv1_cod!=len_mv1_val")
Exit Sub
End If
If len_mv2_cod <> len_mv2_val Then
MsgBox (basic_i & "row:2/2 mode len_mv2_cod!=len_mv2_val")
Exit Sub
End If
'循环双SKU和双属性
For mv1val_i = To len_mv1_val
For mv2val_i = To len_mv2_val
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1val_i)) & UCase(arr_mv2_cod(mv2val_i)) & "/120129eusd"
'判断MV1属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(mv1val_i) Like "x*" Then
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1val_i))
Else
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1val_i))
End If
'判断MV2属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(mv2val_i) Like "x*" Then
Cells(j, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(mv2val_i))
Else
Cells(j, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(mv2val_i))
End If
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) =
Cells(j, dsheet_qty) =
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j +
Next
Next
End If
End If
'**********************************************************
Else
'先获取mv3的值
arr_mv3_val = Split(basic_mv3_val, ",")
len_mv3_val = UBound(arr_mv3_val)
arr_mv2_val = Split(basic_mv2_val, ",")
len_mv2_val = UBound(arr_mv2_val)
'判断双SKU，三属性值
If basic_mv2_code <> "" And basic_mv3_code = "" Then
arr_mv2_cod = Split(basic_mv2_code, ",")
len_mv2_cod = UBound(arr_mv2_cod)
If (len_mv1_cod + ) * (len_mv2_cod + ) = (len_mv1_val + ) * (len_mv2_val + ) * (len_mv3_val + ) Then
mv_k3 = j
For mv1code_i = To len_mv1_cod
For mv2code_i = To len_mv2_cod
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1code_i)) & UCase(arr_mv2_cod(mv2code_i)) & "/120129eusd"
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) =
Cells(j, dsheet_qty) =
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j +
Next
Next
For mv1val_i = To len_mv1_val
For mv2val_i = To len_mv2_val
For mv3val_i = To len_mv3_val
'判断MV1属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(mv1val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1val_i))
Else
Cells(mv_k3, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1val_i))
End If
'判断MV2属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(mv2val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(mv2val_i))
Else
Cells(mv_k3, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(mv2val_i))
End If
'判断MV3属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv3_val(mv3val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var3) = Application.Proper(basic_mv3_att) & ":" & UCase(arr_mv3_val(mv3val_i))
Else
Cells(mv_k3, dsheet_var_child_var3) = Application.Proper(basic_mv3_att & ":" & arr_mv3_val(mv3val_i))
End If
mv_k3 = mv_k3 +
Next
Next
Next
Else
MsgBox (basic_i & "row:2SKU/3colum len_cod!=len_val")
Exit Sub
End If
'判断单SKU，三属性值
ElseIf basic_mv2_code = "" And basic_mv3_code = "" Then
If (len_mv1_cod + ) = (len_mv1_val + ) * (len_mv2_val + ) * (len_mv3_val + ) Then
mv_k3 = j
For mv1code_i = To len_mv1_cod
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1code_i)) & "/120129eusd"
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) =
Cells(j, dsheet_qty) =
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j +
Next
For mv1val_i = To len_mv1_val
For mv2val_i = To len_mv2_val
For mv3val_i = To len_mv3_val
'判断MV1属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(mv1val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1val_i))
Else
Cells(mv_k3, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1val_i))
End If
'判断MV2属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(mv2val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(mv2val_i))
Else
Cells(mv_k3, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(mv2val_i))
End If
'判断MV3属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv3_val(mv3val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var3) = Application.Proper(basic_mv3_att) & ":" & UCase(arr_mv3_val(mv3val_i))
Else
Cells(mv_k3, dsheet_var_child_var3) = Application.Proper(basic_mv3_att & ":" & arr_mv3_val(mv3val_i))
End If
mv_k3 = mv_k3 +
Next
Next
Next
Else
MsgBox (basic_i & "row:1SKU/3colum len_cod!=len_val")
Exit Sub
End If
'判断三SKU，三属性值
ElseIf basic_mv2_code <> "" And basic_mv3_code <> "" Then
arr_mv2_cod = Split(basic_mv2_code, ",")
len_mv2_cod = UBound(arr_mv2_cod)
arr_mv3_cod = Split(basic_mv3_code, ",")
len_mv3_cod = UBound(arr_mv3_cod)
If len_mv1_cod <> len_mv1_val Then
MsgBox (basic_i & "row:3/3 mode len_mv1_cod!=len_mv1_val")
Exit Sub
End If
If len_mv2_cod <> len_mv2_val Then
MsgBox (basic_i & "row:3/3 mode len_mv2_cod!=len_mv2_val")
Exit Sub
End If
If len_mv3_cod <> len_mv3_val Then
MsgBox (basic_i & "row:3/3 mode len_mv3_cod!=len_mv3_val")
Exit Sub
End If
'循环三属性
For mv1val_i = To len_mv1_val
For mv2val_i = To len_mv2_val
For mv3val_i = To len_mv3_val
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1val_i)) & UCase(arr_mv2_cod(mv2val_i)) & UCase(arr_mv3_cod(mv3val_i)) & "/120129eusd"
'判断MV1属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(mv1val_i) Like "x*" Then
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1val_i))
Else
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1val_i))
End If
'判断MV2属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(mv2val_i) Like "x*" Then
Cells(j, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(mv2val_i))
Else
Cells(j, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(mv2val_i))
End If
'判断MV3属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv3_val(mv3val_i) Like "x*" Then
Cells(j, dsheet_var_child_var3) = Application.Proper(basic_mv3_att) & ":" & UCase(arr_mv3_val(mv3val_i))
Else
Cells(j, dsheet_var_child_var3) = Application.Proper(basic_mv3_att & ":" & arr_mv3_val(mv3val_i))
End If
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) =
Cells(j, dsheet_qty) =
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j +
Next
Next
Next
Else
MsgBox ("Extra Useless Colum")
End If
End If
'**************************
ElseIf basic_ismult = Then
Cells(j, dsheet_lot_size) =
Cells(j, dsheet_qty) =
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "/120129eusd-P"
j = j +
Else
MsgBox ("ismult error/#N/A")
Rows(i).Delete
Exit Sub
End If
' Cells(i, dsheet_remark) = ""
' Cells(i, dsheet_var_photo) = ""
' Cells(i, dsheet_var_child_var3) = ""
' Cells(i, dsheet_var_child_var4) = ""
' Cells(i, dsheet_var_child_var5) = ""
' Cells(i, dsheet_discount_profileid) = ""
Cells(i, dsheet_isoffer) =
Cells(i, dsheet_rejectamt) =
Cells(i, dsheet_acceptamt) =
Cells(i, dsheet_payment_method) = "PayPal"
If Cells(i, dsheet_price) > 4.99 Then
Cells(i, dsheet_paypal_email) = "etrs2013@gmail.com"
Cells(i, dsheet_ship_service) = "ePacketChina"
ElseIf Cells(i, dsheet_price) < And Cells(i, dsheet_price) > Then
Cells(i, dsheet_ship_service) = "EconomyShippingFromOutsideUS"
Cells(i, dsheet_paypal_email) = "ppsoonhua@163.com"
End If
Cells(i, dsheet_autopay) =
' Cells(i, dsheet_checkout_policy) = ""
Cells(i, dsheet_itemcountry) = "CN"
Cells(i, dsheet_itemlocation) = "Shenzhen"
Cells(i, dsheet_ship_to_country) = "Worldwide"
' Cells(i, dsheet_exclude_shiptolocation) = ""
Cells(i, dsheet_first_post) =
Cells(i, dsheet_second_post) =
Cells(i, dsheet_intl_ship_service) = "StandardInternational"
Cells(i, dsheet_intl_ship_location) = "Worldwide"
Cells(i, dsheet_intl_first_post) =
Cells(i, dsheet_intl_second_post) =
Cells(i, dsheet_max_dispatch_time) =
Cells(i, dsheet_return_accepted) = "ReturnsAccepted"
Cells(i, dsheet_return_refund) = "MoneyBackOrExchange"
Cells(i, dsheet_return_within) = "Days_14"
Cells(i, dsheet_return_shipby) = "Buyer"
Cells(i, dsheet_return_policy) = "Restocking fees: No"
' Cells(i, dsheet_productsize) = ""
' Cells(i, dsheet_receivedesc1) = ""
' Cells(i, dsheet_receivedesc2) = ""
' Cells(i, dsheet_receivedesc3) = ""
' Cells(i, dsheet_receivedesc4) = ""
' Cells(i, dsheet_receivedesc5) = ""
Cells(i, dsheet_maindesc01) = basic_description '产品内容文字描述
' Cells(i, dsheet_maindesc02) = ""
' Cells(i, dsheet_maindesc03) = ""
' Cells(i, dsheet_maindesc04) = ""
' Cells(i, dsheet_maindesc05) = ""
' Cells(i, dsheet_maindesc06) = ""
' Cells(i, dsheet_maindesc07) = ""
' Cells(i, dsheet_maindesc08) = ""
' Cells(i, dsheet_maindesc09) = ""
' Cells(i, dsheet_maindesc10) = ""
Cells(i, dsheet_pictotal) =
' Cells(i, dsheet_poster) = ""
' Cells(i, dsheet_poster_link) = ""
Cells(i, dsheet_gallery) = basic_photo
Cells(i, dsheet_gallerytype) = "Gallery"
' Cells(i, dsheet_photofirst) = ""
Cells(i, dsheet_pic_use_actual_path) =
Cells(i, dsheet_desc_use_actual_html) =
Cells(i, dsheet_cmptblty_use_profile) =
' Cells(i, dsheet_pic_actual_paths) = ""
Cells(i, dsheet_condition_id) =
' Cells(i, dsheet_condition_desc) = ""
Cells(i, dsheet_ebcategory) = basic_ebay_cat1
Cells(i, dsheet_ebcategory2) = basic_ebay_cat2
' Cells(i, dsheet_shopcategory1) = basic_shop_cat1
' Cells(i, dsheet_shopcategory2) = basic_shop_cat2
' Cells(i, dsheet_sitecategory) = ""
Cells(i, dsheet_titleexternal) = Trim(Replace(basic_title, Chr(), ""))
' Cells(i, dsheet_subtitleexternal) = ""
Cells(i, dsheet_titleinternal) = Trim(Replace(basic_title, Chr(), ""))
Cells(i, dsheet_item_specific_1) = "Brand:Unbranded"
Cells(i, dsheet_item_specific_2) = "MPN:Does not apply"
If basic_ismult <> Then Cells(i, dsheet_item_specific_3) = "UPC:Does not apply"
Cells(i, dsheet_item_specific_4) = Trim(basic_item_spec4)
Cells(i, dsheet_item_specific_5) = Trim(basic_item_spec5)
Cells(i, dsheet_item_specific_6) = Trim(basic_item_spec6)
Cells(i, dsheet_item_specific_7) = Trim(basic_item_spec7)
Cells(i, dsheet_item_specific_8) = Trim(basic_item_spec8)
Cells(i, dsheet_item_specific_9) = Trim(basic_item_spec9)
Cells(i, dsheet_item_specific_10) = Trim(basic_item_spec10)
Cells(i, dsheet_item_specific_11) = Trim(basic_item_spec11)
Cells(i, dsheet_item_specific_12) = Trim(basic_item_spec12)
Cells(i, dsheet_item_specific_13) = Trim(basic_item_spec13)
Cells(i, dsheet_item_specific_14) = Trim(basic_item_spec14)
Cells(i, dsheet_item_specific_15) = Trim(basic_item_spec15)
' Cells(i, dsheet_catalog_type) = ""
' Cells(i, dsheet_catalog_id) = ""
Cells(i, dsheet_catalog_use_photo) =
Cells(i, dsheet_catalog_use_specific) =
' Cells(i, dsheet_profile_idx) = ""
' Cells(i, dsheet_cmptblty_profile_idx) = ""
Cells(i, dsheet_template_idx) =
' Cells(i, dsheet_attr_group) = ""
Cells(i, dsheet_privatelisting) =
' Cells(i, dsheet_listenhancement) = ""
Cells(i, dsheet_keep_enabled) =
Cells(i, dsheet_EOF) =
i = j
basic_i = basic_i +
Loop
End With
End Sub
Sub E_US刊登模板0420()
'basic表单参数
With Sheets("basic")
basic_cnt = .Range("a63556").End(xlUp).Row
basic_i = 2
'export-20130124表格的起始点，用j来递增多属性，完成后返还给i;
i = 3
Do While basic_i <= basic_cnt
basic_sku = .Cells(basic_i, "a")
basic_site = .Cells(basic_i, "b")
basic_price = .Cells(basic_i, "c")
basic_ismult = .Cells(basic_i, "d")
basic_mv1_code = .Cells(basic_i, "e")
basic_mv1_att = .Cells(basic_i, "f")
basic_mv1_val = .Cells(basic_i, "g")
basic_mv2_code = .Cells(basic_i, "h")
basic_mv2_att = .Cells(basic_i, "i")
basic_mv2_val = .Cells(basic_i, "j")
basic_mv3_code = .Cells(basic_i, "k")
basic_mv3_att = .Cells(basic_i, "l")
basic_mv3_val = .Cells(basic_i, "m")
basic_title = .Cells(basic_i, "n")
basic_description = .Cells(basic_i, "o")
basic_ebay_cat1 = .Cells(basic_i, "p")
basic_ebay_cat2 = .Cells(basic_i, "q")
basic_item_spec4 = .Cells(basic_i, "r")
basic_item_spec5 = .Cells(basic_i, "s")
basic_item_spec6 = .Cells(basic_i, "t")
basic_item_spec7 = .Cells(basic_i, "u")
basic_item_spec8 = .Cells(basic_i, "v")
basic_item_spec9 = .Cells(basic_i, "w")
basic_item_spec10 = .Cells(basic_i, "x")
basic_item_spec11 = .Cells(basic_i, "y")
basic_item_spec12 = .Cells(basic_i, "z")
basic_item_spec13 = .Cells(basic_i, "aa")
basic_item_spec14 = .Cells(basic_i, "ab")
basic_item_spec15 = .Cells(basic_i, "ac")
basic_photo = .Cells(basic_i, "ad")
'j来引导下一个多属性
j = i
'----------------------------
'数据表列号
dsheet_row_id = "A"
dsheet_shop_initial = "B"
dsheet_sitecode = "C"
dsheet_currency = "D"
dsheet_format = "E"
dsheet_duration = "F"
dsheet_var_parent_sku = "G"
dsheet_product_code = "H"
dsheet_remark = "I"
dsheet_var_photo = "J"
dsheet_var_child_var1 = "K"
dsheet_var_child_var2 = "L"
dsheet_var_child_var3 = "M"
dsheet_var_child_var4 = "N"
dsheet_var_child_var5 = "O"
dsheet_var_ean = "P"
dsheet_var_upc = "Q"
dsheet_var_isbn = "R"
dsheet_lot_size = "S"
dsheet_qty = "T"
dsheet_price = "U"
dsheet_discount_profileid = "V"
dsheet_isoffer = "W"
dsheet_rejectamt = "X"
dsheet_acceptamt = "Y"
dsheet_payment_method = "Z"
dsheet_paypal_email = "AA"
dsheet_autopay = "AB"
dsheet_checkout_policy = "AC"
dsheet_itemcountry = "AD"
dsheet_itemlocation = "AE"
dsheet_ship_to_country = "AF"
dsheet_exclude_shiptolocation = "AG"
dsheet_ship_service = "AH"
dsheet_first_post = "AI"
dsheet_second_post = "AJ"
dsheet_intl_ship_service = "AK"
dsheet_intl_ship_location = "AL"
dsheet_intl_first_post = "AM"
dsheet_intl_second_post = "AN"
dsheet_max_dispatch_time = "AO"
dsheet_return_accepted = "AP"
dsheet_return_refund = "AQ"
dsheet_return_within = "AR"
dsheet_return_shipby = "AS"
dsheet_return_policy = "AT"
dsheet_productsize = "AU"
dsheet_receivedesc1 = "AV"
dsheet_receivedesc2 = "AW"
dsheet_receivedesc3 = "AX"
dsheet_receivedesc4 = "AY"
dsheet_receivedesc5 = "AZ"
dsheet_maindesc01 = "BA"
dsheet_maindesc02 = "BB"
dsheet_maindesc03 = "BC"
dsheet_maindesc04 = "BD"
dsheet_maindesc05 = "BE"
dsheet_maindesc06 = "BF"
dsheet_maindesc07 = "BG"
dsheet_maindesc08 = "BH"
dsheet_maindesc09 = "BI"
dsheet_maindesc10 = "BJ"
dsheet_pictotal = "BK"
dsheet_poster = "BL"
dsheet_poster_link = "BM"
dsheet_gallery = "BN"
dsheet_gallerytype = "BO"
dsheet_photofirst = "BP"
dsheet_pic_use_actual_path = "BQ"
dsheet_desc_use_actual_html = "BR"
dsheet_cmptblty_use_profile = "BS"
dsheet_pic_actual_paths = "BT"
dsheet_condition_id = "BU"
dsheet_condition_desc = "BV"
dsheet_ebcategory = "BW"
dsheet_ebcategory2 = "BX"
dsheet_shopcategory1 = "BY"
dsheet_shopcategory2 = "BZ"
dsheet_sitecategory = "CA"
dsheet_titleexternal = "CB"
dsheet_subtitleexternal = "CC"
dsheet_titleinternal = "CD"
dsheet_item_specific_1 = "CE"
dsheet_item_specific_2 = "CF"
dsheet_item_specific_3 = "CG"
dsheet_item_specific_4 = "CH"
dsheet_item_specific_5 = "CI"
dsheet_item_specific_6 = "CJ"
dsheet_item_specific_7 = "CK"
dsheet_item_specific_8 = "CL"
dsheet_item_specific_9 = "CM"
dsheet_item_specific_10 = "CN"
dsheet_item_specific_11 = "CO"
dsheet_item_specific_12 = "CP"
dsheet_item_specific_13 = "CQ"
dsheet_item_specific_14 = "CR"
dsheet_item_specific_15 = "CS"
dsheet_catalog_type = "CT"
dsheet_catalog_id = "CU"
dsheet_catalog_use_photo = "CV"
dsheet_catalog_use_specific = "CW"
dsheet_profile_idx = "CX"
dsheet_cmptblty_profile_idx = "CY"
dsheet_template_idx = "CZ"
dsheet_attr_group = "DA"
dsheet_privatelisting = "DB"
dsheet_listenhancement = "DC"
dsheet_keep_enabled = "DD"
dsheet_EOF = "DE"
'-----------------------------------------------
'E_US站点参数
Cells(i, dsheet_row_id) = ""
Cells(i, dsheet_shop_initial) = "e"
Cells(i, dsheet_sitecode) = "US"
Cells(i, dsheet_currency) = "USD"
Cells(i, dsheet_format) = "BIN"
Cells(i, dsheet_duration) = "GTC"
If basic_ismult = 1 Then
arr_mv1_cod = Split(basic_mv1_code, ",")
len_mv1_cod = UBound(arr_mv1_cod)
arr_mv1_val = Split(basic_mv1_val, ",")
len_mv1_val = UBound(arr_mv1_val)
If Trim(basic_mv3_val = "") Then
'判断单SKU和单属性值
If Trim(basic_mv2_val = "") Then
If len_mv1_cod = len_mv1_val Then
For mv1_i = 0 To len_mv1_cod
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1_i)) & "/120129eusd"
If arr_mv1_val(mv1_i) Like "x*" Then
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1_i))
Else
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1_i))
End If
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) = 1
Cells(j, dsheet_qty) = 15
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j + 1
Next
Else
MsgBox (basic_i & "row:length of mv1_code and mv1_val not same")
Exit Sub
End If
'判断单SKU双属性值，或者双SKU双属性值
Else
arr_mv2_val = Split(basic_mv2_val, ",")
len_mv2_val = UBound(arr_mv2_val)
'判断单SKU双属性值
If Trim(basic_mv2_code) = "" Then
If (len_mv1_cod + 1) = (len_mv1_val + 1) * (len_mv2_val + 1) Then
'使用mv_k定位循环双属性值
mv_k = j
'*****************************循环SKU编号
For mv1code_i = 0 To len_mv1_cod
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & arr_mv1_cod(mv1code_i) & "/120129eusd"
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) = 1
Cells(j, dsheet_qty) = 15
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j + 1
Next
For len_mv1val_i = 0 To len_mv1_val
For len_mv2val_i = 0 To len_mv2_val
'判断属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(len_mv1val_i) Like "x*" Then
Cells(mv_k, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(len_mv1val_i))
Else
Cells(mv_k, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(len_mv1val_i))
End If
'判断属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(len_mv2val_i) Like "x*" Then
Cells(mv_k, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(len_mv2val_i))
Else
Cells(mv_k, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(len_mv2val_i))
End If
mv_k = mv_k + 1
Next
Next
Else
MsgBox (basic_i & "row:len_mv1_cod!=len_mv1_val*len_mv2_val")
Exit Sub
End If
'双SKU双属性值
Else
arr_mv2_cod = Split(basic_mv2_code, ",")
len_mv2_cod = UBound(arr_mv2_cod)
If len_mv1_cod <> len_mv1_val Then
MsgBox (basic_i & "row:2/2 mode len_mv1_cod!=len_mv1_val")
Exit Sub
End If
If len_mv2_cod <> len_mv2_val Then
MsgBox (basic_i & "row:2/2 mode len_mv2_cod!=len_mv2_val")
Exit Sub
End If
'循环双SKU和双属性
For mv1val_i = 0 To len_mv1_val
For mv2val_i = 0 To len_mv2_val
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1val_i)) & UCase(arr_mv2_cod(mv2val_i)) & "/120129eusd"
'判断MV1属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(mv1val_i) Like "x*" Then
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1val_i))
Else
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1val_i))
End If
'判断MV2属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(mv2val_i) Like "x*" Then
Cells(j, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(mv2val_i))
Else
Cells(j, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(mv2val_i))
End If
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) = 1
Cells(j, dsheet_qty) = 15
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j + 1
Next
Next
End If
End If
'**********************************************************
Else
'先获取mv3的值
arr_mv3_val = Split(basic_mv3_val, ",")
len_mv3_val = UBound(arr_mv3_val)
arr_mv2_val = Split(basic_mv2_val, ",")
len_mv2_val = UBound(arr_mv2_val)
'判断双SKU，三属性值
If basic_mv2_code <> "" And basic_mv3_code = "" Then
arr_mv2_cod = Split(basic_mv2_code, ",")
len_mv2_cod = UBound(arr_mv2_cod)
If (len_mv1_cod + 1) * (len_mv2_cod + 1) = (len_mv1_val + 1) * (len_mv2_val + 1) * (len_mv3_val + 1) Then
mv_k3 = j
For mv1code_i = 0 To len_mv1_cod
For mv2code_i = 0 To len_mv2_cod
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1code_i)) & UCase(arr_mv2_cod(mv2code_i)) & "/120129eusd"
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) = 1
Cells(j, dsheet_qty) = 15
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j + 1
Next
Next
For mv1val_i = 0 To len_mv1_val
For mv2val_i = 0 To len_mv2_val
For mv3val_i = 0 To len_mv3_val
'判断MV1属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(mv1val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1val_i))
Else
Cells(mv_k3, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1val_i))
End If
'判断MV2属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(mv2val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(mv2val_i))
Else
Cells(mv_k3, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(mv2val_i))
End If
'判断MV3属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv3_val(mv3val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var3) = Application.Proper(basic_mv3_att) & ":" & UCase(arr_mv3_val(mv3val_i))
Else
Cells(mv_k3, dsheet_var_child_var3) = Application.Proper(basic_mv3_att & ":" & arr_mv3_val(mv3val_i))
End If
mv_k3 = mv_k3 + 1
Next
Next
Next
Else
MsgBox (basic_i & "row:2SKU/3colum len_cod!=len_val")
Exit Sub
End If
'判断单SKU，三属性值
ElseIf basic_mv2_code = "" And basic_mv3_code = "" Then
If (len_mv1_cod + 1) = (len_mv1_val + 1) * (len_mv2_val + 1) * (len_mv3_val + 1) Then
mv_k3 = j
For mv1code_i = 0 To len_mv1_cod
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1code_i)) & "/120129eusd"
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) = 1
Cells(j, dsheet_qty) = 15
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j + 1
Next
For mv1val_i = 0 To len_mv1_val
For mv2val_i = 0 To len_mv2_val
For mv3val_i = 0 To len_mv3_val
'判断MV1属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(mv1val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1val_i))
Else
Cells(mv_k3, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1val_i))
End If
'判断MV2属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(mv2val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(mv2val_i))
Else
Cells(mv_k3, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(mv2val_i))
End If
'判断MV3属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv3_val(mv3val_i) Like "x*" Then
Cells(mv_k3, dsheet_var_child_var3) = Application.Proper(basic_mv3_att) & ":" & UCase(arr_mv3_val(mv3val_i))
Else
Cells(mv_k3, dsheet_var_child_var3) = Application.Proper(basic_mv3_att & ":" & arr_mv3_val(mv3val_i))
End If
mv_k3 = mv_k3 + 1
Next
Next
Next
Else
MsgBox (basic_i & "row:1SKU/3colum len_cod!=len_val")
Exit Sub
End If
'判断三SKU，三属性值
ElseIf basic_mv2_code <> "" And basic_mv3_code <> "" Then
arr_mv2_cod = Split(basic_mv2_code, ",")
len_mv2_cod = UBound(arr_mv2_cod)
arr_mv3_cod = Split(basic_mv3_code, ",")
len_mv3_cod = UBound(arr_mv3_cod)
If len_mv1_cod <> len_mv1_val Then
MsgBox (basic_i & "row:3/3 mode len_mv1_cod!=len_mv1_val")
Exit Sub
End If
If len_mv2_cod <> len_mv2_val Then
MsgBox (basic_i & "row:3/3 mode len_mv2_cod!=len_mv2_val")
Exit Sub
End If
If len_mv3_cod <> len_mv3_val Then
MsgBox (basic_i & "row:3/3 mode len_mv3_cod!=len_mv3_val")
Exit Sub
End If
'循环三属性
For mv1val_i = 0 To len_mv1_val
For mv2val_i = 0 To len_mv2_val
For mv3val_i = 0 To len_mv3_val
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "-" & UCase(arr_mv1_cod(mv1val_i)) & UCase(arr_mv2_cod(mv2val_i)) & UCase(arr_mv3_cod(mv3val_i)) & "/120129eusd"
'判断MV1属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv1_val(mv1val_i) Like "x*" Then
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att) & ":" & UCase(arr_mv1_val(mv1val_i))
Else
Cells(j, dsheet_var_child_var1) = Application.Proper(basic_mv1_att & ":" & arr_mv1_val(mv1val_i))
End If
'判断MV2属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv2_val(mv2val_i) Like "x*" Then
Cells(j, dsheet_var_child_var2) = Application.Proper(basic_mv2_att) & ":" & UCase(arr_mv2_val(mv2val_i))
Else
Cells(j, dsheet_var_child_var2) = Application.Proper(basic_mv2_att & ":" & arr_mv2_val(mv2val_i))
End If
'判断MV3属性值有没有XL，用Application.Proper只能首字母大写，无法让全部字母大写
If arr_mv3_val(mv3val_i) Like "x*" Then
Cells(j, dsheet_var_child_var3) = Application.Proper(basic_mv3_att) & ":" & UCase(arr_mv3_val(mv3val_i))
Else
Cells(j, dsheet_var_child_var3) = Application.Proper(basic_mv3_att & ":" & arr_mv3_val(mv3val_i))
End If
Cells(j, dsheet_var_upc) = "Does not apply"
Cells(j, dsheet_lot_size) = 1
Cells(j, dsheet_qty) = 15
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_EOF) = "o"
j = j + 1
Next
Next
Next
Else
MsgBox ("Extra Useless Colum")
End If
End If
'**************************
ElseIf basic_ismult = 0 Then
Cells(j, dsheet_lot_size) = 1
Cells(j, dsheet_qty) = 15
Cells(j, dsheet_price) = basic_price
Cells(j, dsheet_var_parent_sku) = basic_sku & "/120129eusd-P"
Cells(j, dsheet_product_code) = basic_sku & "/120129eusd-P"
j = j + 1
Else
MsgBox ("ismult error/#N/A")
Rows(i).Delete
Exit Sub
End If
' Cells(i, dsheet_remark) = ""
' Cells(i, dsheet_var_photo) = ""
' Cells(i, dsheet_var_child_var3) = ""
' Cells(i, dsheet_var_child_var4) = ""
' Cells(i, dsheet_var_child_var5) = ""
' Cells(i, dsheet_discount_profileid) = ""
Cells(i, dsheet_isoffer) = 0
Cells(i, dsheet_rejectamt) = 0
Cells(i, dsheet_acceptamt) = 0
Cells(i, dsheet_payment_method) = "PayPal"
If Cells(i, dsheet_price) > 4.99 Then
Cells(i, dsheet_paypal_email) = "etrs2013@gmail.com"
Cells(i, dsheet_ship_service) = "ePacketChina"
ElseIf Cells(i, dsheet_price) < 5 And Cells(i, dsheet_price) > 0 Then
Cells(i, dsheet_ship_service) = "EconomyShippingFromOutsideUS"
Cells(i, dsheet_paypal_email) = "ppsoonhua@163.com"
End If
Cells(i, dsheet_autopay) = 0
' Cells(i, dsheet_checkout_policy) = ""
Cells(i, dsheet_itemcountry) = "CN"
Cells(i, dsheet_itemlocation) = "Shenzhen"
Cells(i, dsheet_ship_to_country) = "Worldwide"
' Cells(i, dsheet_exclude_shiptolocation) = ""
Cells(i, dsheet_first_post) = 0
Cells(i, dsheet_second_post) = 0
Cells(i, dsheet_intl_ship_service) = "StandardInternational"
Cells(i, dsheet_intl_ship_location) = "Worldwide"
Cells(i, dsheet_intl_first_post) = 0
Cells(i, dsheet_intl_second_post) = 0
Cells(i, dsheet_max_dispatch_time) = 2
Cells(i, dsheet_return_accepted) = "ReturnsAccepted"
Cells(i, dsheet_return_refund) = "MoneyBackOrExchange"
Cells(i, dsheet_return_within) = "Days_14"
Cells(i, dsheet_return_shipby) = "Buyer"
Cells(i, dsheet_return_policy) = "Restocking fees: No"
' Cells(i, dsheet_productsize) = ""
' Cells(i, dsheet_receivedesc1) = ""
' Cells(i, dsheet_receivedesc2) = ""
' Cells(i, dsheet_receivedesc3) = ""
' Cells(i, dsheet_receivedesc4) = ""
' Cells(i, dsheet_receivedesc5) = ""
Cells(i, dsheet_maindesc01) = basic_description '产品内容文字描述
' Cells(i, dsheet_maindesc02) = ""
' Cells(i, dsheet_maindesc03) = ""
' Cells(i, dsheet_maindesc04) = ""
' Cells(i, dsheet_maindesc05) = ""
' Cells(i, dsheet_maindesc06) = ""
' Cells(i, dsheet_maindesc07) = ""
' Cells(i, dsheet_maindesc08) = ""
' Cells(i, dsheet_maindesc09) = ""
' Cells(i, dsheet_maindesc10) = ""
Cells(i, dsheet_pictotal) = 0
' Cells(i, dsheet_poster) = ""
' Cells(i, dsheet_poster_link) = ""
Cells(i, dsheet_gallery) = basic_photo
Cells(i, dsheet_gallerytype) = "Gallery"
' Cells(i, dsheet_photofirst) = ""
Cells(i, dsheet_pic_use_actual_path) = 1
Cells(i, dsheet_desc_use_actual_html) = 0
Cells(i, dsheet_cmptblty_use_profile) = 0
' Cells(i, dsheet_pic_actual_paths) = ""
Cells(i, dsheet_condition_id) = 1000
' Cells(i, dsheet_condition_desc) = ""
Cells(i, dsheet_ebcategory) = basic_ebay_cat1
Cells(i, dsheet_ebcategory2) = basic_ebay_cat2
' Cells(i, dsheet_shopcategory1) = basic_shop_cat1
' Cells(i, dsheet_shopcategory2) = basic_shop_cat2
' Cells(i, dsheet_sitecategory) = ""
Cells(i, dsheet_titleexternal) = Trim(Replace(basic_title, Chr(10), ""))
' Cells(i, dsheet_subtitleexternal) = ""
Cells(i, dsheet_titleinternal) = Trim(Replace(basic_title, Chr(10), ""))
Cells(i, dsheet_item_specific_1) = "Brand:Unbranded"
Cells(i, dsheet_item_specific_2) = "MPN:Does not apply"
If basic_ismult <> 1 Then Cells(i, dsheet_item_specific_3) = "UPC:Does not apply"
Cells(i, dsheet_item_specific_4) = Trim(basic_item_spec4)
Cells(i, dsheet_item_specific_5) = Trim(basic_item_spec5)
Cells(i, dsheet_item_specific_6) = Trim(basic_item_spec6)
Cells(i, dsheet_item_specific_7) = Trim(basic_item_spec7)
Cells(i, dsheet_item_specific_8) = Trim(basic_item_spec8)
Cells(i, dsheet_item_specific_9) = Trim(basic_item_spec9)
Cells(i, dsheet_item_specific_10) = Trim(basic_item_spec10)
Cells(i, dsheet_item_specific_11) = Trim(basic_item_spec11)
Cells(i, dsheet_item_specific_12) = Trim(basic_item_spec12)
Cells(i, dsheet_item_specific_13) = Trim(basic_item_spec13)
Cells(i, dsheet_item_specific_14) = Trim(basic_item_spec14)
Cells(i, dsheet_item_specific_15) = Trim(basic_item_spec15)
' Cells(i, dsheet_catalog_type) = ""
' Cells(i, dsheet_catalog_id) = ""
Cells(i, dsheet_catalog_use_photo) = 0
Cells(i, dsheet_catalog_use_specific) = 0
' Cells(i, dsheet_profile_idx) = ""
' Cells(i, dsheet_cmptblty_profile_idx) = ""
Cells(i, dsheet_template_idx) = 2362
' Cells(i, dsheet_attr_group) = ""
Cells(i, dsheet_privatelisting) = 1
' Cells(i, dsheet_listenhancement) = ""
Cells(i, dsheet_keep_enabled) = 0
Cells(i, dsheet_EOF) = 0
i = j
basic_i = basic_i + 1
Loop
End With
End Sub
ebay商品基本属性组合成数据表格式，可用上传到系统递交数据的更多相关文章
- Ajax（form表单文件上传、请求头之contentType、Ajax传递json数据、Ajax文件上传）
form表单文件上传 上菜 file_put.html <form action="" method="post" enctype="multi ...
- 如何在数据表当中找出被删掉的数据行ID
这个问题是一年前我刚步入IT行业的一个面试题,当时抓破头皮都想不到的问题,但现在回想过去自身不禁感到可笑,不多扯直接写解决方案.如何在数据表当中找出被删掉的数据行ID,意思是:在一堆的数据当中,让你找 ...
- jsp+servlet上传excel并将数据导入到数据库表的实现方法
<%@ page language="java" contentType="text/html; charset=UTF-8" pageEncoding= ...
- ios开发之网络数据的下载与上传
要实现网络数据的下载与上传,主要有三种方式 > NSURLConnection 针对少量数据,使用“GET”或“POST”方法从服务器获取数据,使用“POST”方法向服务器传输数据; > ...
- python 全栈开发，Day75(Django与Ajax,文件上传,ajax发送json数据,基于Ajax的文件上传,SweetAlert插件)
昨日内容回顾 基于对象的跨表查询 正向查询:关联属性在A表中,所以A对象找关联B表数据,正向查询 反向查询:关联属性在A表中,所以B对象找A对象,反向查询 一对多: 按字段:xx book ----- ...
- 项目一:第四天 1、快递员的条件分页查询-noSession,条件查询 2、快递员删除（逻辑删除） 3、基于Apache POI实现批量导入区域数据 a)Jquery OCUpload上传文件插件使用 b)Apache POI读取excel文件数据
1. 快递员的条件分页查询-noSession,条件查询 2. 快递员删除(逻辑删除) 3. 基于Apache POI实现批量导入区域数据 a) Jquery OCUpload上传文件插件使用 b) ...
- Django与Ajax,文件上传,ajax发送json数据,基于Ajax的文件上传,SweetAlert插件
一.Django与Ajax AJAX准备知识:JSON 什么是 JSON ? JSON 指的是 JavaScript 对象表示法(JavaScript Object Notation) JSON 是轻 ...
- web 表单方式上传文件方法（不用flash插件）
原理:使用表单的input type="file"标签,通过ajax提交表单请求,后台获取请求中的文件信息,进行文件保存操作 由于我测试用的做了一个上传文件和上传图片方法,所以我有 ...
- 上传读取Excel文件数据
/// <summary> /// 上传读取Excel文件数据 /// 来自http://www.cnblogs.com/cielwater /// </summary> // ...
随机推荐
- linux gzip 命令详解
减少文件大小有两个明显的好处,一是可以减少存储空间,二是通过网络传输文件时,可以减少传输的时间.gzip是在Linux系统中经常使用的一个对文件进行压缩和解压缩的命令,既方便又好用. 语法:gzip ...
- pacbio 原始下机数据h5 文件简介
pacbio 采用hdf5文件格式保存原始的下机数据,对于RS 测序系统而言,会产生一个 bas.h5 的文件; 以bas.h5 文件为例,看一下有下机数据中保存了那些信息 h5dump 工具可以用来 ...
- sqlserver 字符串split
select value from TF_NJVALUES('3C457A2D-188B-4D99-A822-2968054E1FB8,3C457A2D-188B-4D99-A822-2968054E ...
- 【Java面试题】44 java中有几种类型的流？JDK为每种类型的流提供了一些抽象类以供继承，请说出他们分别是哪些类？
字节流,字符流.字节流继承于InputStream OutputStream,字符流继承于InputStreamReader OutputStreamWriter.在java.io包中还有许多其他的流 ...
- [转]lsof详解
lsof是一个功能强大的诊断工具,它可以通过进程与打开的文件进行联系,可以列出一个进程打开的所有文件信息. 1 寻找与打开的文件相关联的进程通过指定文件,可以发现正在使用这个文件的进程# lsof / ...
- error C2065: “m_Pic”: 未声明的标识符
public: CPicture m_Pic; 要写在头文件里! 而不能是cpp文件的public里!
- 阿里巴巴CI/CD之分层自动化
一佛是阿里巴巴B2B事业群高级产品经理.从事多年互联网系统的研发和测试工作,目前主要负责云效分层自动化测试的产品设计.因为自动化测试在实践过程中,总是碰到各种各样的问题,导致进入自动化测试盲区.所以, ...
- 安装JDK出现问题 Error opening registry key'software\Javasoft\Java Runtime Environment'
第一次安装JDK测试是否安装成功,打开cmd输入java -version 回车的时候出现如下错误: Error opening registry key'software\Javasoft\Java ...
- MySQL<表单&集合查询>
表单查询 简单查询 SELECT语句 查询所有字段 指定所有字段:select 字段名1,字段名2,...from 表名; select * from 表名; 查询指定字段 select 字段名1,字 ...
- WebService远程调用(代码调用)
在做多个系统集成的时候,由于各系统厂商采用不同的架构,在项目实施前期,各业务对业务理解不够深入,系统接口可能会有较多变化, 在此背景下,动态调用webserivce就变得灵活了,降低了系统集成的耦合度 ...