New Instance Of Excel

Jonmo1 · Nov 21, 2007

OK, I have a problem with opening new instances of excel.

I have a macro that uses SendKeys (I know, I didn't write it) to open a company program. It runs some reports and exports them to excel spreadsheets. The problem is that when it exports, it exports into a NEW Excel Application. Like going to Start - Programs - Office - Excel. Instead of going to File - New from within the already open instance of excel.

That's just how the company's program works, and I can't change it. Even if I do it by hand, it creates a NEW excel instance for each export.

Now this causes a problem because I use a Personal.xls file. The person who wrote the macro didn't. So each time it opens a new instance of excel, it tries to open my personal.xls file. Creating a Dialog Box saying personal.xls is already open, do you want a read only copy?

That disrupts the Synchronization of the SendKeys.

Now, I can't just add another keystroke to say cancel to the dialog because I'm not the only one using this macro, and not everyone uses a personal.xls file.

I'm thinking I could make a loop to go through all the open books, and if it's name is personal.xls, save it and close it. Then proceed with the export.

But I can't figure out how to Loop through all instances of excel.

I've done

for each wb in workbooks
if wb.name = "Personal.xls" then
wb.save
wb.close
end if
next wb

but that only loops through the workbooks in the Original instance of excel.

I've tried
Workbooks("Personal.xls").Save
Workbooks("Personal.xls").Close

but it says Subscript out of range.

How do you loop through each instance of excel, THEN loop each wb within that instance?

Thanks.

Legacy 98055 · Nov 21, 2007

Taken from this post.

Paste all of the following in a standard module alone:
<table width="100%" border="1" bgcolor="White" style="filter

rogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><tr><TD> Option Explicit

 Private Declare Function GetRunningObjectTable Lib "ole32.dll" (ByVal dwReserved As Long, pROT As Long) As Long
 Private Declare Function CreateBindCtx Lib "ole32.dll" (ByVal dwReserved As Long, pBindCtx As Long) As Long
 Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)

 Private Declare Sub OleInitialize Lib "ole32.dll" (pvReserved As Any)
 Private Declare Sub OleUninitialize Lib "ole32.dll" ()

 Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)

 Private Declare Function PutMem2 Lib "msvbvm60" (ByVal pWORDDst As Long, ByVal NewValue As Long) As Long
 Private Declare Function PutMem4 Lib "msvbvm60" (ByVal pDWORDDst As Long, ByVal NewValue As Long) As Long
 Private Declare Function GetMem4 Lib "msvbvm60" (ByVal pDWORDSrc As Long, ByVal pDWORDDst As Long) As Long
 Private Declare Function VarPtr Lib "msvbvm60" (var As Any) As Long

 Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
 Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

 Private Declare Function CopyStringA Lib "kernel32" Alias "lstrcpyA" (ByVal NewString As String, ByVal OldString As Long) As Long
 Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
 Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As Long
 Private Declare Function WideCharToMultiByte Lib "kernel32" _
 (ByVal codepage As Long, ByVal dwFlags As Long, _
 lpWideCharStr As Any, ByVal cchWideChar As Long, _
 lpMultiByteStr As Any, ByVal cchMultiByte As Long, _
 ByVal lpDefaultChar As String, _
 ByVal lpUsedDefaultChar As Long) As Long

 Private Const GMEM_FIXED As Long = &H0
 Private Const asmPUSH_imm32 As Byte = &H68
 Private Const asmRET_imm16 As Byte = &HC2
 Private Const asmRET_16 As Long = &H10C2&
 Private Const asmCALL_rel32 As Byte = &HE8

 'IUnknown vTable ordinals
 Private Const unk_QueryInterface As Long = 0
 Private Const unk_AddRef As Long = 1
 Private Const unk_Release As Long = 2
 Private Const vtbl_ROT_EnumRunning = 9
 Private Const vtbl_EnumMoniker_Next = 3
 Private Const vtbl_Moniker_GetDisplayName = 20

 'Function to call Interface members by ordinal in VTable
 Private Function CallInterface(ByVal pInterface As Long, ByVal FuncOrdinal As Long, ByVal ParamsCount As Long, Optional ByVal p1 As Long = 0, Optional ByVal p2 As Long = 0, Optional ByVal p3 As Long = 0, Optional ByVal p4 As Long = 0, Optional ByVal p5 As Long = 0, Optional ByVal p6 As Long = 0, Optional ByVal p7 As Long = 0, Optional ByVal p8 As Long = 0, Optional ByVal p9 As Long = 0, Optional ByVal p10 As Long = 0) As Long
 Dim i As Long, t As Long
 Dim hGlobal As Long, hGlobalOffset As Long

 If ParamsCount < 0 Then Err.Raise 5 'invalid call
 If pInterface = 0 Then Err.Raise 5

 '5 bytes for each parameter
 '5 bytes - PUSH this
 '5 bytes - call member function
 '3 bytes - ret 0x0010, pop CallWindowProc
 '1 byte - dword align.

 hGlobal = GlobalAlloc(GMEM_FIXED, 5 * ParamsCount + 5 + 5 + 3 + 1)
 If hGlobal = 0 Then Err.Raise 7 'insuff. memory
 hGlobalOffset = hGlobal

 If ParamsCount > 0 Then
 t = VarPtr(p1)
 For i = ParamsCount - 1 To 0 Step -1
 PutMem2 hGlobalOffset, asmPUSH_imm32
 hGlobalOffset = hGlobalOffset + 1
 GetMem4 t + i * 4, hGlobalOffset
 hGlobalOffset = hGlobalOffset + 4
 Next
 End If

 'First member of any interface - this. Assign...
 PutMem2 hGlobalOffset, asmPUSH_imm32
 hGlobalOffset = hGlobalOffset + 1
 PutMem4 hGlobalOffset, pInterface
 hGlobalOffset = hGlobalOffset + 4

 'Call IFace Function by its ordinal
 PutMem2 hGlobalOffset, asmCALL_rel32
 hGlobalOffset = hGlobalOffset + 1

 GetMem4 pInterface, VarPtr(t) 'dereference: find vTable
 GetMem4 t + FuncOrdinal * 4, VarPtr(t) 'Function offset in vTable, dereference
 PutMem4 hGlobalOffset, t - hGlobalOffset - 4
 hGlobalOffset = hGlobalOffset + 4

 'all interfaces are stdcall, so forget about stack clearing
 PutMem4 hGlobalOffset, asmRET_16 'ret 0x0010

 CallInterface = CallWindowProc(hGlobal, 0, 0, 0, 0)

 GlobalFree hGlobal

 End Function

 Private Function StrFromPtrA(ByVal lpszA As Long, Optional nSize As Long = 0) As String
 Dim s As String, bTrim As Boolean
 If nSize = 0 Then
 nSize = lstrlenA(lpszA)
 bTrim = True
 End If
 s = String(nSize, Chr$(0))
 CopyStringA s, ByVal lpszA
 If bTrim Then s = TrimNULL(s)
 StrFromPtrA = s
 End Function

 Private Function StrFromPtrW(ByVal lpszW As Long, Optional nSize As Long = 0) As String
 Dim s As String, bTrim As Boolean
 If nSize = 0 Then
 nSize = lstrlenW(lpszW) * 2
 bTrim = True
 End If
 s = String(nSize, Chr$(0))
 ' CopyMemory ByVal StrPtr(s), ByVal lpszW, nSize ' VBA doesn't support StrPtr

WideCharToMultiByte 0, &H0, ByVal lpszW, -1, ByVal s, Len(s), &H0, &H0
 If bTrim Then s = TrimNULL(s)
 StrFromPtrW = s
 End Function

 Private Function TrimNULL(ByVal str As String) As String
 If InStr(str, Chr$(0)) > 0& Then
 TrimNULL = Left$(str, InStr(str, Chr$(0)) - 1&)
 Else
 TrimNULL = str
 End If
 End Function

 Public Function GetAllInstances() As Collection
 Dim pROT As Long, pEnumMoniker As Long, pMoniker As Long, pBindCtx As Long
 Dim ret As Long, nCount As Long, CheckForInstance As Boolean, Key As String
 Dim pName As Long, RegisteredName As String, ExcelApp As Application
 ret = GetRunningObjectTable(0, pROT)
 ret = CreateBindCtx(0, pBindCtx)
 CallInterface pROT, vtbl_ROT_EnumRunning, 1, VarPtr(pEnumMoniker)
 While CallInterface(pEnumMoniker, vtbl_EnumMoniker_Next, 3, 1, VarPtr(pMoniker), VarPtr(nCount)) = 0
 CallInterface pMoniker, vtbl_Moniker_GetDisplayName, 3, pBindCtx, 0, VarPtr(pName)
 'For win9x you'll need StrFromPtrA

 RegisteredName = StrFromPtrW(pName)
 If InStr(LCase(RegisteredName), "book") Then
 CheckForInstance = True
 Else
 Select Case Right(RegisteredName, 3)
 Case "xla", "slk", "dif", "csv", "txt", "prn", "dbf", "wq1", "wks", "wk1", "wk3", "wk4", "xlw", "xls", "xlt", "htm", "mht", "xml"
 CheckForInstance = True
 End Select
 Select Case Right(RegisteredName, 5)
 Case ".html", "mhtml"
 CheckForInstance = True
 End Select
 End If

 If CheckForInstance Then
 CheckForInstance = False
 If ParentIsExcel(RegisteredName, ExcelApp) Then
 If GetAllInstances Is Nothing Then Set GetAllInstances = New Collection
 Key = CStr(ObjPtr(ExcelApp))
 If Not InstanceAlreadyCollected(GetAllInstances, Key) Then
 GetAllInstances.Add ExcelApp, Key
 End If
 End If
 End If

 CallInterface pMoniker, unk_Release, 0
 CoTaskMemFree pName
 Wend
 CallInterface pEnumMoniker, unk_Release, 0
 CallInterface pBindCtx, unk_Release, 0
 CallInterface pROT, unk_Release, 0
 Exit Function

 End Function

 Private Function ParentIsExcel(ByVal RegisteredName As String, ExcelApp As Application) As Boolean
 On Error Resume Next

 Set ExcelApp = GetObject(RegisteredName).Parent
 If ExcelApp.Name = "Microsoft Excel" Then
 ParentIsExcel = True
 End If

 End Function

 Private Function InstanceAlreadyCollected(GetAllInstances As Collection, Key As String) As Boolean
 On Error GoTo Err_InstanceAlreadyCollected
 Dim o As Application
 Set o = GetAllInstances(Key)
 InstanceAlreadyCollected = True
 Err_InstanceAlreadyCollected:
 End Function
</td></tr></table><button onclick='document.all("11212007184953725").value=document.all("11212007184953725").value.replace(/ \s\s/g,"");document.all("11212007184953725").value=document.all("11212007184953725").value.replace(/ /g,"");window.clipboardData.setData("Text",document.all("11212007184953725").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="11212007184953725" wrap="virtual">
Option Explicit

Private Declare Function GetRunningObjectTable Lib "ole32.dll" (ByVal dwReserved As Long, pROT As Long) As Long
Private Declare Function CreateBindCtx Lib "ole32.dll" (ByVal dwReserved As Long, pBindCtx As Long) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)

Private Declare Sub OleInitialize Lib "ole32.dll" (pvReserved As Any)
Private Declare Sub OleUninitialize Lib "ole32.dll" ()

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)

Private Declare Function PutMem2 Lib "msvbvm60" (ByVal pWORDDst As Long, ByVal NewValue As Long) As Long
Private Declare Function PutMem4 Lib "msvbvm60" (ByVal pDWORDDst As Long, ByVal NewValue As Long) As Long
Private Declare Function GetMem4 Lib "msvbvm60" (ByVal pDWORDSrc As Long, ByVal pDWORDDst As Long) As Long
Private Declare Function VarPtr Lib "msvbvm60" (var As Any) As Long

Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

Private Declare Function CopyStringA Lib "kernel32" Alias "lstrcpyA" (ByVal NewString As String, ByVal OldString As Long) As Long
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" _
(ByVal codepage As Long, ByVal dwFlags As Long, _
lpWideCharStr As Any, ByVal cchWideChar As Long, _
lpMultiByteStr As Any, ByVal cchMultiByte As Long, _
ByVal lpDefaultChar As String, _
ByVal lpUsedDefaultChar As Long) As Long

Private Const GMEM_FIXED As Long = &H0
Private Const asmPUSH_imm32 As Byte = &H68
Private Const asmRET_imm16 As Byte = &HC2
Private Const asmRET_16 As Long = &H10C2&
Private Const asmCALL_rel32 As Byte = &HE8

'IUnknown vTable ordinals
Private Const unk_QueryInterface As Long = 0
Private Const unk_AddRef As Long = 1
Private Const unk_Release As Long = 2
Private Const vtbl_ROT_EnumRunning = 9
Private Const vtbl_EnumMoniker_Next = 3
Private Const vtbl_Moniker_GetDisplayName = 20

'Function to call Interface members by ordinal in VTable
Private Function CallInterface(ByVal pInterface As Long, ByVal FuncOrdinal As Long, ByVal ParamsCount As Long, Optional ByVal p1 As Long = 0, Optional ByVal p2 As Long = 0, Optional ByVal p3 As Long = 0, Optional ByVal p4 As Long = 0, Optional ByVal p5 As Long = 0, Optional ByVal p6 As Long = 0, Optional ByVal p7 As Long = 0, Optional ByVal p8 As Long = 0, Optional ByVal p9 As Long = 0, Optional ByVal p10 As Long = 0) As Long
Dim i As Long, t As Long
Dim hGlobal As Long, hGlobalOffset As Long

If ParamsCount < 0 Then Err.Raise 5 'invalid call
If pInterface = 0 Then Err.Raise 5

'5 bytes for each parameter
'5 bytes - PUSH this
'5 bytes - call member function
'3 bytes - ret 0x0010, pop CallWindowProc
'1 byte - dword align.

hGlobal = GlobalAlloc(GMEM_FIXED, 5 * ParamsCount + 5 + 5 + 3 + 1)
If hGlobal = 0 Then Err.Raise 7 'insuff. memory
hGlobalOffset = hGlobal

If ParamsCount > 0 Then
t = VarPtr(p1)
For i = ParamsCount - 1 To 0 Step -1
PutMem2 hGlobalOffset, asmPUSH_imm32
hGlobalOffset = hGlobalOffset + 1
GetMem4 t + i * 4, hGlobalOffset
hGlobalOffset = hGlobalOffset + 4
Next
End If

'First member of any interface - this. Assign...
PutMem2 hGlobalOffset, asmPUSH_imm32
hGlobalOffset = hGlobalOffset + 1
PutMem4 hGlobalOffset, pInterface
hGlobalOffset = hGlobalOffset + 4

'Call IFace Function by its ordinal
PutMem2 hGlobalOffset, asmCALL_rel32
hGlobalOffset = hGlobalOffset + 1

GetMem4 pInterface, VarPtr(t) 'dereference: find vTable
GetMem4 t + FuncOrdinal * 4, VarPtr(t) 'Function offset in vTable, dereference
PutMem4 hGlobalOffset, t - hGlobalOffset - 4
hGlobalOffset = hGlobalOffset + 4

'all interfaces are stdcall, so forget about stack clearing
PutMem4 hGlobalOffset, asmRET_16 'ret 0x0010

CallInterface = CallWindowProc(hGlobal, 0, 0, 0, 0)

GlobalFree hGlobal

End Function

Private Function StrFromPtrA(ByVal lpszA As Long, Optional nSize As Long = 0) As String
Dim s As String, bTrim As Boolean
If nSize = 0 Then
nSize = lstrlenA(lpszA)
bTrim = True
End If
s = String(nSize, Chr$(0))
CopyStringA s, ByVal lpszA
If bTrim Then s = TrimNULL(s)
StrFromPtrA = s
End Function

Private Function StrFromPtrW(ByVal lpszW As Long, Optional nSize As Long = 0) As String
Dim s As String, bTrim As Boolean
If nSize = 0 Then
nSize = lstrlenW(lpszW) * 2
bTrim = True
End If
s = String(nSize, Chr$(0))
' CopyMemory ByVal StrPtr(s), ByVal lpszW, nSize ' VBA doesn't support StrPtr

WideCharToMultiByte 0, &H0, ByVal lpszW, -1, ByVal s, Len(s), &H0, &H0
If bTrim Then s = TrimNULL(s)
StrFromPtrW = s
End Function

Private Function TrimNULL(ByVal str As String) As String
If InStr(str, Chr$(0)) > 0& Then
TrimNULL = Left$(str, InStr(str, Chr$(0)) - 1&)
Else
TrimNULL = str
End If
End Function

Public Function GetAllInstances() As Collection
Dim pROT As Long, pEnumMoniker As Long, pMoniker As Long, pBindCtx As Long
Dim ret As Long, nCount As Long, CheckForInstance As Boolean, Key As String
Dim pName As Long, RegisteredName As String, ExcelApp As Application
ret = GetRunningObjectTable(0, pROT)
ret = CreateBindCtx(0, pBindCtx)
CallInterface pROT, vtbl_ROT_EnumRunning, 1, VarPtr(pEnumMoniker)
While CallInterface(pEnumMoniker, vtbl_EnumMoniker_Next, 3, 1, VarPtr(pMoniker), VarPtr(nCount)) = 0
CallInterface pMoniker, vtbl_Moniker_GetDisplayName, 3, pBindCtx, 0, VarPtr(pName)
'For win9x you'll need StrFromPtrA

RegisteredName = StrFromPtrW(pName)
If InStr(LCase(RegisteredName), "book") Then
CheckForInstance = True
Else
Select Case Right(RegisteredName, 3)
Case "xla", "slk", "dif", "csv", "txt", "prn", "dbf", "wq1", "wks", "wk1", "wk3", "wk4", "xlw", "xls", "xlt", "htm", "mht", "xml"
CheckForInstance = True
End Select
Select Case Right(RegisteredName, 5)
Case ".html", "mhtml"
CheckForInstance = True
End Select
End If

If CheckForInstance Then
CheckForInstance = False
If ParentIsExcel(RegisteredName, ExcelApp) Then
If GetAllInstances Is Nothing Then Set GetAllInstances = New Collection
Key = CStr(ObjPtr(ExcelApp))
If Not InstanceAlreadyCollected(GetAllInstances, Key) Then
GetAllInstances.Add ExcelApp, Key
End If
End If
End If

CallInterface pMoniker, unk_Release, 0
CoTaskMemFree pName
Wend
CallInterface pEnumMoniker, unk_Release, 0
CallInterface pBindCtx, unk_Release, 0
CallInterface pROT, unk_Release, 0
Exit Function

End Function

Private Function ParentIsExcel(ByVal RegisteredName As String, ExcelApp As Application) As Boolean
On Error Resume Next

Set ExcelApp = GetObject(RegisteredName).Parent
If ExcelApp.Name = "Microsoft Excel" Then
ParentIsExcel = True
End If

End Function

Private Function InstanceAlreadyCollected(GetAllInstances As Collection, Key As String) As Boolean
On Error GoTo Err_InstanceAlreadyCollected
Dim o As Application
Set o = GetAllInstances(Key)
InstanceAlreadyCollected = True
Err_InstanceAlreadyCollected:
End Function</textarea>

Elsewhere in your project, paste this in:
<table width="100%" border="1" bgcolor="White" style="filter

rogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><tr><TD> Sub CloseStartUpsInAllInstances()
 Dim c As Collection, app As Application, wb As Workbook

 Set c = GetAllInstances
 If Not c Is Nothing Then
 For Each app In c
 For Each wb In app.Workbooks
 If wb.Path = Application.StartupPath Then
 wb.Close True
 End If
 Next
 Next
 End If
 End Sub
</td></tr></table><button onclick='document.all("11212007185059341").value=document.all("11212007185059341").value.replace(/ \s\s/g,"");document.all("11212007185059341").value=document.all("11212007185059341").value.replace(/ /g,"");window.clipboardData.setData("Text",document.all("11212007185059341").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="11212007185059341" wrap="virtual">
Sub CloseStartUpsInAllInstances()
Dim c As Collection, app As Application, wb As Workbook

Set c = GetAllInstances
If Not c Is Nothing Then
For Each app In c
For Each wb In app.Workbooks
If wb.Path = Application.StartupPath Then
wb.Close True
End If
Next
Next
End If
End Sub</textarea>

Jonmo1 · Nov 26, 2007

Well, this kinda works, Thanks for the code. If I run it by itself it works great. And I can close my personal.xls file with it. But when I try to incorporate it into the existimg macro that's causing the problem, it disrupts the SendKeys Syncronization.

I've figured a way around it by putting this code at the beginning (before any sendkeys happens). It searches all open excel apps for personal.xls and saves/closes it. Then copies it to a different location, and deletes it from the XLSTART folder. Then restores it at the end of the macro.

But I still find it hard to beleive that it has to be this complicated to loop through all open workbooks regardless of which instance of excel it was opened from. There has to be a simpler way.

Also, is there any way to just supress the New Instance of Excel opening the personal.xls file in the XLSTART folder??

Legacy 98055 · Nov 26, 2007

I've figured a way around it by putting this code at the beginning (before any sendkeys happens). It searches all open excel apps for personal.xls and saves/closes it. Then copies it to a different location, and deletes it from the XLSTART folder. Then restores it at the end of the macro.

Wow. I hope the people you are writing this for are forgiving if something happens to their Personal.xls.

But I still find it hard to beleive that it has to be this complicated to loop through all open workbooks regardless of which instance of excel it was opened from. There has to be a simpler way.

The top level object provided to us VBA'ers is Application. There is no Applications collection. The complexity on your end required a copy and paste. I even provided lovely, little buttons in my post. What's the problem?

Also, is there any way to just supress the New Instance of Excel opening the personal.xls file in the XLSTART folder??

I don't know.

Jonmo1 · Nov 26, 2007

The complexity on your end required a copy and paste. What's the problem?

I was referring to the complexity of the code itself, not the use of it.

Wow. I hope the people you are writing this for are forgiving if something happens to their Personal.xls.

good call, I will amend it to Only do that if I'M running the code. I already have a function to get windows logon ID. So I can use

IF UserName() = "Jon" Then...

employee06 · Nov 26, 2007

ReadOnly:=True (in the open code)

or application.displayalerts = false

hope that helps

Jonmo1 · Nov 26, 2007

Thanks for the thought employee..

But it's not any excel code that opens the new instance of excel. It's my companies Application that does it. The macro is using SendKeys to mimick keystroks in that application to export reports to excel. But each export opens a new instance of excel.

so I can't use the ReadOnly code, as there is no place to put it. And I tink
application.displayalerts = false

would only apply to the instance of excel the code is executed from..

employee06 · Nov 26, 2007

Thanks for the thought employee..

But it's not any excel code that opens the new instance of excel. It's my companies Application that does it. The macro is using SendKeys to mimick keystroks in that application to export reports to excel. But each export opens a new instance of excel.

so I can't use the ReadOnly code, as there is no place to put it. And I tink
application.displayalerts = false

would only apply to the instance of excel the code is executed from..

ya I figured...

sendkeys are a motha..

New Instance Of Excel

Jonmo1

MrExcel MVP

Excel Facts

Legacy 98055

Guest

Jonmo1

MrExcel MVP

Legacy 98055

Guest

Jonmo1

MrExcel MVP

employee06

Board Regular

Jonmo1

MrExcel MVP

employee06

Board Regular

Similar threads

Forum statistics

Share this page

New Instance Of Excel

Jonmo1

MrExcel MVP

Excel Facts

Legacy 98055

Guest

Jonmo1

MrExcel MVP

Legacy 98055

Guest

Jonmo1

MrExcel MVP

employee06

Board Regular

Jonmo1

MrExcel MVP

employee06

Board Regular

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock