maiolock.blogg.se

MSaveWorkbook.Sheets(activeSheetIndex).

MSaveWorkbook.Sheets(i).Name = sheetNames(i) How to Create a Tab-Delimited Text File from the Excel File. SheetNames(i) = pWorkbookToBeSaved.Sheets(i).Name and database systems may offer the capability to export data directly into this format. ReDim Preserve sheetNames(1 To i) As String PWorkbookToBeSaved.Sheets(i).Copy After:=mSaveWorkbook.Sheets() 'note: sheet names will be 'Sheet1 (2)' in copy otherwise ifĪctiveSheetIndex = įor i = 1 To If pFileFormat = xlOpenXMLWorkbookMacroEnabled Then Private Function mySaveCopyAs(pWorkbookToBeSaved As Workbook, pNewFileName As String, pFileFormat As XlFileFormat) As Boolean MySaveCopyAs ThisWorkbook, "C:\Desktop\Test\21855 EZ-28 Body.txt", xlTextWindows What do you think it's giving me a different output on the SPC Software? The problem w/ Code 2 it doesn't printout just the number data on B13:P112, I have to delete the output data results from A1:A112 and A1:I112 of the Excel file and only leave the number data. The output on the SPC Software is different from Code 1 (your code) from Code 2 below, see attached. Thank you Don!! I use the output text file as a buffer file on a 3rd party SPC Software.