Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отчеты на Delphi 7 [D7, dBase, FoxPro]

rol © (2006-05-05 15:33:00)
Помогите, почемуто не компилирует, выдает, зараза, кучу ощибок

procedure TForm1.FormCreate(Sender: TObject);
var
ExcelApp: Variant;
begin
ExcelApp:=createoleobject('Excel.Application');
ExcelApp.Workbooks.open('c:\xls\18.xls');
ExcelApp.range['a2'].select;
ExcelApp.ActiveCell.FormulaR1C1:= '"íàìå"';
ExcelApp.Range['A2','G2'].Select;
ExcelApp.ActiveWorkbook.Save;
//OLEVariant(ExcelApp).Run('Module1.runsolver');

ExcelApp.Sheets('"Ëèñò2"').Select
With ExcelApp.ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Program Files\Borland\Delphi7\prog\;Mode=Share Deny Wr" _
, _
"ite;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engi" _
, _
"ne Type=18;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:" _
, _
"New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on " _
, _
"Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1"))
.CommandType := xlCmdTable
.CommandText := Array("kartochka")
.Name = "kartochka"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "C:\Program Files\Borland\Delphi7\prog\kartochka.DBF"
.Refresh BackgroundQuery:=False
End With
ExcelApp.Range("A2:S30").Select
ExcelApp.Selection.Copy
ExcelApp.Sheets("Ëèñò1").Select
ExcelApp.ActiveSheet.Paste
ExcelApp.Range("A2").Select

end;

ANB (2006-05-06 13:31:00) [1]
Это не в "начинающим" надо было помещать, а сразу в орешник.

Desdechado (2006-05-05 16:35:00) [2]
да я после и не смотрел даже ;)
а такое
.PreserveColumnInfo = True .SourceDataFile = "C:\Program Files\Borland\Delphi7\prog\kartochka.DBF" .Refresh BackgroundQuery:=False End With
точно из васика

ANB (2006-05-05 16:19:00) [3]

> Desdechado © (05.05.06 16:17) [3]

Это он среды перепутал. Писал на бейсике и запихал в код в делфи.

Desdechado (2006-05-05 16:17:00) [4]
что за странные подчеркивания в концах строк?
не умеешь переносить длинные строковые константы в коде?

ANB (2006-05-05 16:16:00) [5]

> rol (05.05.06 15:33)

Попробуй откомпилить этот код в Visual Basic, ошибок будет меньше.

Johnmen (2006-05-05 15:41:00) [6]

> выдает, зараза, кучу ощибок

Точно выдаёт? А то мы их не видим...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »