Convert To Xlsm

Pretty much anything you can dream in Excel is possible one way or another. Here is some sample code that I tested in Excel 213. It will create a new workbook save it as .xlsm add some data to a worksheet in that workbook add a regular code module and put some code in it. Pay particular note to thements at the beginning of the code block as my code won't work if you don't set a reference and trust access to VBA project as described in thosements.n 'Forplete discussion of Programming the VBA Editor see Chip Pearson's Programming In The VBA Editor code 'Must add reference for VBA Extensibility. _ code In VBA IDE open menu item. _ code Select Microsoft Visual Basic for Applications Extensibility 5.3 then check its box code 'Must Trust Access to Visual Basic project. _ code Open the Settings dialog from the ribbon _ code Check the box for Trust access to the VBA project object model code Sub Master() code Dim wbNew As Workbook wb As Workbook code Dim flPath As String flName As String code Dim vbComp As VBComponent code Set wb = ActiveWorkbook code flPath = code flName = code Set wbNew = NewXLSM(flPath flName) code AddData (1) code Set vbComp = CreateModule(wbNew Module1) code AddCode vbComp code End Sub code code Function NewXLSM(sPath As String flName As String) As Workbook code 'Creates a new workbook then saves it as .xlsm to a designated path and file name code Dim wb As Workbook code Dim flPathName As String code Set wb = code flPathName = sPath & IIf(Right(sPath 1) = ) & flName code If LCase(Right(flPathName 5)) < .xlsm Then flPathName = flPathName & .xlsm code flPathName FileFormat=52 'Save as .xlsm code Set NewXLSM = wb code End Function code code Sub AddCode(vbMod As VBComponent) code Dim sCode As String code sCode = Sub HelloWorld() & vbLf & MsgBox Hello World & vbLf & End Sub code sCode code End Sub code code Sub AddData(ws As Worksheet) code 'Shows three different ways to add data to a worksheet code With ws code .Range(A1).Value = Some data code . = 3 code .Cells(3 1).Formula = =A2+4 code End With code End Sub code code Function CreateModule(wb As Workbook ModuleName As String) As VBComponent code Dim vbComp As VBComponent code With code Set vbComp = .(vbext_ct_StdModule) code Page on = Module3 'ModuleName code Set CreateModule = vbComp code End With code End Function code

Let say you want to delete every row where there nothing in Column A. (I know italic we could just filter on blanks and delete rows but were automating here.) Public Sub nukeBlankishRows() code ' In the active worksheet delete every row code ' where Column A is empty. code Dim xlS As ' active worksheet code Dim RN As Long ' current row number code Dim lastRow As Long ' last row code code Set xlS = ActiveSheet code code ' The worksheet's usedRange does not necessarily begin in Row #1. code ' tells us where it starts code ' tells us how many there are code code lastRow = + - 1 code code ' right then for every row code code RN = 1 code code While RN <= lastRow code code ' if there's nothing in the leftmost cell code code If (RN 1).Text = Then code code (RN).Deletet ' nuke the row code code lastRow = lastRow - 1 ' and there's 1 less row now code code Else code code RN = RN + 1 ' NEXT! code code End If code code Wend code code MsgBox Done code code End Sub code

A google search yielded these results You can use these two resources to do so Convert XLSM to XLSX s and then Convert your XLSX file to HTML now I hope this helps. Cheers mate

I suggest the following tactics Reboot yourputer and try opening the file again. Launch Excel in Safe mode (no Add-ins or VBA code) by using the mand line option. You do this with the Windows SystemRun menu item by typing CProgram Files (x86)Microsoft Note that your copy of Excel may be located in a different place so verify the path in Windows Explorer before you try it. Once Excel launches then use its FileOpen menu item to open your file. If the file opens quickly when you do this your file may have slow running VBA code. If you do get your file open the next step is to figure out why it takes so long. Do the scrollbars extend far beyond your data? If so delete the blank rows and columns below and to the right of your data. Save the file. Close it. Reopen the file. Do you use many thousands of volatile functions in worksheet formulas? These include INDIRECT RAND TODAY NOW OFFSET and INFO. Volatile formulas recalculate every time any change is made to any open workbook. There are workarounds available to replace each of these volatile functions with non-volatile onesjust ask. Does your file have thousands of cells using Conditional Formatting? This will slow Excel down significantly so consider removing the Conditional Formatting with the HomeConditional FormattingClear RulesClear Rules from Entire Sheet menu item.

Google Excel SpellNumber. The first result is a Microsoft KnowledgeBase article with a macro that you can copy. In Excel follow these steps save your workbook with an .xlsm or .xlsb extension from the VBA menus select Insert Module alt+q to close vba