[文件操作] 之前用 start /max excel.exe 執行DDE，時會有衝突現象

sop0123

請問 高手

之前用
start /max excel.exe
寫一個簡單的批次檔

是可以直接跳出，
另一個2013 excel，沒問題
可以，很方便作業

但【有巨集 DDE 時】，就會有衝突現象

而用 (手動)
1.執行 Win鍵+R
2.執行 excel /x
【有巨集 DDE 時】，就不會有衝突現象

請問 兩者方式，有何差異

可以請問

1.執行 Win鍵+R
2.執行 excel /x

要 如何 撰寫
可否 幫忙解決，感謝~~

sop0123

回复 10# yu2n

yu2n 大大

感謝指點

已能處理，解決了.... 感謝!!

yu2n

'test2.vbs
'On Error Resume Next

Main
'************************************************************************
Sub Main()
'************************************************************************

    Dim objExcel1, objExcel2, strFile1, strFile2
    
    If Excel_Init(objExcel1) <> True Or Excel_Init(objExcel2) <> True Then
        Exit Sub
    End If
    
    strFile1 = "C:\Users\Yu2n\Desktop\新建 Microsoft Office Excel 工作表.xlsm"
    strFile2 = "C:\Users\Yu2n\Desktop\新建 Microsoft Office Excel 工作表 - 副本.xlsm"
    
    objExcel1.Workbooks.Open(strFile1)
    objExcel2.Workbooks.Open(strFile2)
    
    Excel_Show objExcel1, True
    Excel_Show objExcel2, True
    
End Sub


'************************************************************************
'创建 Excel 对象
'************************************************************************
Function Excel_Init(ByRef objExcel)
    Const msoAutomationSecurityLow = 1 '宏有效打开文件，Application 启动初始值。
    Const msoAutomationSecurityByUI = 2 '使用安全性警告对话框中指定的安全级别打开文件。
    Const msoAutomationSecurityForceDisable = 3 '不显示安全性警告对话框，宏无效打开文件。
    On Error Resume Next
    Set objExcel = CreateObject("Excel.Application")
    If Not Err.Number = 0 Then
        Msgbox "错误：无法创建 Excel 对象，你可能没有安装 Excel 。", vbCritical+vbOKOnly, WScript.ScriptName
        WScript.Quit(999)
    End If
    If Not objExcel.Application.Version >= 12.0 Then
        Msgbox "警告：请使用 Office 2007 以上版本。", vbExclamation+vbOKOnly, WScript.ScriptName
    End If
    ' 隐藏运行，屏蔽提示
    Excel_Show objExcel, False
    'objExcel.AutomationSecurity = msoAutomationSecurityByUI '宏安全性配置
    Excel_Init = (Err.Number = 0)
End Function

'************************************************************************
Sub Excel_Show(ByRef objExcel, ByVal blnShowOrHide)
'************************************************************************
    objExcel.Visible = (blnShowOrHide = True)
    objExcel.DisplayAlerts = (blnShowOrHide = True)
End Sub
复制代码

yu2n

'test.vbs
'On Error Resume Next

Dim oExcel, oWsh, sFile1, sFile2

Set oExcel = CreateObject("Excel.Application")
Set oWsh = CreateObject("WSCript.Shell")
oWsh.CurrentDirectory = oExcel.Path
oExcel.Quit

sFile1 = "C:\Users\Yu2n\Desktop\新建 Microsoft Office Excel 工作表.xlsm"
sFile2 = "C:\Users\Yu2n\Desktop\新建 Microsoft Office Excel 工作表 - 副本.xlsm"

oWsh.Run "excel.exe """ & sFile1 & """", 1, False
oWsh.Run "excel.exe /x """ & sFile2 & """", 1, False

Set oExcel = Nothing
Set oWsh = Nothing
复制代码

codegay

学一下VBS sendkey 挺简单的。应该是可以快速解决你这个问题。

sop0123

補充 訴求 是

因為 之前
用二個 2003 excel是OK的
開二個 2003 excel都可以是 獨立視窗

而 升級到 2013
網上
是說 可以獨立
2010 才會有問題


問題是
本人一開 2013 excel
到第二個 2013 excel 就出現問題

所以 才想辦法
用 BAT 來簡化，克服

************************
目前
是用手動方式
1.執行 Win鍵+R
2.執行 excel /x (處理)
************************
1.要開二個獨立的 2013 excel

2.二個 2013 excel 的視窗

各開各的檔案，各跑各的巨集運作

A.檔案 跑訊號 策略
B.檔案 跑下單 交易

ivor

你应该从两种不同启动方式的命令行看看，有什么区别。

Blitz

出现的冲突是怎么样的，截个图吧

sop0123

回复 2# codegay

感謝. 回應
巨集是 excel內的 Visual Basic 編輯器

codegay

搜索 了一下，好像指的宏？

codegay

你是台湾的朋友吗？大陆这边的术语有差异，应该是看不懂巨集指的是什么意思。需要你解释一下。