Отчеты на Delphi 7

← →
rol (2006-05-05 15:33) [0]

Помогите, почемуто не компилирует, выдает, зараза, кучу ощибок

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;

← →
Johnmen © (2006-05-05 15:41) [1]

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

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

← →
ANB © (2006-05-05 16:16) [2]

> rol (05.05.06 15:33)

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

← →
Desdechado © (2006-05-05 16:17) [3]

что за странные подчеркивания в концах строк?
не умеешь переносить длинные строковые константы в коде?

← →
ANB © (2006-05-05 16:19) [4]

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

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

да я после и не смотрел даже ;)
а такое
.PreserveColumnInfo = True .SourceDataFile = "C:\Program Files\Borland\Delphi7\prog\kartochka.DBF" .Refresh BackgroundQuery:=False End With
точно из васика

Это не в "начинающим" надо было помещать, а сразу в орешник.

Отчеты на Delphi 7 Найти похожие ветки