Vba 减少excel中的行延拓

我正试图让excel使用VBA创建XML文件（这是我第一次），所以我设法创建了一个代码，但我一直得到这样一个信息：行连续体太多了

这是我的密码

Sub testXLStoXML()
 sTemplateXML = _
    "<?xml version='1.0'?>" + vbNewLine + _
"<offers>" + vbNewLine + _
"   <offer>" + vbNewLine + _
"       <offer_identifier>" + vbNewLine + _
"       </offer_identifier>" + vbNewLine + _
"       <offer_title>" + vbNewLine + _
"       </offer_title>" + vbNewLine + _
"       <offer_description>" + vbNewLine + _
"       </offer_description>" + vbNewLine + _
"       <offer_featured_image>" + vbNewLine + _
"       </offer_featured_image>" + vbNewLine + _
"       <offer_cat>" + vbNewLine + _
"       </offer_cat>" + vbNewLine + _
"       <offer_location>" + vbNewLine + _
"       </offer_location>" + vbNewLine + _
"       <offer_tags>" + vbNewLine + _
"       </offer_tags>" + vbNewLine + _
"       <offer_type>" + vbNewLine + _
"       </offer_type>" + vbNewLine + _
"       <offer_start>" + vbNewLine + _
"       </offer_start>" + vbNewLine + _
"       <offer_expire>" + vbNewLine + _
"       </offer_expire>" + vbNewLine + _
"       <offer_store>" + vbNewLine + _
"       </offer_store>" + vbNewLine + _
"           <!-- store  -->" + vbNewLine + _
"           <store_title>" + vbNewLine + _
"           </store_title>" + vbNewLine + _
"           <store_letter>" + vbNewLine + _
"           </store_letter>" + vbNewLine + _
"           <store_description>" + vbNewLine + _
"           </store_description>" + vbNewLine + _
    "           <store_logo>" + vbNewLine + _
"           </store_logo>" + vbNewLine + _
    "           <store_link>" + vbNewLine + _
"           </store_link>" + vbNewLine + _
"           <store_facebook>" + vbNewLine + _
"           </store_facebook>" + vbNewLine + _
"           <store_twitter>" + vbNewLine + _
"           </store_twitter>" + vbNewLine + _
"           <store_google>" + vbNewLine + _
"           </store_google>" + vbNewLine + _
"           <!-- store  -->" + vbNewLine + _
"       <!-- DEAL RELATED -->" + vbNewLine + _
"       <deal_items>" + vbNewLine + _
"       </deal_items>" + vbNewLine + _
"       <deal_item_vouchers>" + vbNewLine + _
"       </deal_item_vouchers>" + vbNewLine + _
"       <deal_price>" + vbNewLine + _
"       </deal_price>" + vbNewLine + _
"       <deal_sale_price>" + vbNewLine + _
"       </deal_sale_price>" + vbNewLine + _
"       <deal_discount>" + vbNewLine + _
"       </deal_discount>" + vbNewLine + _
"       <deal_voucher_expire>" + vbNewLine + _
"       </deal_voucher_expire>" + vbNewLine + _
"       <deal_in_short>" + vbNewLine + _
"       </deal_in_short>" + vbNewLine + _
"       <deal_type>" + vbNewLine + _
"       </deal_type>" + vbNewLine + _
"       <deal_link>" + vbNewLine + _
"       </deal_link>" + vbNewLine + _
"   </offer>" + vbNewLine + _
"</offers>" + vbNewLine + 

子testXLStoXML（）
sTemplateXML=_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+_
“”+vbNewLine+

是否有办法绕过此限制或使其生效？

按照Microsoft的说法，“可以使用行连续字符连接的行数有限制。此错误有以下原因和解决方案： 您的代码中有25行以上的物理行与行连续字符连接，或一行中有24个以上的连续行连续字符。请将部分组成行物理延长，以减少所需的行连续字符数，或将构造拆分为多个语句。“

---

行连续体只是为了便于阅读代码，并且在每个标记之后都必须按照现在的方式进行处理

谢谢。你知道怎么把行加长吗？为什么要把内容分成这么多行？例如，您可以将开始标记和结束标记放在同一行上，或者将多行合并为较长的行。“+vbNewLine+”“+vbNewLine+”“+vbNewLine+”“+vbNewLine+”“+vbNewLine+行的续行。只需将多个零件放在一条线上即可拆下_