Форум программистов, компьютерный форум, киберфорум
C# для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
3 / 3 / 3
Регистрация: 17.09.2011
Сообщений: 73

При создание листа Excle выводит исключение

23.02.2015, 20:13. Показов 1089. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вечер добрый)
Пытаюсь создать программно лист в Excel выводит исключение:
Исключения из hresult: 0x008A03EC
Программный код:
Кликните здесь для просмотра всего текста

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
  private Excel.Application exBase = new Excel.Application();
        private Excel.Workbook excBook;
        private Excel.Worksheet excSheet;
        private Excel.Range excCells;
        public string FileName = System.Windows.Forms.Application.StartupPath + "\\" + "Base" + ".xlsx";
       ....
       ....
 
         public void OpenExc() //открываем привязываем
        {
            excBook = exBase.Workbooks.Open(FileName, Type.Missing, false);
        }
 
        public void GetExc() // заполняем датагрид
        {
            OpenExc();
            int i, j;
            excSheet = (Excel.Worksheet)excBook.Sheets[1]; ;
            dataGridView1.ColumnCount = excSheet.UsedRange.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Column;
            dataGridView1.RowCount = excSheet.UsedRange.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row - 1;
            for (i = 0; i < dataGridView1.RowCount; i++)
                for (j = 0; j < dataGridView1.ColumnCount; j++)
                {
                    excCells = (Excel.Range)excSheet.Cells[i + 2, j + 1];
                    this.dataGridView1[j, i].Value = excCells.Text.ToString();
                }
        }
 
        public void CloseExc() //закрытие
        {
            excBook.Saved = true;
            excBook.Save();
            excBook.Close();
            exBase.Quit();
            excBook = null;
            exBase = null;
            excSheet = null;
            FileName = null;
            GC.Collect();
        }
 
        public void WorkTime() // здесь мы проверяем есть ли нужный лист, если нет то создаем 
        {
            string Mon;
            DateTime Tm = DateTime.Now;
            Mon = Tm.Month.ToString();
             if (excBook.Sheets.Count >= (int.Parse(Mon) + 1)) //1 листе данные, так что плюсуем на 1
             {
                 excSheet = (Excel.Worksheet)excBook.Sheets[int.Parse(Mon)+1];
                 Row=excSheet.UsedRange.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row;
                 excSheet.Cells[Row,1] = "Время работы";
                 excSheet.Cells[Row, 2] = tEnt.Tm.ToShortTimeString() + " /" + Tm.ToShortTimeString();
                 excSheet.Cells[Row, 3] ="ID: "+ tEnt.Nam;
             }
             else
             {
                 try
                 {
                     excBook.Sheets.Add(Type.Missing,2,Type.Missing,Type.Missing);
                     excSheet = (Excel.Worksheet)excBook.Sheets[int.Parse(Mon) + 1]; // ошибка здесь 
                     excSheet.Cells[Row, 1] = "Test";
                 }
                 catch (Exception ex)
                 {
                     MessageBox.Show(ex.Message, "test");
                 }
             }
        }
  private void Search_FormClosing(object sender, FormClosingEventArgs e) //WorkTime выполняется тут
        {
            if (MessageBox.Show("Закрыть? ", "Message", MessageBoxButtons.YesNo) == System.Windows.Forms.DialogResult.No)
                e.Cancel = true;
            else
            {
                WorkTime();
                CloseExc();
                tEnt.Show();
                e.Cancel = false;
            }
        }
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.02.2015, 20:13
Ответы с готовыми решениями:

Макрос на создание листа и перенос данных с предыдущего листа
Помогите пожалуйста, мне нужен макрос на создание листа и перенос данных с предыдущего листа. Есть лист, на нем есть данные, они...

Заполнение 2 листа данными из 3-го листа при событии на 1-м листе
Уважаемые форумчане, добрый вечер! Бьюсь челом и молю о помощи с решением задачи! Задача очень интересная, но для моих знаний в...

При создании нового листа произвести проверку на существование вводимого имени листа в текущей книге EXCEL
При создании нового листа, произвести проверку на существование вводимого имени листа в текущей книге EXCEL и если такой лист существует то...

1
3 / 3 / 3
Регистрация: 17.09.2011
Сообщений: 73
23.02.2015, 20:23  [ТС]
ИМХО
хм... а может убрать часть кода
C#
1
 excSheet = (Excel.Worksheet)excBook.Sheets[int.Parse(Mon) + 1]; // ошибка здесь
?

я просто до этого реализовывал в дэлфи и там надо было обращаться к листу после создание, а в шарпе перешел неделю 2 назад, так что шибко не разбираюсь(, да в инет перерыл и как там было так и реализовывал.

Добавлено через 2 минуты
ncon
Ох... просто все это переделывать, гемор)), к тому же это только часть кода, а там программный код с экселем не мало))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
23.02.2015, 20:23
Помогаю со студенческими работами здесь

Исключение EOleError. Как перехватить при удалении записи это исключение ?
Добрый день, Господа. Связал ключем справочник с майн-таблицей на уровне СУБД MySQL. При удалении из справочника записи связанной с...

написание формул в excle
Y=3sin(2Пиx)cos(пиx)-cos^2(3пиx) z=2cos^2(2пиx)-3sin(3пиx)

Сохранение в Excle файл
//Сохранить ToolStrip private void toolStripButtonSave_Click(object sender, EventArgs e) { ...

Приложение-клиент выводит последнее исключение try
Datagramm Socket Server Application java.net.BindException: Адрес уже используется (Bind failed) Press &lt;Enter&gt; to terminate...

Создание функции, которая выводит в алфавитном порядке выпадающий список-подсказок стран при вводе первой буквы
Написал код, который из массива стран, выводит в алфавитном порядке выпадающий из инпута список-подсказок стран при вводе первой буквы в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Вывод данных через динамический список в справочнике
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru