如何通过在excell中按vbabutton来运行ftp.bat？

我试图从大型机自动提取数据，我试过下面的解决scheme，但没有奏效。 相反，它删除了FtpLogin2.bat文件的内容。 

Private Sub Workbook_Open() Call Shell(Environ$("COMSPEC") & " /c D:\user\MyDocs\Downloads_FTP\FtpLogin2.bat", vbNormalFocus) End Sub

ftplogin2.bat的内容 

 @ftp -i -s:"%~f0"&GOTO:EOF open ip user password ped get 'mainframe_dataset' pc_dataset.txt

我想要做的是build立一个表单，我有一个input。 该input是我想要提取的主机文件的名称。 那么这个数据会出现在Excel的另一个工作表中。我的意思是通过一个文本字段和一个提交button来自动化这个过程，这个button应该触发macros中的FTP。

有没有办法做到这一点？

我认为在这种情况下使用environ（）是有问题的; 我不知道为什么。

使用Shell("cmd.exe /c D:\user\MyDocs\Downloads_FTP\FtpLogin2.bat"

这应该在3.11后的任何版本的Windows上工作。

Interesting Posts