癥狀

在 Microsoft Visual Basic for Applications (VBA),，當(dāng)您使用mid （）、 Right()或Left()函數(shù),，您可能會收到下面的錯誤消息︰

原因

該語句的長度參數(shù)為負(fù),，則會出現(xiàn)此問題。

Mid （）函數(shù)返回文本字符串中的指定的字符位置開始的部分,。命令的語法如下所示

Mid(<string>, <start> [, <length>])

其中 < 字符串 > 為要搜索的文本字符串,，時的字符位置開始，從 < 啟動 > 和 < 長度 > 是要返回的字符數(shù),。如果不 < 長度 > 指定參數(shù),，或者沒有 < > 字符在文本中，該函數(shù)返回的所有字符從 < 開始 > 位置到字符串的結(jié)尾,。

解決方案

Microsoft 提供的編程示例僅用于說明,，沒有任何明示或暗示的擔(dān)保。這包括但不限于適銷性或特定用途適用性的暗示擔(dān)保,。本文假定您熟悉所演示的編程語言和用于創(chuàng)建和調(diào)試過程的工具,。Microsoft 的支持工程師可以幫助解釋某個特定過程的功能，但是他們不會修改這些示例以提供額外的功能或構(gòu)建過程以滿足您的特定要求,。的詳細(xì)信息,，請單擊下面的文章編號，以查看 Microsoft 知識庫中相應(yīng)的文章︰

290140如何運(yùn)行知識庫文章中的 Office XP 程序的示例代碼

若要解決此問題,，請確保測試的長度的字符串,，如以下示例所示︰

Sub ErrorDoesNotOccur()
   Dim Test As String
   Dim ReturnText As String

   ' Empty string, could be passed as an empty dialog
   ' variable, for example.
   Test = ""

   ' Test the length of the string to ensure
   ' that subtracting 1 from the length leaves
   ' at least 1 character.
   If Len(Test) - 1 > 0 then
      ReturnText = Mid(Test, Len(Test) - 1)
   End If

End Sub