Форум программистов CODEBY.NET Хостинг в Беларуси — Active Technologies

Разработка бизнес сайтов

Нужны клиенты? Тогда сюда быстрее...
X   Сообщение сайта
(Сообщение закроется через 2 секунды)

Здравствуйте, гость ( Вход | Регистрация )




> Поле табличного документа
PsyTech
Вставить ник
сообщение 3:05:2008, 09:40
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 14
Регистрация: 5:01:2008
Пользователь №: 14 606



Репутация: - 0 +


В поле табличного документа загружаю файл Excel.
Делее нужно выбирать нужные ячейки из нужных колонок в поле табличного документа. Это возможно - обратиться к определенной ячейки?
Например как в Excel: ExcelЯчейка = ExcelЛист.Cells(Строка, Колонка);

Заранее спасибо.
Подняться вверх 
 
Сообщение #1
 
Новая тема 
Ответов (1 - 5)
vbs
Вставить ник
сообщение 3:05:2008, 11:13
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 46
Регистрация: 18:02:2007
Пользователь №: 9 305



Репутация: - 0 +


Вот пример кода, который считывает из файла Excel данные и заполняет табличную часть некоего документа

ExcelApp = CreateObject("Excel.Application");
WorkBooks = ExcelApp.WorkBooks;
WorkBook = WorkBooks.Open(ИмяФайла);
Lists = WorkBook.Sheets.Count();
for k = 1 to Lists do
Name = WorkBook.Sheets(k).Name();
ShList.AddValue(TrimAll(Name),TrimAll(Name));
enddo;

if ShList.ChooseValue(S,"выберите лист таблицы ""Excel""",N,,) = 0 then
DoMessageBox("Не выбран лист таблицы ""Excel"" !");
Goto ~Exit;
else
ShList.GetValue(N,NL);
endif;

Sheet = WorkBook.WorkSheets();
WorkBook.Sheets(TrimAll(NL)).Activate();

Counter = 0;
First = 5; Last = 9999;
Doc = CreateObject("Document.ВидДокумента");
for k = First to Last do

Counter = Counter + 1;
Status("Обработано строк "+Counter);
XCell = ExcelApp.Cells(k,1).Value;
if EmptyValue(XCell) = 1 then
k = 9999; Break
endif;
Doc.NewLine();
// а потом, к примеру, так
Doc.Количество = ExcelApp.Cells(k,2).Value;
Doc.Сумма = ExcelApp.Cells(k,3).Value;
enddo;
Doc.write();
~Exit :
ExcelApp.ActiveWorkbook.Close();
ExcelApp.Quit()



Сообщение отредактировал vbs - 3:05:2008, 11:23
Подняться вверх 
 
Сообщение #2
Allexei
Вставить ник
сообщение 3:05:2008, 11:22
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 6
Регистрация: 2:05:2008
Пользователь №: 16 998
Специализация: Програмист



Репутация: - 0 +


Спр= СоздатьОбект("Excel.Application");//Ну тут все понятно
РабКника= Excel.Workbooks; //Тут тож
РабКника.Open(ИмяФайла,0,1); //ИмяФайла- католог+ имя файла
Cell= Excel.Cells(y,x); //В Cell передаем "указатель" на у,х ячейку
Возврат Cell.Value; //и возврашяем куданить ее значение.
Подняться вверх 
 
Сообщение #3
Саид
Вставить ник
сообщение 5:05:2008, 12:28
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 4
Регистрация: 6:12:2007
Из: Р.Д., г. Махачкала
Пользователь №: 14 080
Специализация: Информатик экономист



Репутация: - 0 +


В документе если тебе нужна определенная строка то для этого нужна команда ПолучитьСтрокуПоНомеру("НомерСтроки"); а далее просто выбераешь нужный столбец

Да если надо по анологии Excel тогда
УстановитьЗначение(<?>,,);
Синтаксис:
УстановитьЗначение(<Строка>,<Колонка>,<Знач>)
Назначение:
Установить значение ячейки таблицы значений.
Параметры:
<Строка> - номер строки.
<Колонка> - номер или идентификатор колонки.
<Знач> - устанавливаемое значение в ячейке таблицы.
Подняться вверх 
 
Сообщение #4
Isabela
Вставить ник
сообщение 5:05:2008, 14:53
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 86
Регистрация: 19:05:2007
Пользователь №: 10 950
Специализация: Программист 1С



Репутация: - 2 +


Саид, а как ты здесь оказался, неужто стреляли ? biggrin.gif
Подняться вверх 
 
Сообщение #5
PsyTech
Вставить ник
сообщение 7:05:2008, 15:58
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 14
Регистрация: 5:01:2008
Пользователь №: 14 606



Репутация: - 0 +


Я наверное не правильно поставил вопрос.
Платформа 8.1.
Пешение вопроса:
Ячейка = ЭлементыФормы.ТабДок.Область("R"+Строка+"C"+Колонка);
Все равно всем спасибо за внимание.
Подняться вверх 
 
Сообщение #6


Быстрый ответ  Ответить  Новая тема 

> Быстрый ответ
Полужирный
Курсив
Подчеркнутый
Вставить изображение
Смайлики
Цитата
Код
 
 Отправлять уведомления об ответах на e-mail |  Включить смайлики |  Добавить подпись
   

 

RSS Текстовая версия Сейчас: 16:05:2008 - 17:23
с нами можно связаться по:
телефону: +375-(29)-632-60-67
e-mail:info@codeby.net