Delphi & Excel

5 отговора 405 прегледа
#1

Delphi & Excel

Много спешно ми трябва да вкарам една таблица на Excel DBGrid!!!!!

Става въпрос за Delphi 5.

Изгубих цял ден.Ще Ви бъда благодарен за помоща!

Отговор
в отговор на Reader #2

Re: Delphi & Excel

Ако съм разбрал правилно в което не съм много сигурен, правиш връзка през ADO до файла с TAdoTable после слагаш един ТDataSource връзваш го към ADOTable-a слагаш си грида и го връзваш към DataSource-a.

____________
умният знае кога да говори, мъдрият знае кога да мълчи
Отговор
в отговор на Reader #3

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!
Отговор
в отговор на AquilaX #4

Re: Delphi & Excel

Това кои ADO компоненти трябва да се използват мие ясно. Проблема ми е в настройката на Conectionstring на TADOTABLE и по точно след като го настроя не мога да задам стойност за Tablename.

Блгодаря на всички за отзивчивоста!!

Отговор
в отговор на Reader #5

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

____________
умният знае кога да говори, мъдрият знае кога да мълчи
Отговор
в отговор на Reader #6

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

Отговор