时间戳

首页 > 解决方案 > 如何连接 IP 地址？运行时错误 13，类型不匹配

vba - 如何连接 IP 地址？运行时错误 13，类型不匹配

问题描述

我知道我有问题

IPROUTER = (Left(IP, 11)) & ((Right(IP, 3)) + 5)

我应该如何写这行才能不出现标题错误？

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"

标签： vbaoutlooknetwork-programming

解决方案

你得到一个Type mismatch错误，因为你的代码，你试图将一个添加Integer到 a String（因为你的.中有 a String）。

假设您的 IP 地址是C类类型（如192.168.1.x），您可以像这样更正您的代码：

IPROUTER = (Left(IP, 10)) & (Mid(IP, 11, 3) + 5)

这将适用于最后一个八位字节的大小，但您可能必须根据地址固定部分的长度更改某些内容。

希望这可以帮助。

推荐阅读