Some Notes on the Machines

Something very like a best practices analyzer / BPA for Office, 32-bit and 64-bit, versions 2007 and newer, both MSI and click-to-run:

https://www.microsoft.com/en-us/download/details.aspx?id=36852

There are many situations in which a recent version of Excel will report that there is not enough available memory or disk space, where there very clearly is. To knock this one out, go to File menu and Options, click Trust Center on the left, click Trust Center Settings… on the right, and then Protected View on the left. Uncheck everything in there, and OK all the way out. Close Excel and try it again. Problem eliminated.

From the excellent Jerry Beaucaire; VBA, for use inside an Excel module.

https://sites.google.com/a/madrocketscientist.com/jerrybeaucaires-excelassistant/merge-functions/csvs-to-sheets

Sub ImportCSVs()
'Author:    Jerry Beaucaire
'Date:      8/16/2010
'Summary:   Import all CSV files from a folder into separate sheets
'           named for the CSV filenames
'
'Update:    2/8/2013   Macro replaces existing sheets if they already exist in master workbook
'Modded:    12/10/14   Minor edits (Jonathan Brickman)

Dim fPath       As String
Dim fCSV        As String
Dim SheetName   As String
Dim wbCSV       As Workbook
Dim wbMST       As Workbook

Set wbMST = ThisWorkbook
fPath = "X:\PATH-TO-CSVs\"       'path to CSV files, include the final \
Application.ScreenUpdating = False  'speed up macro
Application.DisplayAlerts = False   'no error messages, take default answers
fCSV = Dir(fPath & "*.csv")         'start the CSV file listing

    On Error Resume Next
    Do While Len(fCSV) > 0
        SheetName = Left(fCSV, Len(fCSV) - 4)   ' Trim .CSV from filename, make sheet name
        Set wbCSV = Workbooks.Open(fPath & fCSV)                    'open a CSV file
        wbMST.Sheets(ActiveSheet.Name).Delete                       'avoid replication, delete sheet
        ActiveSheet.Move After:=wbMST.Sheets(wbMST.Sheets.Count)    'move new sheet into Mstr
        ActiveSheet.Name = SheetName
        Columns.AutoFit             		'clean up display
        fCSV = Dir                  		'ready next CSV
    Loop

Application.ScreenUpdating = True
Set wbCSV = Nothing
End Sub

To get current keys, this is excellent:

http://www.klinzmann.name/licensecrawler.htm

Here’s a command line which works on Microsoft Office 2013 32-bit, on a 64-bit system, to get the key identifier (last set of characters):

cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /dstatus

The above can work in a CMD, even a remote CMD. The script does a lot of different things; for a list on the above system, try this, from the console only:

cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" 

This is a situation in which Office 2013, either 32-bit or 64-bit, will not run on any install. The way to handle it, is to disable “hardware acceleration” by registry entry. Go here:

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Common

then create key Graphics, and then in that key a DWORD DisableHardwareAcceleration, set value to 1 for disable.