Delphi и Excel, Извлечение данных из определенных ячеек Опции

[Atreides]

Впервые в жизни столкнулся с такой задачкой, посмотрел на подобе вроде нету. Мне нужно выдернуть данные из ексельного файла со сложной структурой данные, которые могут быть не нормированы, т.е. не ограниченны по длине. Запись произвести в стринггрид или дбгрид. Нужны следующие поля А 5 или 10, т.е. те в которых есть надпись НОД 3, все D с названиями, причем коды нужно писать отдельно, все H соответствующие D, и все B с датами месяца и года в разные ячейки. Пробовал фильтрами, но это только отсеивает, а не прописывает. Надо прописать, что бы после можно было портировать данные эти в ораклинную базу. Меня еще останавливает, то что нельзя задать ячейки железно, на тот случай, если таблица пополнится новыми позициями

[Atreides]

Я писал вот так...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Menus, ComObj;
type
  TForm1 = class(TForm)
	MainMenu1: TMainMenu;
	N1: TMenuItem;
	N2: TMenuItem;
	N3: TMenuItem;
	StringGrid1: TStringGrid;
	GroupBox1: TGroupBox;
	GroupBox2: TGroupBox;
	Button1: TButton;
	Button2: TButton;
	procedure N3Click(Sender: TObject);
	procedure Button1Click(Sender: TObject);
	procedure Button2Click(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean; 
const 
xlCellTypeLastCell = $0000000B; 
var 
XLApp, Sheet: OLEVariant; 
RangeMatrix: Variant; 
x, y, k, r: Integer; 
begin 
Result := False; 
// Create Excel-OLE Object 
XLApp := CreateOleObject('Excel.Application');
try 
   // Hide Excel 
   XLApp.Visible := False; 
   // Open the Workbook
   XLApp.Workbooks.Open(AXLSFile);
   // Sheet := XLApp.Workbooks[1].WorkSheets[1]; 
   Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1]; 
   // In order to know the dimension of the WorkSheet, i.e the number of rows 
   // and the number of columns, we activate the last non-empty cell of it 
	Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate; 
   // Get the value of the last row 
   x := XLApp.ActiveCell.Row; 
   // Get the value of the last column 
   y := XLApp.ActiveCell.Column; 
   // Set Stringgrid's row &col dimensions. 
   AGrid.RowCount := x; 
   AGrid.ColCount := y; 
   // Assign the Variant associated with the WorkSheet to the Delphi Variant 
   RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value; 
   //  Define the loop for filling in the TStringGrid 
   k := 1; 
   repeat 
	 for r := 1 to y do 
	   AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R]; 
	 Inc(k, 1); 
	 AGrid.RowCount := k + 1; 
   until k > x; 
   // Unassign the Delphi Variant Matrix 
   RangeMatrix := Unassigned; 
finally 
   // Quit Excel 
   if not VarIsEmpty(XLApp) then 
   begin 
	 // XLApp.DisplayAlerts := False; 
	 XLApp.Quit; 
	 XLAPP := Unassigned; 
	 Sheet := Unassigned; 
	 Result := True; 
   end; 
end; 
end; 
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Xls_To_StringGrid(StringGrid1, 'D:\КОАСУФР\КОАСУФР10.xls') then

   ShowMessage('Таблица была загруженна!');
end;
procedure TForm1.N3Click(Sender: TObject);
begin
   Close;
end;
end.

Просто "Нод"ы могут быть же после данных, как с этим быть. А можно пример как вести проверку? Да и программку хотелось бы все глянуть, интересно.