Routine to extract data from several xlsx files

[NelsonZyon]

I have a file that contains several xlsx spreadsheets I intend to create a routine that takes each file, reads it and stores it in QVD and the name of the QVD will be the name of the file. I created the following script, but it's giving NULL, it doesn't give an error, but it doesn't extract any xlsx. Someone can help me?

set vTableName = '';

For Each File In FileList ('$(vCaminhoOrigemDadosOi)/*.xlsx')

// LET vTableName = subfield(mid('$(File)', index('$(File)', '\',-1) +1), '.xlsx', 1);

LET vTableName = subfield(mid('$(File)', index('$(File)', '\',-1) +1), '.xlsx', 1);

// SubField(SubField(vArquivo, '\', -1), '.'&vExt, 1)
LET size = filesize('$(File)');

if not isnull(size) then

[$(vTableName)]:
LOAD [NUM. CHAMADO]&'|'&[DATA SERVICO]&'|'&HORA as Key,
[TIPO REG.],
[DESCRICAO TIPO],
[COD. FILIAL],
REFERENCIA,
[CNPJ-CPF],
CONTRATO,
AGRUPADOR,
TELEFONE,
NOME,
[COD. SERVICO],
[DESCRICAO DO SERVICO],
[NUM. CHAMADO],
[DATA SERVICO],
HORA,
DURACAO,
DUR.TARIFARIA,
[VALOR LIQUIDO],
[VALOR BRUTO],
[CNL-ORIGEM],
DEG.TARIFARIO,
[GRUPO HORARIO],
[EOT-ORIGEM],
[EOT-DESTINO],
CARRIER,
TRAFEGO,
CICLO
FROM
[$(vCaminhoOrigemDadosOi)\$(vTableName)].xlsx
(ooxml, embedded labels, table is Plan1);

Store [$(vTableName)] into $(vCaminhoDestino)\[$(vTableName)].qvd(qvd);

drop Table [$(vTableName)];

END IF

Next File;