topic Re: Syntax Error in Macro Code.... in QlikView

Syntax Error in Macro Code....

Anonymous — Thu, 16 Oct 2014 13:51:26 GMT

Hello Experts,

Can anybody suggest what is the syntax error in following code:

Code:

sub ExcelPath

dim Path

Path="C:\"

MsgBox "Path Assigned"

call ExportChart

end sub

Sub ExportChart

set XLAppWholeChart = CreateObject("Excel.Application")

XLAppWholeChart.Visible = False

set XLDocWholeChart = XLAppWholeChart.Workbooks.Add

ActiveDocument.GetSheetObject("CH528").CopyTableToClipboard true

XLDocWholeChart.Sheets(1).Paste()

XLDocWholeChart.Sheets(1).Name = "Export"

TableName="Flash Summary.xlsx"

File=Path&TableName

delfile(file)

XLDocWholeChart.SaveAs File

XLAppWholeChart.Quit

MsgBox "Exported"

'Object creation

call smtpsettings

end sub

sub delfile(file)

Set filesys = CreateObject("Scripting.FileSystemObject")

If filesys.FileExists(file) Then

filesys.DeleteFile file

End If

MsgBox "File Deleted"

end sub

sub smtpsettings

Dim objEmail

Const cdoSendUsingPort = 2 'Send the message using SMTP

Const cdoAnonymous = 0 'Do not authenticate

Const cdoBasic = 1 'basic (clear-text) authentication

Const cdoNTLM = 2 'NTLM

Const SMTPServer = "smtp"

Const SMTPPort = 5 ' Port number for SMTP

Const SMTPTimeout = 60 ' Timeout for SMTP in seconds

'Sending mail

Set objEmail = CreateObject("CDO.Message")

Set objConf = objEmail.Configuration

Set objFlds = objConf.Fields

With objFlds

'———————————————————————

' SMTP server details

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout

.Update

'———————————————————————

End With

objEmail.To = ""

objEmail.From = ""

objEmail.Subject = "Flash Summary"

objEmail.AddAttachment "C:\"

objEmail.Send

Set objFlds = Nothing

Set objConf = Nothing

Set objEmail = Nothing

MsgBox ("Test Mail Sent")

End Sub

Regards,

Balraj

Re: Syntax Error in Macro Code....

m_woolf — Thu, 16 Oct 2014 19:36:33 GMT

What error are you getting?

If you are getting Macro parse failed. functionality was lost, I suggest that you comment out blocks of code until the error disappears. You should be able to get down the the offending line by repeating this with smaller blocks commented each time.

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 06:05:41 GMT

Micheal,

I am not getting any error in code, Macro parsing is perfectly fine.

But when I am clicking on button, I am not getting any message even exportation is also not happening...

For me it seems, I am missing some thing in the code.............

Re: Syntax Error in Macro Code....

jerrysvensson — Fri, 17 Oct 2014 06:10:20 GMT

Have you set Requested Module Security to System Access and Current local Security to Allow System Access in the Macro dialogue?

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 06:18:26 GMT

Yes,

I have done that......

Re: Syntax Error in Macro Code....

jerrysvensson — Fri, 17 Oct 2014 06:34:35 GMT

Ok. Just to be sure. 🙂

Are you running in WebView mode?

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 06:55:48 GMT

Is it mandatory???

Re: Syntax Error in Macro Code....

jerrysvensson — Fri, 17 Oct 2014 07:05:44 GMT

No, the opposite. When you use WebView in Developer, Macros will not work.

Using MsgBox and Ajax as client, fails the Macro.

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 07:10:16 GMT

In Developer, I am not using any webview....

Should I comment Msgbox??

I have tried without MsgBox as well but again it was not working.

After clicking on button I did not any message of failure or success!!!

Re: Syntax Error in Macro Code....

jerrysvensson — Fri, 17 Oct 2014 07:13:46 GMT

Comment out all code and try this:

sub ExcelPath

MsgBox "Path Assigned"

end sub

Should give you a msgbox. If that doesn't work I have no idea what is wrong.

Re: Syntax Error in Macro Code....

sivarajs — Fri, 17 Oct 2014 07:20:13 GMT

What error exactly u r getting?

Seems your code is fine, it showing all the message boxes.

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 07:24:54 GMT

I tried, but no luck..

Not getting any messages box...

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 07:26:41 GMT

Siva,

I am clicking on button but I am not getting any error or message or success with this code..

Don't know what is wrong or Am I missing some settings for macro?

I have crossed check the syntax and logic which is absolutely fine but not working in my case....

Re: Syntax Error in Macro Code....

jagan — Fri, 17 Oct 2014 07:29:35 GMT

Hi,

Did you added the trigger to the button and called that macro?

Regards,

jagan.

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 07:36:00 GMT

Jagan,

I have added action to button to run macro which is like a trigger, if I am not wrong?

Is it required any other trigger as well?

Re: Syntax Error in Macro Code....

sivarajs — Fri, 17 Oct 2014 07:58:11 GMT

Did you add action in the button as External-> Run Macro -> ExcelPath( macro name)?

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 08:00:18 GMT

Yes,

Done the same thing..

Re: Syntax Error in Macro Code....

sivarajs — Fri, 17 Oct 2014 08:13:15 GMT

have you specified without any symbols right? because if you specify =,' it wont work

Re: Syntax Error in Macro Code....

Anonymous — Fri, 17 Oct 2014 08:23:54 GMT

I have not specified any symbol.....

Re: Syntax Error in Macro Code....

sivarajs — Fri, 17 Oct 2014 09:16:17 GMT

Better post your sample qv