try catch块宏

我有一段代码，将数据发送到一个HTTP终点try catch块宏

Set xhr = CreateObject("MSXML2.XMLHTTP") 
xhr.Open "POST", URL, False 
xhr.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 

Data = "volumeDate=" & URLEncode(VolumeDate) & "&" & "volume=" & URLEncode(Volume) 
xhr.Send Data

我想有一个try catch块来处理，如果它没有连接到URL，或者如果它返回的东西除了200

我该怎么做？

来源

2017-10-06 Prateek Narendra

Try/Catch在VBA中不可用。 [这是一个非常类似的问题]（https://stackoverflow.com/questions/30188584/vba-try-and-catch-ms-outlook）。 – MatSnow

VBA具有错误处理，并且/或者您可以检查响应的“状态”。 VBA不是VB.Net或其他语言，所以你需要在VBA上做一些Google搜索。 –

VBA中的错误处理基于On Error声明。看看Error Handling In VBA了解更多信息。

我建议创建一个COM加载项而不是VBA宏。您将能够轻松地检查错误代码并优雅地处理异常。请参阅Walkthrough: Creating Your First VSTO Add-In for Outlook快速入门。

来源

2017-10-08 13:18:17

try catch块宏

回答

相关问题