Hello people
I have an macro that reads from a .csv file and I need to read line by line and update the data in Qlikview. Here's what I got:
------------------------------------------------------------------------
Sub CarregarArquivo(file)
set oFile = createObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")
Set File = oFile.OpenTextFile (file, 1)
row = 0
Do Until file.AtEndOfStream
line = file.Readline
dict.Add row, line
row = row + 1
Loop
set doc = ActiveDocument
row = 0
For Each line in dict.Items
if row > 0 then
items = Split(line, ";")
Set vIDFiliaisProdutos = ActiveDocument.Variables("vIDFiliaisProdutos")
vIDFiliaisProdutos = items(0) & "_" & items(1) & "_" & items(2) & "_" & items(3)
SET Result = doc.DynamicUpdateCommand ("UPDATE * SET Alocacao = "& items(4) & " WHERE IDFiliaisProdutos = '" & IDFiliaisProdutos & "';")
if Result = false then
MsgBox Result.ErrorMessage
end if
end if
row = row + 1
Next
End Sub
------------------------------------------------------------------------
So far I'm able to read the file and build a command line by line, but when I run it, it stops at the first command exection (in line Set Result...) and the Edit Module window opens. No error is shown, nothing.
Any ideas ?
Thanks in advance !
Josué
