Запуск автономного макроса excel с пакетным файлом [duplicate]

Вы можете проверить, открыт ли Excel. Нет необходимости создавать еще один isntance

   If CheckAppOpen("excel.application")  Then
           'MsgBox "App Loaded"
            Set xlApp = GetObject(, "excel.Application")   
   Else
            ' MsgBox "App Not Loaded"
            Set  wrdApp = CreateObject(,"excel.Application")   
   End If

@ Robert: Я пытался адаптировать ваш код с относительным путем и создал командный файл для запуска VBS.

VBS запускается и закрывается, но не запускает макрос ... Любая идея о том, где проблема может быть?

Option Explicit

On Error Resume Next

ExcelMacroExample

Sub ExcelMacroExample() 

  Dim xlApp 
  Dim xlBook 

  Set xlApp = CreateObject("Excel.Application")
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  strFilePath = objFSO.GetAbsolutePathName(".") 
  Set xlBook = xlApp.Workbooks.Open(strFilePath, "Excels\CLIENTES.xlsb") , 0, True) 
  xlApp.Run "open_form"


  Set xlBook = Nothing 
  Set xlApp = Nothing 

End Sub

Я удалил «Application.Quit», потому что мой макрос вызывает пользовательскую форму, заботясь об этом.

Cheers

EDIT

Я действительно сработал, на случай, если кто-то захочет запустить пользовательскую форму «как таковое»:

Проблемы, с которыми я столкнулся:

1 - Я не хотел использовать событие Workbook_Open, поскольку excel заблокирован только для чтения. 2 - Командная команда ограничена тем фактом, что (насколько мне известно) она не может вызвать макрос.

Сначала я написал макрос для запуска моей пользовательской формы при скрытии приложения:

Sub open_form()
 Application.Visible = False
 frmAddClient.Show vbModeless
End Sub

Затем я создал vbs для запуска этого макроса (выполнение этого с относительным путем было сложным):

dim fso
dim curDir
dim WinScriptHost
set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")
set fso = nothing

Set xlObj = CreateObject("Excel.application")
xlObj.Workbooks.Open curDir & "\Excels\CLIENTES.xlsb"
xlObj.Run "open_form"

И я, наконец, сделал пакетный файл для выполнения VBS ...

@echo off
pushd %~dp0
cscript Add_Client.vbs

Обратите внимание, что я также включил «Установить обратно в видимый» в мой Userform_QueryClose:

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Close SaveChanges:=True
    Application.Visible = True
    Application.Quit
End Sub

В любом случае, спасибо за вашу помощь, и я надеюсь, что это поможет если кому-то это нужно

Я всегда проверял количество открытых книг в Workbook_Open (). Если это 1, то рабочая книга была открыта командной строкой (или пользователь закрыл все книги, а затем открыл это).

If Workbooks.Count = 1 Then

    ' execute the macro or call another procedure - I always do the latter  
    PublishReport

    ThisWorkbook.Save

    Application.Quit

End If

Самый простой способ сделать это:

1) Запустить Excel из командного файла, чтобы открыть книгу, содержащую ваш макрос:

EXCEL.EXE /e "c:\YourWorkbook.xls"

2) Вызовите свой макрос из события Workbook_Open рабочей книги, например:

Private Sub Workbook_Open()
    Call MyMacro1          ' Call your macro
    ActiveWorkbook.Save    ' Save the current workbook, bypassing the prompt
    Application.Quit       ' Quit Excel
End Sub

Теперь это приведет к возврату элемента управления в пакетный файл для выполнения другой обработки.

Если вы более комфортно работаете внутри Excel / VBA, используйте событие open и проверяйте среду: либо есть файл сигнала, запись реестра или переменная среды, которая контролирует то, что делает открытое событие.

Вы можете создать файл / настройку снаружи и протестировать внутри (используйте GetEnviromentVariable для env-vars) и легко протестируйте. Я написал VBScript, но сходство с VBA вызывает у меня больше ярости, чем легкость.

[подробнее]

Насколько я понимаю, вы хотите использовать таблицу обычно чаще всего / Некоторое время все же он запускается в пакетном режиме и делает что-то дополнительное / другое. Вы можете открыть лист из командной строки excel.exe, но вы не можете контролировать, что он делает, если он не знает, где он находится. Использование переменной среды относительно просто и упрощает тестирование электронной таблицы.

Чтобы уточнить, используйте приведенную ниже функцию для изучения среды. В модуле declare:

Private Declare Function GetEnvVar Lib "kernel32" Alias "GetEnvironmentVariableA" _
    (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long

Function GetEnvironmentVariable(var As String) As String
Dim numChars As Long

    GetEnvironmentVariable = String(255, " ")

    numChars = GetEnvVar(var, GetEnvironmentVariable, 255)

End Function

В открывшемся событии Workbook (как и другие):

Private Sub Workbook_Open()
    If GetEnvironmentVariable("InBatch") = "TRUE" Then
        Debug.Print "Batch"
    Else
        Debug.Print "Normal"
    End If
End Sub

Добавить активный код, если применимо. В пакетном файле используйте

set InBatch=TRUE

вы можете написать vbscript, чтобы создать экземпляр excel с помощью метода createobject (), затем откройте книгу и запустите макрос. Вы можете либо напрямую вызвать vbscript, либо вызвать vbscript из командного файла.

Вот ресурс, который я только что наткнулся: http://www.codeguru.com/forum/showthread. PHP? т = 376401

Вместо прямого сравнения строк (VB не найдет их равными, так как GetEnvironmentVariable возвращает строку длиной 255), напишите это:

Private Sub Workbook_Open()     
    If InStr(1, GetEnvironmentVariable("InBatch"), "TRUE", vbTextCompare) Then
        Debug.Print "Batch"  
        Call Macro
    Else    
        Debug.Print "Normal"     
    End If 

End Sub 

Метод, показанный ниже, позволяет запускать определенный макрос Excel из командного файла, он использует переменную окружения для передачи имени макроса из пакета в Excel.

Поместите этот код в командный файл (используйте ваши пути к EXCEL.EXE и к книге):

Set MacroName=MyMacro
"C:\Program Files\Microsoft Office\Office15\EXCEL.EXE" "C:\MyWorkbook.xlsm"

Поместите этот код в Excel VBA ThisWorkBook Object:

Private Sub Workbook_Open()
    Dim strMacroName As String
    strMacroName = CreateObject("WScript.Shell").Environment("process").Item("MacroName")
    If strMacroName <> "" Then Run strMacroName
End Sub

И поместите свой код в модуль Excel VBA, как показано ниже:

Sub MyMacro()
    MsgBox "MyMacro is running..."
End Sub

Запустить командный файл и получить результат:

В случае, если вы не собираетесь запустите любой макрос, просто поместите пустые значения Set MacroName= в пакет.

Я частично отношусь к C #. Я использовал следующие linqpad. Но это можно было легко скомпилировать с помощью csc и запустить вызов из командной строки.

Не забудьте добавить пакеты excel в пространство имен.

void Main()
{
    var oExcelApp = (Microsoft.Office.Interop.Excel.Application)System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
    try{
        var WB = oExcelApp.ActiveWorkbook;
        var WS = (Worksheet)WB.ActiveSheet;
        ((string)((Range)WS.Cells[1,1]).Value).Dump("Cell Value"); //cel A1 val
        oExcelApp.Run("test_macro_name").Dump("macro");
    }
    finally{
        if(oExcelApp != null)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcelApp);
        oExcelApp = null;
    }
}