ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Вырезать из xls файла несколько строк
25 сообщений из 26, страница 1 из 2
  1  все
Вырезать из xls файла несколько строк
    #37459747
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
Добрый день!

Нужно как-то из большого xls файла вырезать несколько строк и с таким же форматированием вставить в другой. Подскажите, как?
Спасибо!
...
Рейтинг: 0 / 0
28.09.2011, 18:11
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37459757
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
Забыл, ЗУП 2.5
Платформа 8.2
...
Рейтинг: 0 / 0
28.09.2011, 18:14
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37459921
Программист 1с
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист 1с
Участник
Включите запись макроса. Сделайте действия. Посмотрите код макроса.
...
Рейтинг: 0 / 0
28.09.2011, 21:19
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460187
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zerro
Участник
Программист 1сВключите запись макроса. Сделайте действия. Посмотрите код макроса.
ага и потом как обычно
Excel=Новый COMОбъект("Excel.Application");
WorkSheets=Excel.WorkBooks;....
...
Рейтинг: 0 / 0
29.09.2011, 07:39
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460404
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
Все равно не совсем понимаю....
вот макрос

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Макрос4()
    Rows("12:25").Select
    Selection.Copy
    Workbooks.Add
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
End Sub

Selection.Copy это от какого объекта в 1С ?

Эксель = Новый COMОбъект("Excel.Application");
Книга = Эксель.WorkBooks.Open(ИмяФайла);
Лист = Книга.WorkSheets(1);

И как выполнить команду на VBA в 1С ? :(
...
Рейтинг: 0 / 0
29.09.2011, 10:55
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460456
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
это выбранный диапазон ячеек
...
Рейтинг: 0 / 0
29.09.2011, 11:13
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460507
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
да, хорошо.

но конструкция Эксель.Rows("12:25").SELECT;
не работает
...
Рейтинг: 0 / 0
29.09.2011, 11:30
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460520
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
Range("D6").Select

или работайте с cells вроде ?
...
Рейтинг: 0 / 0
29.09.2011, 11:34
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460528
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
букв нет у ячеек , можно через цифры
но я особо не помню
не каждый день делаешь же
хелп по эксель не смотрели?
поиск по форуму ?
на мисте вообще примеры лежат как работать с эксель
...
Рейтинг: 0 / 0
29.09.2011, 11:36
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460546
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
Мне надо определенный диапазон строк скопировать, вот в чем проблема :(
...
Рейтинг: 0 / 0
29.09.2011, 11:42
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460556
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
&НаКлиенте
Процедура ЗагрузитьИзExcel(Команда)

    xl = ПолучитьCOMОбъект(,"Excel.Application");
    ВсегоСтрок = xl.Cells.CurrentRegion.Rows.Count;
    ВсегоКолонок = xl.Cells.CurrentRegion.Columns.Count;
    
    Для row =  1  По ВсегоСтрок Цикл 
        стр=xl.Cells(row, 1 ).Value; 
        Сообщить(стр);
    КонецЦикла;

КонецПроцедуры
...
Рейтинг: 0 / 0
29.09.2011, 11:45
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460575
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
////////////////////////////////////////////////////////
Процедура Выгрузить_в_Excel()
    xl=СоздатьОбъект("Excel.Application");
    xl.Workbooks.Add(); //Добавляем новый документ
    xl.Visible= 1 ; //Делаем его видимым

    row= 1 ; //первая строка
    спр=СоздатьОбъект("Справочник.Контрагенты");
    спр.ВыбратьЭлементы();
    Пока спр.ПолучитьЭлемент() =  1  Цикл
        xl.Cells(row, 1 ).Value=спр.Код;
        xl.Cells(row, 2 ).Value=спр.Наименование;
        row=row+ 1 ;//переходим на следующую строку
    КонецЦикла;
КонецПроцедуры
...
Рейтинг: 0 / 0
29.09.2011, 11:51
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460808
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
Книга = Эксель.WorkBooks.Open(ИмяФайлаСЗПЛистами);

Лист = Книга.WorkSheets(1);

Лист.Activate();
Лист.Rows("12:25").Select();

НоваяКнига = Эксель.Workbooks.Add();
НовыйЛист = НоваяКнига.WorkSheets(1);
НовыйЛист.Activate();

Эксель.Selection.Insert();
НоваяКнига.SaveAs("C:\1С\test2.xls");

В итоге создается пустой файл test2.xls :( формата xlsx (по-видимому)
...
Рейтинг: 0 / 0
29.09.2011, 13:02
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460816
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
может не инсерт а пейст ?
...
Рейтинг: 0 / 0
29.09.2011, 13:03
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37460895
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
sWinTyz, вот где собака порылась!
забыл Эксель.Selection.Copy();
Теперь бы с форматированием разобраться, что бы было как в исходном документе.
...
Рейтинг: 0 / 0
29.09.2011, 13:24
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37467267
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
VBA:
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste

Никто не подскажет, как такое Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False в 1С можно реализовать?

Paste:=xlPasteColumnWidths,
Operation:=xlNone, _
SkipBlanks:=False,
Transpose:=False

Я так понимаю, это параметры?
...
Рейтинг: 0 / 0
04.10.2011, 15:00
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37467341
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zerro
Участник
RitDVBA:
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste

Никто не подскажет, как такое Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False в 1С можно реализовать?

Paste:=xlPasteColumnWidths,
Operation:=xlNone, _
SkipBlanks:=False,
Transpose:=False

Я так понимаю, это параметры?
весь код ВБА ты можешь реализовать в 1с.
ага и потом как обычно
Excel=Новый COMОбъект("Excel.Application");
WorkSheets=Excel.WorkBooks;.... - это строка обычный код ВБА. Любой можешь вставить
...
Рейтинг: 0 / 0
04.10.2011, 15:27
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37467471
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
а можно пример, как такое в 1С сделать:

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
...
Рейтинг: 0 / 0
04.10.2011, 16:16
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37468344
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zerro
Участник
RitDа можно пример, как такое в 1С сделать:

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

ну ты чего
Excel=Новый COMОбъект("Excel.Application");


Excel.SkipBlanks=False

Excel.Transpose=False
Везде спереди добавляешь ексел и все.. код 1с
...
Рейтинг: 0 / 0
05.10.2011, 07:03
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37468447
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
Zerro,
вот спасибо!
Буду пробовать! :)
...
Рейтинг: 0 / 0
05.10.2011, 09:55
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37468496
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
а xlNone поймет?
оно вроде в файле заголовков ххххх.h ?
...
Рейтинг: 0 / 0
05.10.2011, 10:15
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37468499
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
или макрос екселевский с собой таскать
...
Рейтинг: 0 / 0
05.10.2011, 10:16
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37468650
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
Excel.SkipBlanks=False -

{Форма.Форма.Форма(295)}: Поле объекта не обнаружено (SkipBlanks)
Эксель.SkipBlanks=False;
:(
...
Рейтинг: 0 / 0
05.10.2011, 11:16
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37468706
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zerro
Участник
RitDExcel.SkipBlanks=False -

{Форма.Форма.Форма(295)}: Поле объекта не обнаружено (SkipBlanks)
Эксель.SkipBlanks=False;
:(
а ексель точно подключился? покажи весь код с подключением
...
Рейтинг: 0 / 0
05.10.2011, 11:36
| Ответить | Цитировать | Написать  
Вырезать из xls файла несколько строк
    #37468881
RitD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RitD
Участник
Zerro,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Попытка
		Эксель = Новый COMОбъект("Excel.Application");
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;

	Книга = Эксель.WorkBooks.Open(ИмяФайла);
	
	Лист = Книга.WorkSheets(1);
	Лист.Activate();
//-----------------разрыв----------------------  
      Лист.Rows(СтрокаДиапазона).Select();
//-----------------разрыв----------------------  

	НоваяКнига =  Эксель.Workbooks.Add();
	НовыйЛист  = НоваяКнига.WorkSheets(1);
	НовыйЛист.Activate();
	//НовыйЛист.SkipBlanks=False;
        //Эксель.Paste ="xlPasteColumnWidths";
	Эксель.Selection.Insert();
	
	ПолноеНазваниеФайла =ДиректорияДляСохранения+"\"+НазваниеФайла+"xlsx"; 
	НоваяКнига.SaveAs(ПолноеНазваниеФайла); 
	НоваяКнига.Close();
...
Рейтинг: 0 / 0
05.10.2011, 12:39
| Ответить | Цитировать | Написать  
25 сообщений из 26, страница 1 из 2
  1  все
Форумы / 1С [игнор отключен] [закрыт для гостей] / Вырезать из xls файла несколько строк
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]