Tenho um arquivo que contém varias planilhas xlsx
Pretendo criar uma rotina que pegue cada arquivo, leia o mesmo e armazene em QVD sendo que o nome do QVD será o nome do arquivo.
Criei o seguinte script, mas está dando NULL, não dá erro, mas não extrai nenhum xlsx. Alguem me pode ajudar?
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;
