"无法设置Range类的NumberFormat属性"

Question

这段代码已经工作了很长时间.我想也许我意外地按了一把钥匙,但我似乎无法看到它.我突然得到错误:

无法设置Range类的NumberFormat属性

在下面的代码中:

Worksheets("Sheet1").Cells(y + k, x + j).Select
TempValue = Worksheets("Sheet1").Cells(y + k, x + j).Value
Worksheets("Sheet1").Cells(y + k, x + j).NumberFormat = "#,##0" //ERROR HERE
Worksheets("Sheet1").Cells(y + k, x + j).Value = TempValue

Answer 1

在Chat中发现的问题是工作簿有超过64,000种格式,因为用户在Excel中收到" Too many different cells formats "错误消息

解

主题:您在Excel中收到"太多不同的单元格格式"错误消息

链接:http://support.microsoft.com/kb/213904

从上面的链接中引用

在Microsoft Excel 2007/2010文件中可能会生成以下错误消息;

Excel在文件中找到了不可读的内容

当工作簿在Excel 2003中包含超过大约4,000种不同的单元格格式组合或在Excel 2007及更高版本中包含64,000时,会出现此问题.

链接中提到的解决方案是下载并运行XLStyesTool