실행하는 방법을 엑셀에서 매크로 명령 라인 또는 배치 파일은?

StackOverflow https://stackoverflow.com/questions/2050505

문제

I have an Excel VBA 매크로는 내가 필요할 때 실행에 액세스하는 파일에서 배치 파일은,하지만 모든간에 나는 그것을 열고(그러므로 사용하지 않는 파일을 열 이벤트).는 방법이 있을 실행에서 매크로 명령 라인 또는 배치 파일은?나는 익숙하지 않은 이러한 명령입니다.

가정 Windows NT 환경입니다.

도움이 되었습니까?

해결책

Excel을 시작하고 통합 문서를 열고 VBScript 파일에서 매크로를 실행할 수 있습니다.

아래 코드를 메모장으로 복사하십시오.

'업데이트'myworkbook.xls' 그리고 'Mymacro'매개 변수.

VBS 확장으로 저장하고 실행하십시오.

Option Explicit

On Error Resume Next

ExcelMacroExample

Sub ExcelMacroExample() 

  Dim xlApp 
  Dim xlBook 

  Set xlApp = CreateObject("Excel.Application") 
  Set xlBook = xlApp.Workbooks.Open("C:\MyWorkbook.xls", 0, True) 
  xlApp.Run "MyMacro"
  xlApp.Quit 

  Set xlBook = Nothing 
  Set xlApp = Nothing 

End Sub

매크로를 실행하는 핵심 라인은 다음과 같습니다.

xlapp.run "MyMacro"

다른 팁

가장 간단한 방법은 다음과 같습니다.

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 매크로를 실행할 수 있으며 환경 변수를 사용하여 매크로 이름을 배치에서 Excel로 전달합니다.

이 코드를 배치 파일에 넣으십시오 (경로를 사용하십시오. EXCEL.EXE 그리고 통합 문서에) :

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

이 코드를 vba thisworkbook 객체를 탁월하게합니다.

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

다음과 같이 코드를 VBA 모듈에 Excel에 넣습니다.

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

배치 파일을 시작하고 결과를 얻으십시오.

macro

매크로를 실행하려고하지 않을 경우 빈 가치를 넣으십시오. Set MacroName= 배치에.

createObject () 메소드를 통해 Excel 인스턴스를 만들기 위해 vbscript를 작성한 다음 통합 문서를 열고 매크로를 실행할 수 있습니다. vbscript를 직접 호출하거나 배치 파일에서 vbscript를 호출 할 수 있습니다.

방금 방금 걸려 넘어진 자료는 다음과 같습니다.http://www.codeguru.com/forum/showthread.php?t=376401

나는 항상 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

만약 당신이 더 편안한 내부 작업을 Excel/VBA,를 사용하여 이벤트를 열고 테스트 환경거나 또는 신호가 파일,레지스트리 항목 또는 환경변수를 제어하는 것 이벤트 않습니다.

당신은 파일을 만들 수 있습니다 설정/외부 및 내부 테스트(사용 GetEnviromentVariable env-var)테스트를 쉽습니다.내가 쓴 VBScript 사 VBA 원인이 나를 더 불안 보다 용이..

[더보기]

로 문제를 이해하기 위해 사용할 스프레드시트를 일반적으로 가장/부분의 시간이 아직 그것을 실행에서 일괄 처리고 무언가를 추가/다릅니다.을 열면 시트에서 excel.exe 명령줄만을 제어할 수 없습니다 그것이 무엇을하지 않으면 그것을 알고 있습니다.의 환경 변수를 사용하여 상대적으로 간단하게 테스트하는 스프레드시트로 쉽습니다.

을 명확히 기능을 사용하려면 아래 검사의 환경입니다.모듈 선언:

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

통합 문서 열기 이벤트(다른 사람):

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

추가에서 활성 코드로 적용됩니다.에 배치 파일,사용

set InBatch=TRUE

문자열을 직접 비교하는 대신 (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

@ 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"을 제거했습니다.

건배

편집하다

누군가 누군가가 독립형 애플리케이션을 사용하기를 원할 경우를 대비하여 실제로 해결했습니다.

내가 직면 한 문제 :

1- Excel이 읽기 전용으로 잠겨 있으므로 Workbook_Open 이벤트를 사용하고 싶지 않았습니다. 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

어쨌든, 당신의 도와 주셔서 감사합니다. 누군가가 필요하면 도움이되기를 바랍니다.

Excel이 이미 열려 있는지 확인할 수 있습니다. 다른 isondance를 만들 필요가 없습니다

   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

나는 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;
    }
}
라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top