Excel中VBA 的string为何被截断?

Question

在Excel 2003中用VBA编写宏的时候
发现string类型的字符串在长度493的时候就被截断了，请问哪位高手知道是怎么回事么？
代码如下：Dim sqlWPstrq1 as string    sqlWPstr1 = "SELECT [Service]+'/'+[Module-Release]+'/'+[WPID]+'/'+[Name] AS [WP Info], [Planned Start Date], "
    sqlWPstr1 = sqlWPstr1 + " IIf([Projected Completion Date] Is Not Null,[Projected Completion Date],[Planned Completion Date]) "
    
    sqlWPstr1 = sqlWPstr1 + " AS [Planned Completion Date], "
    sqlWPstr1 = sqlWPstr1 + " [Actual Start Date], [Actual Completion Date], [Work Estimate], [Hours Utilized], [% Completion] AS [Actual % Completion], "
    sqlWPstr1 = sqlWPstr1 + " DateDiff('d',[Planned start Date],[Planned Completion Date]) AS [Total Duration], DateDiff('d',[Planned Start Date],now()) AS [Elapsed Day], "    i = Len(sqlWPstr1)最终查到组成的sqlWPstr1为："SELECT [Service]+'/'+[Module-Release]+'/'+[WPID]+'/'+[Name] AS [WP Info], [Planned Start Date],  IIf([Projected Completion Date] Is Not Null,[Projected Completion Date],[Planned Completion Date])  AS [Planned Completion Date],  [Actual Start Date], [字符串被截断了，长度i为493

Answer 1

Dim sqlWPstrq1 as string  'Dim sqlWPstr1 as string  ,你多了一个q    sqlWPstr1 = "SELECT [Service]+'/'+[Module-Release]+'/'+[WPID]+'/'+[Name] AS [WP Info], [Planned Start Date], " 
    sqlWPstr1 = sqlWPstr1 + " IIf([Projected Completion Date] Is Not Null,[Projected Completion Date],[Planned Completion Date]) " 
    
    sqlWPstr1 = sqlWPstr1 + " AS [Planned Completion Date], " 
    sqlWPstr1 = sqlWPstr1 + " [Actual Start Date], [Actual Completion Date], [Work Estimate], [Hours Utilized], [% Completion] AS [Actual % Completion], " 
    sqlWPstr1 = sqlWPstr1 + " DateDiff('d',[Planned start Date],[Planned Completion Date]) AS [Total Duration], DateDiff('d',[Planned Start Date],now()) AS [Elapsed Day], "     i = Len(sqlWPstr1) 
我返回的I值是 493 但是sqlWPstr1的值是:SELECT [Service]+'/'+[Module-Release]+'/'+[WPID]+'/'+[Name] AS [WP Info], [Planned Start Date],  IIf([Projected Completion Date] Is Not Null,[Projected Completion Date],[Planned Completion Date])  AS [Planned Completion Date],  [Actual Start Date], [Actual Completion Date], [Work Estimate], [Hours Utilized], [% Completion] AS [Actual % Completion],  DateDiff('d',[Planned start Date],[Planned Completion Date]) AS [Total Duration], DateDiff('d',[Planned Start Date],now()) AS [Elapsed Day],