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

我目前正在使用一个VBAmacros，我在这里find堆栈溢出。 问题是，当我运行它将所有的数据保存到一个单独的Excel表，但是当我打开它显示为“行话”换句话说不可读的types。 这是“保存代码”

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

我正在运行代码的方式是，它将我的Excel表单分成不同的电子表格，每行250个。一切正常，但是当我打开保存的文档时，它说Excel文件格式是不可接受的。 然后我尝试导入它，我得到一个错误。 这里是它在我的屏幕上显示的快照。 这里还有文件名：built.list \ test.xls39

Answer 1

您的工作簿计数器始终以数字结尾，Windows和Excel使用文件扩展名来确定文件types，因此“.xls39”文件无法识别。 尝试：

     wb.SaveAs _
    文件名：= ThisWorkbook.Path＆“\ test”＆WorkbookCounter＆“.xls”_
    的FileFormat：= XlFileFormat.xlExcel8

 '使用xlOpenXMLWorkbook .xlsx格式

（使用空格后跟下划线分隔VBA中的行）

或者确保WorkbookCounter以.xls结尾，而不是数字。

（编辑：对于其他格式，请查看Excel VBA编辑器中的参考对话框）