Question

我试图执行一个蝙蝠。来自vba的文件但无法使其正常工作（在查看主题中的某些主题后）。

现在是代码：

Dim filet As String
Dim numero As String

Const pekka = "TIEDOSTO"
Const sami = "NUMEROT"
filet = Range(pekka).Cells(1, 1).value
numero = Range(sami).Cells(1, 1).value

commandstring = "D:"
commandstring2 = "cd folder name"
commandstring3 = "Create-tri.bat" + " " + filet + " " + numero
Call Shell("cmd.exe /S" & commandstring & commandstring2 & commandstring3, vbNormalFocus)

所以根据我的逻辑，这段代码首先应该访问D，然后是想要的文件夹，然后执行bat。具有给定参数的文件（filet和numero）。我在这里做错了什么？

提前致以最诚挚的问候和谢意，

约翰

Answer 1

尝试删除public void SaveStudent(String studentId, int classID, String studentName){ Cursor cursor = database.rawQuery("select * from " + tblName_Student + " where student_id = ?", new String[]{studentId}); if (cursor.getCount() == 0) { ContentValues values = new ContentValues(); values.put("student_id", studentId); values.put("class_id", classID); values.put("student_name", studentName); database.insert("student", null, values);}}，它在VBA中已弃用。

然后使用Call。

要查看您实际尝试执行的内容，请使用：

Shell "cmd.exe /S" & commandstring & commandstring2 & commandstring3

你得到了什么？很可能它不是一个可执行命令，以Debug.Print "cmd.exe /S" & commandstring & commandstring2 & commandstring3结尾。这里有一些参考 - Execute .bat file from Excel VBA Macro

执行蝙蝠。来自vba代码

1 个答案: