我知道我有问题
IPROUTER = (Left(IP, 11)) & ((Right(IP, 3)) + 5)
我是 vba 新手,我应该如何写这一行以免出现标题错误?
'''VBA
Dim ID As String
Dim IP As String
Dim IPROUTER As String
ID = Mid(olItem.Subject, 20, 9)
IP = Right(olItem.Body, 14)
IPROUTER = (Left(IP, 11)) & ((Right(IP, 3)) + 5)
With objFile
.WriteLine "START " & Chr(34) & ID & Chr(34) & " ping" & IP & " -t"
'''
谢谢回复。它没有帮助,但我以不同的方式想通了。我只是将字符串转换为int。我的示例代码如下:
Dim ID As String
Dim IP As String
Dim IPROUTER As String
Dim ok As String
Dim okI As Integer
ID = Mid(olItem.Subject, 20, 9)
IP = Right(olItem.Body, 14)
IPROUTER = (Left(IP, 12))
ok = Mid(IP, 13, 3)
okI = CInt(ok)
With objFile
.WriteLine "START " & Chr(34) & ID & Chr(34) & " ping " & IP & " -t"
.WriteLine "START " & Chr(34) & ID & Chr(34) & " ping " & IPROUTER & okI + 5 & " -t"
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句