Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];

Вниз

Отчеты на 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]

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


 
Desdechado ©   (2006-05-05 16:35) [5]

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

точно из васика


 
ANB ©   (2006-05-06 13:31) [6]

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.014 c
8-1135447050
Nigel
2005-12-24 20:57
2006.05.21
System volume


2-1146571467
kay
2006-05-02 16:04
2006.05.21
Как сделать скроллинг фрейма? Не получается.


2-1146953092
TBlur
2006-05-07 02:04
2006.05.21
Нет ли у кого функции, чтобы сделать Blur?


15-1145635251
ArtemESC
2006-04-21 20:00
2006.05.21
Вирусоаналитики!


11-1126603740
SergeyV
2005-09-13 13:29
2006.05.21
ListView,отрисовка items и subitems...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский