日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問(wèn) 生活随笔!

生活随笔

當(dāng)前位置: 首頁(yè) > 运维知识 > linux >内容正文

linux

vba执行linux命令,从VBA中的shell命令捕获输出值?

發(fā)布時(shí)間:2023/12/10 linux 37 豆豆
生活随笔 收集整理的這篇文章主要介紹了 vba执行linux命令,从VBA中的shell命令捕获输出值? 小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

慕蓋茨4494581

根據(jù)Andrew Lessard的回答,這是一個(gè)運(yùn)行命令并將輸出作為字符串返回的函數(shù) -Public?Function?ShellRun(sCmd?As?String)?As?String

????'Run?a?shell?command,?returning?the?output?as?a?string

????Dim?oShell?As?Object

????Set?oShell?=?CreateObject("WScript.Shell")

????'run?command

????Dim?oExec?As?Object

????Dim?oOutput?As?Object

????Set?oExec?=?oShell.Exec(sCmd)

????Set?oOutput?=?oExec.StdOut????'handle?the?results?as?they?are?written?to?and?read?from?the?StdOut?object

????Dim?s?As?String

????Dim?sLine?As?String

????While?Not?oOutput.AtEndOfStream

????????sLine?=?oOutput.ReadLine????????If?sLine?<>?""?Then?s?=?s?&?sLine?&?vbCrLf????Wend

????ShellRun?=?sEnd?Function用法:MsgBox?ShellRun("dir?c:\")

總結(jié)

以上是生活随笔為你收集整理的vba执行linux命令,从VBA中的shell命令捕获输出值?的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò),歡迎將生活随笔推薦給好友。