Excel VS 1C
13.05.2004
17:23
#1
Мне необходимо сделать следующее:
1.Создать новый эксель-файл средствами 1с.
2.В отредактированном файле отсортировать строки по колонке.
Нород, прочитал кучу форумов, а ответов на эти вопросы не нашел. Подскажите плиз!
И вообще давайте писать сюда, кто что умеет делать с екселем из одинэсины. Если такая тема где-то уже есть, киньте ссылочку, плиззз
1.Создать новый эксель-файл средствами 1с.
2.В отредактированном файле отсортировать строки по колонке.
Нород, прочитал кучу форумов, а ответов на эти вопросы не нашел. Подскажите плиз!
И вообще давайте писать сюда, кто что умеет делать с екселем из одинэсины. Если такая тема где-то уже есть, киньте ссылочку, плиззз
13.05.2004
20:48
#3
"Про сортировку там ни че не написано.
У меня еще вопрос появился:
Пишу:
маЕксель = СоздатьОбъект("Excel.Application");
аутЕксель = СоздатьОбъект("Excel.Application");
...
маЕксель.Application.Workbooks.Open("c:\data.xls");
...
аутЕксель.Application.Workbooks.Add();
...
аутЕксель.ActiveWorkbook.SaveAs("c:\res.xls");
аутЕксель.ActiveWorkbook.Close();
...
маЕксель.ActiveWorkbook.Close();
Открываю res.xls, а в нем содержимое файла data.xls. Почему?
Можно ли одновременно обрабатывать два файла .XLS из 1С? Если да, то как переключаться между открытыми книгами и листами одной книги?
Помогите пожалуйста, а то завтра одним неудавшимся программером станет меньше! "
У меня еще вопрос появился:
Пишу:
маЕксель = СоздатьОбъект("Excel.Application");
аутЕксель = СоздатьОбъект("Excel.Application");
...
маЕксель.Application.Workbooks.Open("c:\data.xls");
...
аутЕксель.Application.Workbooks.Add();
...
аутЕксель.ActiveWorkbook.SaveAs("c:\res.xls");
аутЕксель.ActiveWorkbook.Close();
...
маЕксель.ActiveWorkbook.Close();
Открываю res.xls, а в нем содержимое файла data.xls. Почему?
Можно ли одновременно обрабатывать два файла .XLS из 1С? Если да, то как переключаться между открытыми книгами и листами одной книги?
Помогите пожалуйста, а то завтра одним неудавшимся программером станет меньше! "
14.05.2004
06:39
#4
Зачем все усложнять? Существует в дополнительных возможностях (или во внешних обработках и отчетах) функция конвертации данных из 1С в Excel. Вы формируете отчет в 1С, затем сохраняете его в формате xls, открываете и работайте на здоровье. В екселовском формате есть функция сортировки данных (кнопка стрелочка А-Я) - сортируйте как хотите. Чтобы одновременно работать в нескольких файлах поставьте в параметрах екселя галочку у сноски "Окна на панели задач". Чтобы все окна сразу видеть - размеры окон уменьшите и разместите на экране, как Вам удобно. Это все просто. Или Вы еще что-то хотите?
15.05.2004
08:48
#6
А про сортироку там ничего написано и быть не может...
Сортировка это метод экселя, так что надо читать руководство по VB
Сортировка это метод экселя, так что надо читать руководство по VB
24.05.2004
17:38
#7
неужели кто-то кроме Вас способен Вас понять????
По тому что вы написали, ответ птички, а если что-то иное нужно, то про иное и спросите...
Средствами 1с - это что за средства? Программными что ли? VB или языком 1С?
Зайдите в Excel, включите макросы, проделайте все, что сказала Птичка клавишно, посмотрите код
По тому что вы написали, ответ птички, а если что-то иное нужно, то про иное и спросите...
Средствами 1с - это что за средства? Программными что ли? VB или языком 1С?
Зайдите в Excel, включите макросы, проделайте все, что сказала Птичка клавишно, посмотрите код
26.05.2004
12:25
#8
сортировка данных";"// --- создание, открытие, работа с двумя файлами ---
// Открываем существующую книгу data.xls,
// создаем новую книгу, в первую ячейку Листа1 которой записываем
// содержимое первой ячейки Листа1 книги data.xls,
// сохраняем только что созданную книгу в файле res.xls,
// закрываем обе книги.
Excel = СоздатьОбъект("Excel.Application");
Excel.Visible=1;
РабКнига1 = Excel.Workbooks.Add();
РабКнига2 = Excel.Workbooks.Open("data");
ЛистКниги1 = РабКнига1.Worksheets("Лист1");
ЛистКниги2 = РабКнига2.Worksheets("Лист1");
ЛистКниги1.Cells(1,1).Value = ЛистКниги2.Cells(1,1).Value;
РабКнига1.SaveAs("res");
РабКнига1.Close();
РабКнига2.Close();
// --- сортировка ---
РабКнига = Excel.Workbooks.Open("МойФайл");
Лист = РабКнига.Worksheets("Лист1");
Key1 = Лист.Range("A1"); // сортировать по столбцу A
Order1 = 1; // по возрастанию
Лист.Range("A1:B8").Sort(Key1,Order1);"
// Открываем существующую книгу data.xls,
// создаем новую книгу, в первую ячейку Листа1 которой записываем
// содержимое первой ячейки Листа1 книги data.xls,
// сохраняем только что созданную книгу в файле res.xls,
// закрываем обе книги.
Excel = СоздатьОбъект("Excel.Application");
Excel.Visible=1;
РабКнига1 = Excel.Workbooks.Add();
РабКнига2 = Excel.Workbooks.Open("data");
ЛистКниги1 = РабКнига1.Worksheets("Лист1");
ЛистКниги2 = РабКнига2.Worksheets("Лист1");
ЛистКниги1.Cells(1,1).Value = ЛистКниги2.Cells(1,1).Value;
РабКнига1.SaveAs("res");
РабКнига1.Close();
РабКнига2.Close();
// --- сортировка ---
РабКнига = Excel.Workbooks.Open("МойФайл");
Лист = РабКнига.Worksheets("Лист1");
Key1 = Лист.Range("A1"); // сортировать по столбцу A
Order1 = 1; // по возрастанию
Лист.Range("A1:B8").Sort(Key1,Order1);"
Читают тему
(гостей: 1)