Delphi & Excel
5 отговора
405 прегледа
Delphi & Excel
Много спешно ми трябва да вкарам една таблица на Excel DBGrid!!!!!
Става въпрос за Delphi 5.
Изгубих цял ден.Ще Ви бъда благодарен за помоща!
Става въпрос за Delphi 5.
Изгубих цял ден.Ще Ви бъда благодарен за помоща!
Re: Delphi & Excel
Ако съм разбрал правилно в което не съм много сигурен, правиш връзка през ADO до файла с TAdoTable после слагаш един ТDataSource връзваш го към ADOTable-a слагаш си грида и го връзваш към DataSource-a.
____________
умният знае кога да говори, мъдрият знае кога да мълчи
____________
умният знае кога да говори, мъдрият знае кога да мълчи
Re: Delphi & Excel
btw ako .xls-a e mnogo sharen - filtri makrosi i prochie sam imal sluchaj kogato driverite ne mogat da go preglytnat : reshenie copy-paste w prost .xls i wtori opit ako ne stane - import w Access i ot tam nema nachin da nema nachin ;)
------------------------------
I got a COMPILER, and I'm not afraid to use it!
------------------------------
I got a COMPILER, and I'm not afraid to use it!
Re: Delphi & Excel
Това кои ADO компоненти трябва да се използват мие ясно. Проблема ми е в настройката на Conectionstring на TADOTABLE и по точно след като го настроя не мога да задам стойност за Tablename.
Блгодаря на всички за отзивчивоста!!
Блгодаря на всички за отзивчивоста!!
Re: Delphi & Excel
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(пътя до файла без скобите);Extended Properties="Excel 8.0;IMEX=1;";Persist Security Info=False
Опитай с този ConnectionString. Ако държиш на своя, опитай да смениш името на Sheet-a на нещо започващо с цифра. Някакъв странен бъг има в драйверите.
AquilaX
____________
умният знае кога да говори, мъдрият знае кога да мълчи
Опитай с този ConnectionString. Ако държиш на своя, опитай да смениш името на Sheet-a на нещо започващо с цифра. Някакъв странен бъг има в драйверите.
AquilaX
____________
умният знае кога да говори, мъдрият знае кога да мълчи
Re: Delphi & Excel
ako po gornite varianti ne ti svyrshat rabota probvai tova:
var XL:Variant
begin
XL := CreateOleObject('Excel.Application');
XL.Workbooks.Add;
XL.Visible := true;
XL.Range['B1'].Value := 'plqs';
XL.Range['C2'].Value := 'mrun';
XL.Quit;
end;
sled "XL." vsichko sa Visual Basic funkcii za rabota sys exel .. chetesh helpa i si izpylnqvash kakvoto si iskash
var XL:Variant
begin
XL := CreateOleObject('Excel.Application');
XL.Workbooks.Add;
XL.Visible := true;
XL.Range['B1'].Value := 'plqs';
XL.Range['C2'].Value := 'mrun';
XL.Quit;
end;
sled "XL." vsichko sa Visual Basic funkcii za rabota sys exel .. chetesh helpa i si izpylnqvash kakvoto si iskash