vba如何使用api函数来获取电脑com1的电子秤数据?
excelvba调用windowsapi快速查找选定的文件
excel选择文件名列表并自动从“a1”文件夹中查找相应的文件。
shellexecutea,dataobject,clipboard,find,sendkeys
privatedeclarefunctionshellexecutelib“shell32.dll”alias
“shellexecutea”(byvalhwndaslong,byvallpszopas
string,byvallpszfileasstring,byvallpszparamsasstring,
byvallpszdirasstring,byvalfsshowcmdaslong)aslong
constw¨show=5
subtest()选择。复制
dimmydataasdataobject
dimstempasstring,sasstring
setmydata=newdataobjectmydata.getfrom剪贴板
stemp=我的数据.gettext
s=替换(stemp,vbcrlf,“”)
s=替换(s,vbtab,“”)我的数据.settext(s)mydata.putinclipboard文件
shellexecute0&,“查找”,范围(“a1”),
vbnullstring,vbnullstring,swshow申请。等等(nowtimevalue(“0:00:02”)
sendkeys&;“{enter}”
endsub
在excel中,单击“开发工具visualbasic”来编程vba。
在excel中编程vba之前,您应该对excel的常用对象和属性有一定的了解:例如,worksheets对象表示工作簿中所有工作表的集合;worksheets(1)是工作簿中的第一个工作表;worksheets(1)。范围(“a1”)返回到单元格a1等
初学者可以用录制宏的方法来模拟需要实现的宏,然后修改宏得到最终的vba代码。
我希望我能帮助你。你好,我是最深的感觉。我很高兴为你回答。excelvba调用windowsapi快速查找所选文件。excel选择文件名列表并自动从“a1”文件夹中查找相应的文件。shellexecutea,dataobject,clipboard,find,sendkeysprivate声明函数shellexecutelib“shell32.dll”alias“shellexecutea”(byvalhwndaslong,byvallpszopasuustring,byvallpszfileasstring,byvallpszparamsasstring,vallpszdirasstring,byvalfsshowcmdaslong)aslongconstswuushow=5subtest()选择。复制dimmydataasdataobjectdimstempasstring,sasstring设置mydata=newdataobjectmydata.getfrom剪贴板stemp=我的数据.gettexts=替换(stemp,vbcrlf,“”),s=替换(s,vbtab,“”)我的数据.settext(个)mydata.putinclipboard文件shell执行0&,“查找”范围(“a1”),vbnullstring,vbnullstring,swushow申请。等等(nowtimevalue(“0:00:02”)sendkeyss&;“{enter}”endsub比较专业的科普知识,欢迎关注我。如果你喜欢我的回答,也请给我表扬或转发,你的鼓励是支持我写下来的动力,谢谢。
原文标题:vba的api入门教程 VBA如何使用API函数来获取电脑com1的电子秤数据?,如若转载,请注明出处:https://www.saibowen.com/wenda/18251.html
免责声明:此资讯系转载自合作媒体或互联网其它网站,「赛伯温」登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,文章内容仅供参考。