VPF::Доступ к Worksheet по имени - Форум программистов

Святогор

Дата 31.10.2006, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 9.8.2006

Репутация: нет
Всего: нет

Собственно, как обратиться к конкретному листу по имени?

Код


  EApp.AutoConnect:=true;
  ExcelWorkbook1.ConnectTo(EApp.Workbooks.OpenXML(edtFileName.Text,EmptyParam));
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.ActiveSheet as ExcelWorksheet);
  EApp.Visible[0]:=true;
  row:=ExcelWorksheet1.UsedRange[0].Rows.Count;
    for i:=2 to row do
       begin
       v:=ExcelWorksheet1.Range['A'+inttostr(i),EmptyParam];
       TempList_.Add(v);
       Application.ProcessMessages;
       end;
  eApp.Quit;

Нужно чтобы значени извлекались из листа с именем, например, "Лист 1".
Как это сделать?

Albinos_x

Дата 31.10.2006, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

перебираешь листы, смотришь имя каждого, если совпадает, то извлекаешь данные...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Святогор

Дата 1.11.2006, 07:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 9.8.2006

Репутация: нет
Всего: нет

Albinos_x, Спасибо.

Это сообщение отредактировал(а) Святогор - 1.11.2006, 08:53

Mepcuk

Дата 1.11.2006, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

Репутация: нет
Всего: нет

Так как обратится к лмсту я так и не понял smile

Albinos_x

Дата 1.11.2006, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

я ж написал... вот код:

Код


procedure TForm1.Button2Click(Sender: TObject);
var B:Boolean;
    ColSheet,i,j,k:Integer;
    ActivCol,ActivRow:integer;
begin
B:=True;
if not OpenDialog1.Execute then Exit;
ExcelApplication1.ConnectKind:=ckNewInstance;
ExcelApplication1.Visible[LOCALE_USER_DEFAULT]:=false;
ExcelApplication1.AutoConnect:=true;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(OpenDialog1.FileName,LOCALE_USER_DEFAULT));
ColSheet:=ExcelWorkbook1.Sheets.Count;
for i:=1 to ColSheet do
   begin
   ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[i] as ExcelWorksheet);
   if (ExcelWorksheet1.Name='Лист1') then
      begin
      B:=false;
      ActivCol:=ExcelWorksheet1.UsedRange[LOCALE_USER_DEFAULT].Columns.Count;
      ActivRow:=ExcelWorksheet1.UsedRange[LOCALE_USER_DEFAULT].Rows.Count;
      if (ActivCol>0) and (ActivRow>0) then
         begin
         if ActivRow>1 then
            Table.RowCount:=ActivRow
            else
            Table.RowCount:=2;
         Table.ColCount:=ActivCol;
         for j:=0 to (ActivRow) do
            for k:=0 to ActivCol do
               begin
               Table.Cells[k,j]:=ExcelWorksheet1.Range[AddresColExcel(k)+inttostr(j+1), EmptyParam].Value2;
               Application.ProcessMessages;
               end;
         end; {if (ActivCol>0) and (ActivRow>0) then}
      Break;
      end;
   end;
if b then ShowMessage('Лист1 в книге '+OpenDialog1.FileName+' не найденí');
ExcelApplication1.Visible[0]:=true;
end;

Это сообщение отредактировал(а) Albinos_x - 1.11.2006, 23:00

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Albinos_x

Дата 1.11.2006, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

вот

Присоединённый файл ( Кол-во скачиваний: 7 )

Project1.zip 206,91 Kb

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »