Question

我的以下代码遇到两个错误。第一个是我无法接受我的文件自定义命名约定。这是必需的，因为每天将添加多个文件，并且每个文件都需要一个副本。

第二个也是最紧迫的一点是，它能够打开一个新的工作簿，但无法复制任何数据。

我看过其他版本的将数据复制和粘贴到新工作表中，但仍然遇到相同的问题。

Sub CompleteAndAddToUploadFile_Click()
Dim wbI As Workbook, wbO As Workbook
    Dim wsI As Worksheet, wsO As Worksheet
    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("Frank Import Full List")
    Set wbO = Workbooks.Add

    With wbO
        Set wsO = wbO.Sheets("Sheet1")
        .SaveAs Filename:="C:\Users\first.last\Documents\testing\" & "-" & wbI.Worksheets("Ssafa Email Dump").Range("D17") & "-" & Format(Now, "DDMMYY") & ".csv", FileFormat:=56
        wsI.Range("A1:f60").Copy
        wsO.Range("A1:f60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    End With
End Sub

最后，我需要从工作表“ Frank Import Full List”中复制活动数据中的数据，并将其粘贴到名称为Worksheets（“ Ssafa Email Dump”）。Range（“ D17”的新文档中。 “）今天的日期，然后另存为CSV

编辑：修正了一个客户命名约定

Answer 1

自固定。

原来阻止它的唯一错误是用户错误：/。

在@SJR修复包含“ wbI”之后，上述代码运行良好。在工作表（“ Ssafa电子邮件转储”）行等中

感谢大家的时间和帮助

VBA如何从工作表复制数据并将其粘贴到新工作簿

1 个答案: