Макросы Excel - Слишком много продолжений строки

Question

Макросы Excel - Слишком много продолжений строки

У меня есть "большой" SQL-запрос (как 200 строк)...

dim query as string
query = "..................................." & _
        "..................................." & _
           .... Like a lot lines later...
        "..................................."

function query,"sheet 1"

Когда я делаю это, Excel говорит "Слишком много продолжений строки".

Что лучший способ состоит в том, чтобы избежать этого?

10

excel vba

задан Alex Riley 9 July 2015 в 10:34

3 ответа

Разделите запрос на несколько разделов:

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

1

ответ дан 3 December 2019 в 23:49

Пока что я нашел это ...

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

* edit: Забыл добавить:

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

1

ответ дан 3 December 2019 в 23:49

Другие вопросы по тегам:

excel vba

Похожие вопросы:

score 11 · Accepted Answer

Есть только один способ - использовать меньше продолжения.

Это можно сделать, поместив больше текста в строку или используя конкатенацию, выраженную по-другому:

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

Но лучше всего загрузить текст из внешнего источника в целом.

{{1} }