«Невозможно установить свойство NumberFormat класса Range»

Этот код работает целую вечность. Я подумал, может быть, я случайно нажал клавишу, но я не могу ее видеть. Я вдруг получаю ошибку:

Unable to set the NumberFormat property of the Range class

в приведенном ниже коде:

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
 Siddharth Rout29 мая 2012 г., 16:55
Также какова ценностьy , k, x, j в момент ошибки?
 Siddharth Rout29 мая 2012 г., 17:11
 Siddharth Rout29 мая 2012 г., 16:57
Защищен ли ваш лист?
 Siddharth Rout29 мая 2012 г., 17:03
Вы проверили, защищен ли он?
 assylias29 мая 2012 г., 16:54
Вы проверили значениеTempValue когда вы получите эту ошибку? Строка, где вы получаете свою ошибку, выглядит хорошо.

Ответы на вопрос(1)

Решение Вопроса

Проблема, обнаруженная в чате, заключалась в том, что рабочая книга имела более 64 000 форматов, из-за которых пользователь получал & quot;Too many different cell formats& Quot; сообщение об ошибке в Excel

Решение

Topic: You receive a "Too many different cell formats" error message in Excel

Link: http://support.microsoft.com/kb/213904

QUOTE from the above link

In Microsoft Excel 2007/2010 files may produce the following error message;

Excel found unreadable content in the file

This problem occurs when the workbook contains more than approximately 4,000 different combinations of cell formats in Excel 2003 or 64,000 in Excel 2007 and higher.

Решение, упомянутое в ссылке, состоит в том, чтобы загрузить и запуститьXLStyesTool

 30 мая 2012 г., 00:17
+1 хорошая поддержка!

Ваш ответ на вопрос