Excel Macro - delete sheets

Anonymous — Thu, 20 Oct 2016 11:20:54 GMT

Hi guys. I've written a macro to export data to an excel template and delete certain tabs. However; when i do this is get "Data may exist in the sheet(s) selected for deletion. To permanently delete the data, press Delete.". Can anyone suggest a way to suppress this message and just proceed with the delete?

The code is here

Sub export_report

set XLApp = CreateObject("Excel.Application")

XLApp.Visible = true

set XLDOC = XLApp.Workbooks.Open ("R:\Team\Business Solutions\PDW\Tasks\Qlikview data testing\Data feedback 1.xlsx")

'Counts rows in the table

set v = ActiveDocument.GetVariable("CountRowsTable")

getVariable1 = v.GetContent.String

ActiveDocument.Fields("Missing tax amount").Select "True"

ActiveDocument.GetSheetObject("CH11").CopyTableToClipboard true

'The below will check if there's any content in the table and if there isn't, print nothing

ActiveDocument.Variables("CountRowsTable").SetContent chart.GetNoOfRows, true

set v = ActiveDocument.GetVariable("CountRowsTable")

getVariable = v.GetContent.String

'Auto fit

if getVariable <> getVariable1 then

set XLSheet = XLDOC.Worksheets("Missing tax Amount")

XLSheet.Paste XLSheet.Range("A3")

XLSheet.Range("a3:p3000").ColumnWidth = 105.00

XLSheet.Range("a3:p3000").EntireColumn.AutoFit

XLSheet.Rows("1:3000").EntireRow.AutoFit

End if

'If there's no data to export; delete the tab

if getVariable = getVariable1 then

XLDOC.Sheets("Missing tax amount").Delete

End if

ActiveDocument.Fields("Missing tax amount").Clear

End sub

Re: Excel Macro - delete sheets

m_woolf — Thu, 20 Oct 2016 12:31:16 GMT

XLApp.DisplayAlerts = False

topic Excel Macro - delete sheets in QlikView

Excel Macro - delete sheets

Re: Excel Macro - delete sheets