Excelmacros – 太多的行延续

我有一个“大”的SQL查询（如200行）…

dim query as string query = "..................................." & _ "..................................." & _ .... Like a lot lines later... "..................................." function query,"sheet 1" 

当我这样做时，Excel表示“太多的行延续”。

避免这种情况的最好方法是什么？

Answer 1

只有一种方法 – 使用较less的延续。

这可以通过将更多的文本放在一行上或通过使用不同的expression方式来完成：

 query = ".........." query = query & ".........." query = query & ".........." 

但最好的做法是从外部来源加载整个文本。

Answer 2

到目前为止我find了这个…

 Call AddToArray(query, "...") Call AddToArray(query, "...") ... a lot lines later... Call AddToArray(query, "...") 

*编辑：忘了补充：

 Sub AddToArray(myArray As Variant, arrayElement As Variant) If Not IsArrayInitialized(myArray) Then ReDim myArray(0) myArray(0) = arrayElement Else ReDim Preserve myArray(UBound(myArray) + 1) myArray(UBound(myArray)) = arrayElement End If End Sub 

来源： 链接文本 X（谢谢

（仍然在等待更好的方法来做到这一点…）谢谢你：P

Answer 3

将查询分成几个部分：

 query = _ "............" & _ "............" & _ "............" query = query & _ "............" & _ "............" & _ "............" query = query & _ "............" & _ "............" & _ "............"