2016-03-04 61 views
-1

我试图让Excel中创建使用VBA(我第一次)的XML文件,所以我设法创建一个代码,但我不断收到有太多的连接行减少行继续在Excel

消息

这是我的代码

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 + 

有没有办法绕过限制或使这项工作?

回答

0

根据Microsoft的说法,“您可以使用续行字符加入的行数有限制,该错误的原因和解决方案如下: 您的代码中有超过25行的物理行行连续续行字符,或者在一行中连续超过24个连续字符,使一些构成行在物理上更长一些,以减少所需续行字符的数量,或将构造分解为多个语句。

该行的延续仅仅是为了方便阅读代码,并且必须在每个标签之后拥有现在的样子

+0

谢谢。你知道如何使线条更长吗? –

+1

你为什么要将内容分割成多行?例如,您可以将开始标签和结束标签放在同一行上,也可以将多行放入较长的行中。 –

+0

“+”vbNewLine +“”+ vbNewLine + – Fred