Inconsistency in export to .xlsm file using template file Works for one user, does not for another.

gopal5879 — Wed, 17 Feb 2021 00:54:45 GMT

Hello Folks,

I have a question. I was able to export to .xlsm file using template file which works fine. We are exporting to a shared folder. For one user, the export works fine with column frozen at Column G with column A,B,C,D,E,F visible.

For another user, export does not seem to work . A,B,C,D columns are hidden.

Not sure about the inconsistency in export behavior. The users are not computer savvy.

I am a bit confused, Can some one please direct where to look and possible hint to resolve this inconsistency in export please?

SUB ExportToWorkSheetRevised

' on error resume next

Dim RowCount
Dim lngLstCol
Dim lngLstRow
Dim xRg
Dim xRgUni
Dim xFirstAddress
Dim xStr
Dim aCell
Dim ColumnLabel
Dim objObjectFromRows
Dim TempCreateCsvList

'Set objFso = CreateObject("Scripting.FileSystemObject")
'Set objFolder = objFso.GetFolder(excelFolder)
'

vlWorkSheetTemplDir = ActiveDocument.Variables("vWorkSheetTemplDir").GetContent.String
vlWorkSheetTemplFileName = ActiveDocument.Variables("vWorkSheetTemplFileName").GetContent.String
vTemplFileName = vlWorkSheetTemplDir &"\" & vlWorkSheetTemplFileName & ".xlsm"

vlWorkSheetDir = ActiveDocument.Variables("vWorkSheetDir").GetContent.String
vlWorkSheetFileName = ActiveDocument.Variables("vWorkSheetFileName").GetContent.String
vlFileDayAndTime =ActiveDocument.Variables("vFileDayAndTime").GetContent.String
vTgtWorkSheetFileName = vlWorkSheetDir &"\" & vlWorkSheetFileName &"_" & vlFileDayAndTime & ".xlsm"

'copy chart to clipboard
ActiveDocument.GetSheetObject("CH689").CopyTableToClipboard True
SET xlApp = CreateObject("EXCEL.APPLICATION")
'SET xlAppConfigList = CreateObject("EXCEL.APPLICATION") 'create confiration list app object

Set xlWorkbook = xlApp.Workbooks.open (vTemplFileName)

xlApp.Run "Macro2"

xlWorkbook.SaveAs(vTgtWorkSheetFileName)
Set xlWorksheet = xlWorkbook.Worksheets(1)
xlWorksheet.Activate
xlWorksheet.Range("A1").Select
'Msgbox "Ready to Import"
xlWorkSheet.Paste xlWorksheet.Range("A1")

xlApp.Run "SetListofValues"

xlApp.Run "Macro1" ' Macro1

'xlApp.Run "Macro3" ' Macro3

xlApp.Run "Macro3"
xlWorkBook.Save
xlWorkBook.Close
xlApp.quit
xlApp = Empty
End Sub

topic Inconsistency in export to .xlsm file using template file Works for one user, does not for another. in QlikView

Inconsistency in export to .xlsm file using template file Works for one user, does not for another.