我想执行一个文本文件内的代码

Question

我有一个代码，它将日期参数传递给excel文件中的可视基本代码。在Date.txt文件中的代码粘贴在下面：

`Set objExcel = CreateObject("Excel.Application")`
'With objExcel'
'.Workbooks.Open "C:\emailfetch\FetchEmails.xlsm"'
'.Visible = True'
'.Run "FolderTraverse",cLng(DateSerial(2014,3,1)),cLng(DateSerial(2014,3,4))'
'.ActiveWorkbook.Close True'
'.Quit'
'End With'

我需要从execute.bat文件执行上面的代码。 Execute.bat文件包含2个其他文件。需要执行代码

步骤

• 1.Date.txt
• 2.makezip.vbs
• 3.mailsend.cmd。

任何人都可以帮助如何在批处理文件execute.bat

的帮助下执行Date.txt中的代码

Answer 1

你可以这两种方式。两者都要求你制作2个文件。

---

• 1：使用windows脚本主机框架xml包装器。这允许您通过命令提示符执行Windows脚本而不管语言。

<小时/> 的 scriptrollout.wsf

<job>
<script language="VBScript" src="data.txt"/>
<script language="VBScript" src="makezip.vbs"/>
</job>

<强> batchfile.bat

cscript.exe  scriptrollout.wsf
mailsend.cmd

---

• 2：使用ExecuteGlobal命令

---

<强> ExecGlob.vbs

Function Include(vbs)
    Dim fso, f, s : Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(vbs) : s = f.ReadAll()
    f.Close : ExecuteGlobal s
End Function

Include "Date.txt"
Include "makezip.vbs

<强> batchfile.bat

cscript.exe  ExecGlob.wsf
mailsend.cmd

---