Consulting

Results 1 to 3 of 3

Thread: Solved: create workbook, delete workbook

  1. #1

    Solved: create workbook, delete workbook

    I have the code to create a copy of a worksheet into a new workbook. For some reason I cannot figure out the code to delete the workbook...you think it would be simple, lol.
    [vba]
    Sub CopyWorksheet()
    Sheets("Saved").Copy
    Set wb = ActiveWorkbook
    wb.SaveAs ThisWorkbook.Path & "\" & Me.txtVendorName & ".xls"
    wb.Close
    End Sub
    [/vba]

    i have a button in userform (which many of you have helped me with already) that sends the new workbook as an email attachment, and i would like it to delete the new workbook too.

    Thanks!

  2. #2
    VBAX Regular vonpookie's Avatar
    Joined
    Jun 2004
    Location
    Are we there yet?
    Posts
    74
    Location
    You can use the Kill statement, but you have to feed it the full path to the filename. I would just set the path as a variable:
    [vba]Sub CopyWorksheet()
    Dim wb As Workbook, wbName As String

    Sheets("Saved").Copy
    Set wb = ActiveWorkbook

    'save full path as string variable
    wbName = ThisWorkbook.Path & "\" & Me.txtVendorName & ".xls"

    'save workbook with that path/name
    wb.SaveAs wbName

    wb.Close

    'delete the workbook
    Kill wbName

    End Sub [/vba]

  3. #3
    Thanks, that's what i needed!

    ended up using it like this:
    [vba]
    Sub CopyWorksheet()
    Dim wb As Workbook, wbName As String
    Sheets("Saved").Copy
    Set wb = ActiveWorkbook
    'save full path as string variable
    wbName = ThisWorkbook.Path & "\" & Me.txtVendorName & ".xls"
    'save workbook with that path/name
    wb.SaveAs wbName
    wb.Close
    End Sub
    Sub DeleteWorkbook()
    Dim wbName As String
    wbName = ThisWorkbook.Path & "\" & Me.txtVendorName & ".xls"
    Kill wbName
    End Sub
    [/vba]

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •