troubleshooting Question

VBA Script to save a workbook on the desktop or My Documents

Avatar of brothertruffle880
brothertruffle880Flag for United States of America asked on
VB ScriptMicrosoft Excel
2 Comments2 Solutions567 ViewsLast Modified:
Here's a VBA script that opens a workbook and then saves it to the desktop.  I have no idea what I did wrong.
Question 2:  does my procedure location matter? (i.e. Should this be in location 1, 2, or 3?) (See graphic below).

Option Explicit

Sub add_worksheet()

Dim TargetWorkbook As String
Dim DTAddress As Object
Dim wb As Workbook
    TargetWorkbook = "C:\summary.xlsx"
    Set wb = Workbooks.Open(TargetWorkbook)
    DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator

    wb.SaveAs (DTAddress & "summary.xlsx")

 End Sub


Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 2 Answers and 2 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 2 Answers and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros