相关疑难解决方法(0)

我如何在Windows中运行以下命令:

$ sudo django-admin.py startproject NEW

？

我有一个固定的命令,我需要使用VBA传递给命令提示符,然后命令应该运行.例如"perl a.pl c:\ temp"

以下是我尝试使用的命令但它只是打开命令提示符并且不运行命令.

Call Shell("cmd.exe -s:" & "perl a.pl c:\temp", vbNormalFocus)

请检查.

我有一个可执行文件,我使用shell命令调用:

Shell (ThisWorkbook.Path & "\ProcessData.exe")

可执行文件执行一些计算,然后将结果导出回Excel.我希望能够在导出后更改结果的格式.

换句话说,我首先需要Shell命令等待,直到可执行文件完成其任务,导出数据,然后执行下一个格式化命令.

我试过了Shellandwait(),但没有太多运气.

我有:

Sub Test()

ShellandWait (ThisWorkbook.Path & "\ProcessData.exe")

'Additional lines to format cells as needed

End Sub

不幸的是,格式化仍然在可执行文件完成之前进行.

仅供参考,这是我使用ShellandWait的完整代码

' Start the indicated program and wait for it
' to finish, hiding while we wait.


Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccessas …

找到此功能 http://www.cpearson.com/excel/ShellAndWait.aspx

但是还需要捕获shell输出的输出.任何代码建议？

我有一个Excel文件,其中包含B列中的图片,我想将它们导出为.jpg(或任何其他图片文件格式)的几个文件.应该从A列中的文本生成文件的名称.我尝试遵循VBA宏:

Private Sub CommandButton1_Click()
Dim oTxt As Object
 For Each cell In Ark1.Range("A1:A" & Ark1.UsedRange.Rows.Count)
 ' you can change the sheet1 to your own choice
 saveText = cell.Text
 Open "H:\Webshop_Zpider\Strukturbildene\" & saveText & ".jpg" For Output As #1
 Print #1, cell.Offset(0, 1).text
 Close #1
 Next cell
End Sub

结果是它生成文件(jpg),没有任何内容.我认为这条线Print #1, cell.Offset(0, 1).text.是错的.我不知道我需要改变它,cell.Offset(0, 1).pix？

有谁能够帮我？谢谢!

请建议以更好的方式将excel工作表中的数据范围导出为.jpeg或.png或.gif格式的图像.

我正在整理一个办公应用程序(VBA),该应用程序调用C#控制台应用程序来执行应用程序的一些繁重工作(大型模拟程序).我希望能够让VBA应用程序等待控制台应用程序完成以及从控制台应用程序中检索退出代码.我已经能够做到前者,但还没有能够从应用程序中检索退出代码.有什么方法可以使用像

Diagnostics.Process.Start(filePath)

我在VB中看过这个,但对VBA不确定.否则,还有其他建议吗？

在最近从Excel 2010升级到Excel 2013之后,我将自定义加载项(.xlam)移动到新的Application.LibraryPath目录(C:\ Program Files\Microsoft Office 15\root\office15\Library\BTRTools).有一些代码启动可执行(exe)文件(位于加载项的子目录中).但是,自升级/移动以来,我没有收到错误:

PrettyPrintXml.exe - Application Error

The application was unable to start correctly (0xc000007b). Click OK to close the application.

我显然很相信它是文件权限.我已经明确添加了自己的权限,拥有\ Library文件夹(以及所有潜艇)的完全权限.请注意,我认为即使使用Excel 2010(C:\ Program Files(x86)\ Microsoft Office\Office14\Library中的文件夹)也必须这样做才能使工作正常.

但是,经过这一切,我仍然卡住了,无法启动exe文件.关于如何使这项工作的任何想法/建议？

代码非常标准:

Public Sub RunShellExecute(sFile As String, Optional params As String = "", Optional wait As Boolean = False)

Dim wsh As Object: Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = wait
Dim windowStyle As Integer: windowStyle = 1
Dim exe As String: exe = IIf(Left(sFile, …