excel vb macro on qlikview

Keorapetse — Sat, 16 Nov 2024 21:34:56 GMT

Good day everyone,

i have an issue with a vb macro that i am trying to run on qlikview. it gives me an error. below is the vb script that i am trying to run.

Sub IMPORT_PREP2()
'
' IMPORT_PREP2 Macro
'

'
Workbooks.OpenText Filename:= _
"C:\Users\korobela\Desktop\recon\Learn\RawData\ED_GL_ED_SAUD_NOV-18.txt" _
, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _
:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 4), Array(8, 1), Array(9, 1), Array(10, 4), Array(11, 1), Array(12, 4), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 2), Array(19, 1), Array _
(20, 2), Array(21, 2), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
Array(27, 1), Array(28, 1)), TrailingMinusNumbers:=True
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Range("AB1").Select
ActiveCell.FormulaR1C1 = "DESCR"
ChDir "C:\Users\korobela\Documents\Test\RawData"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\korobela\Desktop\recon\Learn\RawData\ED_GL_ED_SAUD_NOV-18.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Cells.Select
Range("E1").Activate
Cells.EntireColumn.AutoFit
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Re: excel vb macro on qlikview

pradosh_thakur — Fri, 18 Jan 2019 08:22:19 GMT

What's the error?

Re: excel vb macro on qlikview

m_woolf — Fri, 18 Jan 2019 13:36:50 GMT

In VBA, xlDelimited and xlDoubleQuote have numeric values assigned. VBScript doesn't know those values. You can look up the values in Excel using the Object Browser or you can Google to get the values.

Also VBScript doesn't understand the parameter names, like OpenTextFileName:, Origin: , StartRow:, etc.

In VBScript, the Workbooks.Open command would look something like:

Workbooks.Open "C:\Users\korobela\Desktop\recon\Learn\RawData\ED_GL_ED_SAUD_NOV-18.txt" _
, 437, 1, 1, 1, ....

topic Re: excel vb macro on qlikview in QlikView

excel vb macro on qlikview

Re: excel vb macro on qlikview

Re: excel vb macro on qlikview