这样的日语需求如何写vbavba编程代码大全，求大神告知，在线等急

来源：蜘蛛抓取(WebSpider) 时间：2018-04-18 02:09 标签： vba代码
FactoryTalk的VBA代码问题！急求各位大神！-专业自动化论坛-中国工控网
FactoryTalk的VBA代码问题！急求各位大神！
给TA发消息
加TA为好友
发表于： 18:25:29
现在我想实现这样的功能，在SE Client上用VBA读取当前主机名，根据主机名加载对应参数表，并且每隔几秒钟对变量进行赋值。具体代码如下：Private Sub ParaSwitch()&&& &&& Dim Filename As String&&& Dim Data As String&&& Dim Com As String&&& Dim strParamFileName As String&&& Dim strCommand As String&&& Dim i As Integer&&& Dim omyElement As Element&&& Dim omyComputer As Element&&& Dim counter As Integer&&&& i = 0&&& Com = Environ(&computername&)&&& Filename = &C:\Temp\startup\ClientMapping.txt&&&& Open Filename For Input Access Read As #1&&& Do While Not EOF(1)&&&&&&& Line Input #1, Data&&&&&&& If Len(Data) && 0 Then&&&&&&&&&&& If InStr(Data, Com) & 0 Then&&&&&&&&&&&&&&& strParamFileName = &TagWriteAlarm_0& & i&&&&&&&&&&&&&&& strCommand = &Display header /P& & strParamFileName&&&&&&&&&&&&&&& ExecuteCommand (strCommand)&&&&&&&&&&& End If&&&&&&&&&&& i = i + 1&&&&&&& End If&&& Loop&&& Close #1-------红色代码为根据主机名加载对应参数表&&&&&&& While True&&&&&&& For counter = 0 To 9&&&&&&&&&&& Set omyElement = Me.FindElement(&NumericInput& & CStr(counter))&&&&&&&&&&& omyElement.Value = Int((100 * Rnd) + 1)&&&&&&& Next&&&&&&&&&&& Set omyComputer = Me.FindElement(&StringInput1&)&&&&&&&&&&& omyComputer.Value = Environ(&computername&)&&&&&&&&&&& Pause 1&&&&&&&&&&& Application.ExecuteCommand &downloadall&&&&&&&&&&&& Pause 2&&& Wend---------绿色部分为加载好参数表后，向参数表中引用的变量进行赋值。这个部分需要每间隔一段时间赋值一次，所以要用循环。&&& End Sub但现在的问题是，只要ExecuteCommand (strCommand)这条语句被执行，也就是加载参数表指令。后面绿色部分的代码就无法运行，起码看现象是这样的，变量没有被赋值。求各位大神帮忙看看，如何解决！&
周点击排行
周回复排行计算机作业，如何写VBA代码？_百度知道
计算机作业，如何写VBA代码？
我有更好的答案
好久没有写过vb代码了 & ：我用C#的代码写的思路int&number=0;&&//个数int&sun=0&//整数和for(int&i=10;i&=1000;i++){&&&&if(i%7!=0&&&&i%9!=0)&&&&{&&&&&&&&number++;&&&&&&&&sun+=i;&&&&}}水仙花数;for(i=100;i&=3000;i++){&&&&int&num1=i%10;&//个位&&&&int&num2=i%100/10;&&&&&&int&num3=i/100;&&&&int&num4=i/1000;&&&&if(i&999)&&&&{&&&&if(水仙花数的算法验证)&&&//忘了怎么算来着了&&&&}&&&&else&&&&{&&&&if(水仙花数的算法验证)&&&//忘了怎么算来着了&&&&}}
为您推荐：
其他类似问题
vba的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。Error_404_资源不存在
404. 抱歉! 您访问的资源不存在!
请确认您输入的网址是否正确，如果问题持续存在，请发邮件至contact@cnblogs.com与我们联系。VBA里面限定了借书数量,可是为什么没有起作用,下面是我写的代码，在线等，求大神指教_百度知道
VBA里面限定了借书数量,可是为什么没有起作用,下面是我写的代码，在线等，求大神指教
For j = 4 To 7 '判断该读者借阅的资料是否过量
If Worksheets(&借阅规定&).Cells(j, 2) = zhiwu Then '判断读者类型是否与输入读者的类型相同
If num &= Worksheets(&借阅规定&).Cells(j, 3) Then '再判断借阅资料数量是否大于该读...
我有更好的答案
代码没问题噢。
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 vba代码 的文章

 

随机推荐