Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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