Opening excel from word, no add-ins

[rbwallis]

Hello experts! I have a macro in Word that is supposed to open Excel and paste a previous selection from Word into a new spreadsheet. It all works very well, except when Excel starts up programmatically, my custom add-in does not load. It loads fine if I start Excel by itself, so it must be something with opening programmatically.
Here is the code from Word:

Sub Exportwordtoexcel(control As IRibbonControl)
    Dim wordDoc As Object
    Dim oXL As Excel.Application
    Dim DocTarget As Word.Document
    Dim Target As Excel.Workbook
    Dim tSheet As Excel.Worksheet
    
Dim YesOrNoAnswerToMessageBox As String
Dim QuestionToMessageBox As String
    QuestionToMessageBox = "Do you want Excel to open and paste your selection?"
    YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "QuikBots for Word")
    If YesOrNoAnswerToMessageBox = vbYes Then
    
Set wordDoc = GetObject(, "word.application")
Selection.Copy

'If Excel is running, get a handle on it; otherwise start a new instance of Excel
On Error Resume Next
Set oXL = GetObject(, "Excel.Application")

If Err Then
      Set oXL = New Excel.Application
End If

oXL.Visible = True

Set Target = oXL.Workbooks.Add
Set tSheet = Target.Sheets(1)
tSheet.Paste
 
    Else
    End If

End Sub

Can you help?

Thanks, Robert

 

[AXBean]

And it's 2013. Sorry, missed that.

 

[AXBean]

Thank you for all of your advice. I still have the problem, with the selection pasting into two windows. If anyone can help make this not open in Excel twice, I would really appreciate it. Here is the current code:

Sub Exportwordtoexcel(control As IRibbonControl)
    Dim wordDoc As Object
    Dim oXL As Excel.Application
    Dim DocTarget As Word.Document
    Dim Target As Excel.Workbook
    Dim tSheet As Excel.Worksheet
    Dim oAddIn As Excel.AddIn
    
Dim YesOrNoAnswerToMessageBox As String
Dim QuestionToMessageBox As String
    QuestionToMessageBox = "Do you want Excel to open and paste your selection?"
    YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "QuikBots for Word")
    If YesOrNoAnswerToMessageBox = vbYes Then
    
Set wordDoc = GetObject(, "word.application")
wordDoc.Selection.WholeStory
Selection.Copy

On Error Resume Next
Set oXL = GetObject(, "Excel.Application")

If Err Then
    Set oXL = New Excel.Application
    For Each oAddIn In oXL.AddIns
        With oAddIn
            If .Installed Then
                .Installed = False
                .Installed = True
            End If
        End With
    Next oAddIn
End If

oXL.Visible = True

Set Target = oXL.Workbooks.Add
Set tSheet = Target.Sheets(1)
tSheet.Paste
 
    Else
    End If

End Sub

 

[RoryA]

It sounds like you have two windows open on the same workbook but there is nothing in the code that should cause that. Do you have a book.xltx template in your XLSTART folder?

 

[AXBean]

Rory: The only file in XLSTART is PERSONAL.XLSB.

 

[Jaafar Tribak]

Why don't you try emulating the opening of excel like via the user interface by using the Shell Command .. that way all addins should be automatically loaded.
Then use GetObject to get a pointer to the newly opened application/workbook and do your pasting.

 

[Joe4]

Cross-posted:
Opening excel from word
Opening excel from word
Opening excel from word

Seems like you posted this question all over the place. While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule #13 here: http://www.mrexcel.com/forum/showthread.php?t=99490). That way people can see what has already been suggested and they don't waste their time working on solutions that might have already been proposed elsewhere, or answering a question which may already be answered elsewehere.