Multiple selection - VBA

Question

Hello All,
first of all, I hope that my English will be understandable.
Description:
I must create a report for sales orders by planned deliver date. Most of info what I need are in VBAP, but there is no delivery date there, only in VBAK. I download VBAK by VDATU, result is a list with 500-3k pcs of orders. Next step shouId be I take these order numbers and "insert" them into VBAP-VBELN, but I'm not able to find out how can I do it in VBA (multiple selection, therefore I download that by ERDAT (large interval, because the orders can arrive to system more weeks before delivery date). Result is a code what is downloading VBAP ~ten minutes... It is not acceptable. I would like to choose a simplier example (where problem is the same): MARA.
I have only 2-300 article number per list but I have to download 80k articles because I can filter only prefix and H% is not so exact filter...
One-dimensional array is the only one solution what I tried for that but RFC call is false in that case.
Sub MARA() '(user As String, password As String)
Const TABLA As String = "MARA"
Const UZI1 As String = "there is no connection to R/3"
Const UZI2 As String = "something wrong"
Const CLIENT As String = "300"
Const LANGUAGE As String = "your logon language"
Const SYSTEM As String = "your system"
Const user As String = "your username"
Const password As String = "your pw"
Dim Tomb As Long
Dim LTomb As Long
’store material numbers from A column of xls into matDatabank
    LTomb = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    Tomb = 2
    If LTomb = 2 Then
matDatabank = "'" & Worksheets(1).Cells(Rand, 1).Value & "'"
    Else
Do While Worksheets(1).Cells(Tomb, 1).Value <> "" And Tomb < LTomb
matDatabank = matDatabank + "'" & Worksheets(1).Cells(Tomb, 1).Value & "', "
Tomb = Tomb + 1
Loop
matDatabank = matDatabank + "'" & Worksheets(1).Cells(Tomb, 1).Value & "'"
    End If
    matDatabank = Left(matDatabank, Len(matDatabank) - 1)
Set conn = CreateObject("SAP.functions")
conn.Connection.SYSTEM = SYSTEM
conn.Connection.CLIENT = CLIENT
conn.Connection.LANGUAGE = LANGUAGE
conn.Connection.user = user
conn.Connection.password = password
    retcd = conn.Connection.logon(0, True)
    If retcd <> True Then
     MsgBox UZI1, vbCritical
Exit Sub
    End If
Set RFC_READ_TABLE = conn.Add("RFC_READ_TABLE")
Set equery_tab = RFC_READ_TABLE.Exports("QUERY_TABLE")
Set toptions = RFC_READ_TABLE.Tables("OPTIONS")
Set tdata = RFC_READ_TABLE.Tables("DATA")
Set tfields = RFC_READ_TABLE.Tables("FIELDS")
equery_tab.Value = TABLA
toptions.AppendRow
toptions(1, "TEXT") = "MATNR IN" & "(" & matDatabank & ")"
’HM* selection needs more minutes because of huge amount of materials
'toptions.AppendRow
'toptions(1, "TEXT") = "MATNR like 'HM%'"
tfields.AppendRow
    tfields(1, "FIELDNAME") = "MATNR"
tfields.AppendRow
    tfields(2, "FIELDNAME") = "MATKL"
    If RFC_READ_TABLE.Call = True Then
MsgBox "success"
Else: MsgBox (UZI2)
    End If
conn.Connection.logoff
End Sub
Thank you for you help!
Regards,
Csaba

Answer 1

I tried this too, unsuccessfully:
x = Range("A65536").End(xlUp).Row
ReDim matDatabank(x)
For i = 2 To x
matDatabank(i) = "'" & Cells(i, 1).Value & "'"
Next i
For i = 2 To x
toptions.AppendRow
toptions(i - 1, "TEXT") = "MATNR EQ " & matDatabank(i)
Next i
Please help how can I use one dimensional array as selection.
Thanks,
Csaba