Excel VBA代码导致我的工作表显示为行话

Question

I currently am using a VBA macro that I found here on stack over flow. The problem is when I run it it saves all the data into a separate excel sheet but when i open it it appears as "jargon" in other words unreadable type. This is the "Save code"

'Save the new workbook, and close it
wb.SaveAs ThisWorkbook.Path & "\test" & WorkbookCounter
wb.Close

The way I am currently running the code is that it separates my excel sheets into different spread sheets by rows of 250. Everything works but when I open the saved documents it says that this file format is unacceptable to Excel. Then I try importing it and I get an error. Here is a snap shot of the way it appears in my screen. Also here is the file name: built.list\\test.xls39

Answer 1

Your workbook counter always ends in a number, Windows and Excel use the file extension to determine file-type, so an '.xls39' file is unrecognisable. Try:

wb.SaveAs _
    Filename:=ThisWorkbook.Path & "\test" & WorkbookCounter & ".xls" _
    FileFormat:=XlFileFormat.xlExcel8

'Use xlOpenXMLWorkbook for the .xlsx format

(Use space followed by underscore to separate lines in VBA)

Or make sure WorkbookCounter ends in .xls and not a number.

(Edit: For other formats, please look in the References dialog in Excel VBA Editor)