Как скопировать рабочий лист из одной рабочей книги в другую новую рабочую книгу только с этим рабочим листом (со значениями вставки)?

Я пытаюсь создать макрос, который берет рабочий лист из рабочей книги, а затем сохраняет этот рабочий лист как одну рабочую книгу, но со всеми ячейками в качестве значений, а не формул.

Бит, с которым я борюсь, - это раздел значений вставки. Это то, что у меня есть на данный момент:

ThisWorkbook.Sheets("Tickets (1-48)").Copy
With ActiveWorkbook
    For ColNr = 8 To 120
        If Cells(RowNr, ColNr - 1) = "0" Then
            TempValue = Cells(RowNr, ColNr - 1)
            If TempValue = "0" Then
                For i = 0 To 9
                    Cells(RowNr, ColNr - 1).Select
                    Cells(RowNr, ColNr - 1).EntireColumn.Delete
                Next i
            ColNr = ColNr - 1
            Else
            End If
        Else
        End If
    Next ColNr

    .SaveAs strpath & "\" & "Retail " & strFilename & "(1-48)" & ".xls"
    .Close 0
End With

Не обращайте внимания на раздел посередине.

Спасибо.


excel vba
person Lewis Jones    schedule 25.08.2015    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Я не уверен, что делает ваш код, но вы можете адаптировать его к этому. Вот общий код, который покажет вам записанный макрос.

'Selects everything on the current sheet and copies it
Cells.Select
Selection.Copy

'Add a new workbook.
'Adding a new workbook makes it the active workbook so you can paste to it.
Workbooks.Add

'Paste the date using  Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("C8").Select
person MatthewD    schedule 25.08.2015
comment
Так просто. Благодарю вас! - person Lewis Jones; 25.08.2015