Qlik Community

Ask a Question

QlikView Scripting

Discussion Board for collaboration on QlikView Scripting.

Qlik Highlights 2020 Giveaway! Watch, reply and have a chance to win a $200 Amazon Gift Card! Watch Video
Showing results for 
Search instead for 
Did you mean: 

Macro to backup many qvw files...


This discussion is connected with my earlier one (http://community.qlik.com/thread/53227)

I'm looking for a way to backup many files, secured with Section Access. We are migrating to a new Domain\user names and the problem is that those files cannot be updated (to apply new security) any more because the data sources are not there any more. When we change domain we will not be able to access those files.

Maybe you will have an idea how to do it - my only thought right now is to export all data visible in those files to XLS files and place them in separate folders per file.

What I came to now (but what is not working yet) is below macro. Could you please help me fix it?

It is using a list of file paths like this one:




loaded in script to one field "files"

The macro should open each file from "files" and sheet by sheet, object by object export everything to a separate filder/file in XLS format (for now I just try to put it to different files, folders later...)

I have three problems with this macro:

- it doesn't works when run from a button with assigned macro (than it only opens the Macro view). For now I run it from Macro view with Test button...

- I got an error "Object doesn't support this property or method: 'xx.ExportBiff'" but according to ApiGuide example it should work, because xx is an "set xx=ActiveDocument.GetSheetObject(....)" object

- when I comment export line I get messages when qv tries to open file that I have no access to or opens Macro security window for files that use advanced macros... how to hide those notifications to have the export process automatic?

---- 8=< -----------------------------------------------------------------------------------

sub run

          set App = ActiveDocument.GetApplication

          set val=ActiveDocument.Fields("files").GetPossibleValues

          for i=0 to val.Count-1

                    Set MyApp = CreateObject("QlikTech.QlikView")

                    Set MyDoc = MyApp.OpenDoc (val.Item(i).Text,"","")

                    for a=0 to ActiveDocument.NoOfSheets-1

                              set ss=ActiveDocument.GetSheet(a)



                              for b=lBound(Objects) to uBound(Objects)

                                        set xx=ActiveDocument.GetSheetObject(mid(Objects(b).GetObjectID,10,len(Objects(b).GetObjectID)-9))'Objects(b)


                                        xx.ExportBiff ""&replace(replace(replace(replace("c:\TMP\export\"&val.Item(i).Text&"__"&Objects(b).GetObjectId&".xls",":","_"),"\","_"),"[","_"),"]","_")



                    Set MyDoc = Nothing

                    Set MyApp = Nothing


end sub

---- 8=< -----------------------------------------------------------------------------------


0 Replies