使用 VBA 在给定目录中运行批处理文件

发布于 2025-01-08 08:58:50 字数 397 浏览 1 评论 0原文

当我转到批处理文件的位置并打开它时，批处理文件就可以工作。我的批处理文件很简单：

cd .\data
dir/b/o:n > names.txt

如您所见，我在当前目录中移动到子目录“data”并复制所有名称并创建一个名为 names.txt 的文件。

当我说它

shell "location of file"

打开批处理文件时，但默认的目录是C:\my Documents，所以我的命令将不起作用，因为它找不到子目录。我希望这是一个动态批处理文件，因此我需要在 VBA 中编写一些内容来打开其当前目录下的批处理文件或达到此效果的内容。

我该怎么做？

原文

When I go to my batch file's location and open it, the batch file works. My batch file is simply:

cd .\data
dir/b/o:n > names.txt

As you can see, I'm in my current directory and moving down to the sub directory "data" and coping all the names and creating a file called names.txt.

When I say

shell "location of file"

it opens the batch file, but the directory that is defaulted to is C:\my documents, so my commands won't work because it cannot find the sub directory. I want this to be a dynamic batch file, and therefore i need to write something in VBA that will open the batch file under its current directory or something to this effect.

How do I do this?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

夢归不見 2025-01-15 08:58:50

以下内容应该会给您带来您想要的效果。

我的测试代码是：

Option Explicit
Sub TryShell()

  Dim PathCrnt As String

  PathCrnt = ActiveWorkbook.Path
  Call Shell(PathCrnt & "\TryShell.bat " & PathCrnt)

End Sub

我的测试批处理文件名为 TryShell.bat 并包含：

cd %1
dir *.* >TryShell.txt

我已将批处理文件放置在与包含宏的工作簿相同的文件夹中。

语句 PathCrnt = ActiveWorkbook.Path 将 PathCrnt 设置为包含活动工作簿的目录名称。您可以将 PathCrnt 设置为您需要的任何目录。

当我调用 Shell 时，我添加了 PathCrnt 作为参数。

在我的批处理文件中，我将当前目录设置为 %1，这是第一个参数。

dir 命令按照我的意愿工作，因为当前目录是我的目录，而不是系统默认目录。

希望这一点是清楚的。

The following should give you the effect you seek.

My test code is:

Option Explicit
Sub TryShell()

  Dim PathCrnt As String

  PathCrnt = ActiveWorkbook.Path
  Call Shell(PathCrnt & "\TryShell.bat " & PathCrnt)

End Sub

My test batch file is named TryShell.bat and contains:

cd %1
dir *.* >TryShell.txt

I have placed my batch file in the same folder as the workbook containing my macro.

The statement PathCrnt = ActiveWorkbook.Path sets PathCrnt to the name of the directory containing the active workbook. You can set PathCrnt to whatever directory you require.

When I call Shell, I have added PathCrnt as a parameter.

In my batch file, I set the current directory to %1 which is the first parameter.

The dir command works as I wish because the current directory is my directory and not the system default directory.

Hope this is clear.

回复收藏 0 原文