Question

我目前正试图通过亚马逊平面文件让我的生活变得更轻松，因此我可以输入更多数据，是的，代码非常简陋，但我现在仍然坚持做任何事情关于它。

我希望这个程序粘贴在String / Int

的列中

Sub Lines()

Dim Brand, ClothingType, MaterialComposition, Department, StyleKeyword, TheCurrency, ProductDescription, Size, Size1, Size2, Size3, Size4, InnerOuterMat As String
Dim ItemPrice, ItemPrice2 As Double
Dim ProductSpecification, Season, CareInstructions, MaterialFabric1, Bullet1, Bullet2, Bullet3, Bullet4, Bullet5 As String
Dim ExternalTesting, Parent, Child, ParentSku, Relationship, TypeVariationTheme As String
Dim OtherImage, SaleDate1, SaleDate2 As String
Dim BrowseNode, Quantity, NumberOfItemsSalePrice, TimeToShip As Integer

    Brand = "Your Web Purchase"
    BrowseNode = "1731028031"
    ClothingType = "Shirt"
    MaterialComposition = "100%  Cotton"
    Department1 = "Apparel"
    TheCurrency = "GBP"
    StyleKeyword = "Apparel"
    ProductDescription = "Here at YWP we design a huge range of t-shirts. All of our t-shirts are created with love and the occasional cuddle to give you a unique sense of style and wit. Maybe you're a huge fan of TV, Video Games and Movies... we will have a t-shirt that's perfect"
    Size = "Small"
    Size1 = "Medium"
    Size2 = "Large"
    Size3 = "X-Large"
    Size4 = "XX-Large"
    InnerOuterMat = "Cotton"
    ItemPrice = "14.95"
    Quantity = "5000"
    ProductSpecification = "100% Cotton T-Shirt"
    Season = "Spring/Summer 14"
    CareInstructions = "Machine Washable at 40 degrees (wash inside out)"
    NumberOfItemsSalePrice = "1"
    MaterialFabric1 = "Cotton"
    Bullet1 = "Inspired By"
    Bullet2 = "Custom High Quality Exclusive Design Professionally Printedhart image)"
    Bullet3 = "100% Cotton - Soft Feel Ringspun Preshrunk Men's Tshirt (please check our size chart image)"
    Bullet4 = "Machine Washable at 40 degrees (wash inside out)"
    Bullet5 = "Check Out Our Wide Selection Of T-Shirts!"
    Child = "Child"
    Relationship = "Variation"
    OtherImage = "http://cdn.shopify.com/s/files/1/0095/3892/files/1AMAZON_MENS_Size_Chart.jpg?3145"
    ItemPrice2 = "9.69"
    SaleDate1 = "2013-07-17"
    SaleDate2 = "2050-07-18"

    ActiveCell.FormulaR1C1 = Brand
    ActiveCell.Offset(0, 0).Select

    Exit Sub

End Sub

显示错误的行。

Sub Lines()

Answer 1

修改

只需更改您的Sub程序的名称：

发件人

Sub Lines() ... End Sub

要

Sub AddLines() ... End Sub

它会起作用。它抛出错误的原因是已经有一个用相同名称定义的子过程/函数 - ＆＃34;行＆＃34;。

第一行出错 - 无法在中断模式下执行代码

1 个答案: