(已解决)用代码实现每一个打开的excel独占一个excel进程

wwwbjwww

如题,这样考虑是为了实现开发的excel文件保持个体特征,而不被后面打开的excel所干涉(如窗口覆盖等)

[ 本帖最后由 wwwbjwww 于 2010-12-7 18:10 编辑 ]

sunsoncheng

好象在VB中用        '''不存在进程时用这个
        Set objXL = CreateObject("Excel.Application")

[ 本帖最后由 sunsoncheng 于 2010-12-6 19:37 编辑 ]

wwwbjwww

以下代码在xp和07测试通过,可以实现后续打开的excel独占各自的进程,由此实现开发的excel保持较大程度独立.
  Const HKEY_CLASSES_ROOT = -2147483648#
       Const HKEY_CURRENT_USER = -2147483647#
       Const HKEY_LOCAL_MACHINE = -2147483646#
       Const HKEY_USERS = -2147483645#
       Const REG_SZ = 1&         '字符串值
    Const REG_BINARY = 3&        '二进制值
    Const REG_DWORD = 4&        'DWORD

     Declare Function RegCreateKey Lib "advapi32.dll " Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByRef phkResult As Long) As Long
     Declare Function RegCloseKey Lib "advapi32.dll " (ByVal hKey As Long) As Long
     Declare Function RegSetValueEx Lib "advapi32.dll " Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Any, ByVal cbData As Long) As Long '创建或改变一个键值,lpData应由缺省的ByRef型改为ByVal型
     Private Declare Function RegDeleteValue Lib "advapi32.dll " Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long       '删除一个键值
     Private Declare Function RegDeleteKey Lib "advapi32.dll " Alias "RegDeleteKeyA " (ByVal hKey As Long, ByVal lpSubKey As String) As Long            '删除一个主键


Sub Main1()

      Dim nKeyHandle  As Long, nValueType  As Long, nLength  As Long

      Dim sValue  As String

      sValue = ""

      Call RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Classes\Excel.Sheet.12\shell\Open\ddeexec", nKeyHandle)
       Call RegDeleteValue(nKeyHandle, "") '删除值

      Call RegCloseKey(nKeyHandle)

    End Sub

Sub Main2()

      Dim nKeyHandle  As Long, nValueType  As Long, nLength  As Long

      Dim sValue  As String
      sValue = Chr(34) & "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" & Chr(34) & " /e " & Chr(34) & "%1" & Chr(34)

      Call RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Classes\Excel.Sheet.12\shell\Open\command", nKeyHandle)

      Call RegSetValueEx(nKeyHandle, "", 0, REG_SZ, sValue, 100) '""表示默认值
      
       'Call RegSetValueEx(nKeyHandle, "My Value", 0, REG_SZ, sValue, 255)

      'Call RegDeleteKey(HKEY_CURRENT_USER, "New   Registry   Key ")
       'Call RegDeleteValue(nKeyHandle, "") '删除值
      Call RegCloseKey(nKeyHandle)
    End Sub

wwwbjwww

以下代码在xp和07测试通过,可以实现后续打开的excel独占各自的进程,由此实现开发的excel保持较大程度独立.
  Const HKEY_CLASSES_ROOT = -2147483648#
       Const HKEY_CURRENT_USER = -2147483647#
       Const HKEY_LOCAL_MACHINE = -2147483646#
       Const HKEY_USERS = -2147483645#
       Const REG_SZ = 1&         '字符串值
    Const REG_BINARY = 3&        '二进制值
    Const REG_DWORD = 4&        'DWORD

     Declare Function RegCreateKey Lib "advapi32.dll " Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByRef phkResult As Long) As Long
     Declare Function RegCloseKey Lib "advapi32.dll " (ByVal hKey As Long) As Long
     Declare Function RegSetValueEx Lib "advapi32.dll " Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Any, ByVal cbData As Long) As Long '创建或改变一个键值,lpData应由缺省的ByRef型改为ByVal型
     Private Declare Function RegDeleteValue Lib "advapi32.dll " Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long       '删除一个键值
     Private Declare Function RegDeleteKey Lib "advapi32.dll " Alias "RegDeleteKeyA " (ByVal hKey As Long, ByVal lpSubKey As String) As Long            '删除一个主键


Sub Main1()

      Dim nKeyHandle  As Long, nValueType  As Long, nLength  As Long

      Dim sValue  As String

      sValue = ""

      Call RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Classes\Excel.Sheet.12\shell\Open\ddeexec", nKeyHandle)
       Call RegDeleteValue(nKeyHandle, "") '删除值

      Call RegCloseKey(nKeyHandle)

    End Sub

Sub Main2()

      Dim nKeyHandle  As Long, nValueType  As Long, nLength  As Long

      Dim sValue  As String
      sValue = Chr(34) & "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" & Chr(34) & " /e " & Chr(34) & "%1" & Chr(34)

      Call RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Classes\Excel.Sheet.12\shell\Open\command", nKeyHandle)

      Call RegSetValueEx(nKeyHandle, "", 0, REG_SZ, sValue, 100) '""表示默认值
      
       'Call RegSetValueEx(nKeyHandle, "My Value", 0, REG_SZ, sValue, 255)

      'Call RegDeleteKey(HKEY_CURRENT_USER, "New   Registry   Key ")
       'Call RegDeleteValue(nKeyHandle, "") '删除值
      Call RegCloseKey(nKeyHandle)
    End Sub

luqiwe

强,实在强,估计能看懂该贴且能用到该贴的,论坛里没多少人了.

goldowl2011

Very good.Thanks a lot.

shgmp

luqiwe 发表于 2011-11-21 14:47
强,实在强,估计能看懂该贴且能用到该贴的,论坛里没多少人了.

http://club.excelhome.net/forum. ... p;extra=#pid7226001

朋友您能看看中各个问题怎么解决吗

美好未来686

wwwbjwww 发表于 2010-12-7 03:38
以下代码在xp和07测试通过,可以实现后续打开的excel独占各自的进程,由此实现开发的excel保持较大程度独立.
...

这个注册表被修改了 又怎么修改回去呢？

hhxq001

wwwbjwww 发表于 2010-12-7 03:38
以下代码在xp和07测试通过,可以实现后续打开的excel独占各自的进程,由此实现开发的excel保持较大程度独立.
...

代码怎么用你，请指教

露露德

1.     Declare Function RegCreateKey Lib "advapi32.dll " Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByRef phkResult As Long) As Long
   
2.      Declare Function RegCloseKey Lib "advapi32.dll " (ByVal hKey As Long) As Long
   
3.      Declare Function RegSetValueEx Lib "advapi32.dll " Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Any, ByVal cbData As Long) As Long '创建或改变一个键值,lpData应由缺省的ByRef型改为ByVal型
   
4.      Private Declare Function RegDeleteValue Lib "advapi32.dll " Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long       '删除一个键值
   
5.      Private Declare Function RegDeleteKey Lib "advapi32.dll " Alias "RegDeleteKeyA " (ByVal hKey As Long, ByVal lpSubKey As String) As Long            '删除一个主键

复制代码

这一段好像在EXCEL 2013中无法识别~ 请教~ （哎 整段都看不太懂）