Из буфера обмена скопировать в Excel

@zagmysa · Регистрация: 21.11.2014

Студворк — интернет-сервис помощи студентам

Добрый день! помогите пож-та решить проблему, не знаю как скопировать данные из буфера в столбец excel.
данные из richTextBox1 помещаются в буфер, далее мне нужно его скопировать в столбец "А" excel:

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
            Clipboard.Clear();//очистка буфера           
            Clipboard.SetText(richTextBox1.Text); // скопировал текст в буфер
        
        Excel.Application ObjExcel = new Excel.Application();
        Excel.Workbook ObjWorkBook;
        Excel.Worksheet ObjWorkSheet;
        Excel.Range excelcells;
 
            ObjWorkBook = ObjExcel.Workbooks.Add(System.Reflection.Missing.Value);
            //создаю книгу excel
            ObjWorkSheet = (Microsoft.Office.Interop.Excel.Worksheet)ObjWorkBook.Sheets[1];
 
            ObjExcel.Visible = true;
            ObjExcel.UserControl = true;
         
            excelcells = ObjWorkSheet.get_Range("A1", Type.Missing);
            ...

@Pavel55 · 24.06.2017, 18:37

zagmysa, попробуйте так. У меня получилось

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
            Clipboard.Clear();//очистка буфера           
            Clipboard.SetText(richTextBox1.Text); // скопировал текст в буфер
 
            Excel.Application ObjExcel = new Excel.Application();
            Excel.Workbook ObjWorkBook;
            Excel.Worksheet ObjWorkSheet;
            Excel.Range excelcells;
 
            ObjWorkBook = ObjExcel.Workbooks.Add();            
            ObjWorkSheet = ObjWorkBook.Sheets[1];
 
            ObjWorkSheet.Paste(); //вставка данных из буфера
            
            ObjExcel.Visible = true;
            //excelcells = ObjWorkSheet.Range["A1"];

P.S. Пишите без всяких System.Reflection.Missing.Value и Type.Missing, мне кажется и без них всё прекрасно работает. Мой код выше я потестировал в Студии и никаких ошибок не выдавало. Открывался Excel и в ячейку A1 вставлялся текст

@zagmysa · 25.06.2017, 10:14 **[ТС]**

Спасибо за отклик!!! реально помогло!!!
Можешь еще с одним моментов помочь, пож-та!
далее мне нужно в столбец С поставить такую формулу
= ЗНАЧЕН(ЗАМЕНИТЬ(B1; НАЙТИ("."; B1); 1; ","))
заменить нужно точку на запятую.

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Книга.
            ObjWorkBook = ObjExcel.Workbooks.Add();
            //Таблица.
            ObjWorkSheet = ObjWorkBook.Sheets[1];
            ObjWorkSheet.Paste(); //вставка данных из буфера
            ObjExcel.Visible = true;
            ObjExcel.UserControl = true;
 
            string t = "'.'";  //точка
            string z = "','";  //запятая
 
            int n = lines.Length;                  
            for (int i = 0; i < n; i++)
            {
               //=ПСТР(A1;30;20) 
                ObjWorkSheet.Cells[i + 1, 2] = "= MID(A" + (i + 1) + ",30,20)";    
                ////= ЗНАЧЕН(ЗАМЕНИТЬ(B1; НАЙТИ("."; B1); 1; ","))          
                ObjWorkSheet.Cells[i + 1, 3] = "= VALUE(REPLACE(B1; SEARCH(" + t +"; B" + (i + 1) + "); 1;" + z + "))";                       
            }

пришлось даже создать переменную t и z для точки и запятой. а то если поставить через "." ; "," оно не разделяет код.
но все равно выходит ошибка

Необработанное исключение типа "System.Runtime.InteropServices.COMExcep tion" в mscorlib.dll
Дополнительные сведения: Исключение из HRESULT: 0x800A03EC

@Pavel55 · 25.06.2017, 22:43

zagmysa, попробуйте так.

Смысл такой - не нужно циклом вставлять формулу в ячейки. Вам нужно указать диапазон ячеек, в который вы вставляете формулу. Excel сам за вас пересчитает новые адреса в вашей формуле.
Если у вас есть данные в столбце А, то раскомментируйте (уберите //) в первой строке моего кода, а вторую строку удалите. Этой строкой вы найдёте последнюю заполненную ячейку в столбце А с данными на листе.
Я заменил вашу формулу = ЗНАЧЕН(ЗАМЕНИТЬ(B1; НАЙТИ("."; B1); 1; ",")) на =ЗНАЧЕН(ПОДСТАВИТЬ(B1; "."; ","))
Я потестировал, у меня формулы вставляются на лист и точка заменяется на запятую

C#
1
2
3
4
5
6
7
            //int iLastRow = ObjWorkSheet.Cells[ObjWorkSheet.Rows.Count, "A"].End[Excel.XlDirection.xlUp].Row;  //последняя заполненная строка в столбце А
            int iLastRow = 100; //я для примера беру число 100 - 100 строк      
            
            //=ПСТР(A1;30;20) 
            ObjWorkSheet.Range["B1:B" + iLastRow].Formula = "= MID(A1, 30, 20)";
            //=ЗНАЧЕН(ПОДСТАВИТЬ(B1; "."; ","))
            ObjWorkSheet.Range["C1:C" + iLastRow].Formula = @"=VALUE(SUBSTITUTE(B1,""."", "",""))";

@zagmysa · 26.06.2017, 14:46 **[ТС]**

Спасибо большое!!! все работает! =)))

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@zagmysa 0 / 0 / 0 Регистрация: 21.11.2014 Сообщений: 52
	26.06.2017, 14:46 [ТС]
	Спасибо большое!!! все работает! =))) 0

Из буфера обмена скопировать в Excel

Решение