10.05.2008, 23:02 | #1 (permalink) |
Новичок
Регистрация: 12.09.2007
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Я так понимаю, для этого мне нужно сначало считать информацию из файла, добавить свои данные и перезаписать файл. Подскажите пожалуйста как это сделать? Заранее всем большое спасибо |
10.05.2008, 23:02 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные проблемы должны вам помочь Макрос на Excel Excel, Pdf, Doc + Php Excel Excel Автозаполнение Excel |
12.05.2008, 16:42 | #3 (permalink) |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
имеяться ввиду програмнно а не в ручную
если чесно у меня в работе с екселем всегда возникали проблемы ( пробовал в Си и Делфи) с записью в файл вообщем для себя решал так - открывал файл читал из него работал с данными ( даже если надо было довать одну ячейку) удалял - создавал новый файл сохранял вообщем перезаписывать корректно у меня не получалось если с VBA - там наверняка все проще и таких проблем не будет |
12.05.2008, 20:58 | #4 (permalink) |
Member
Регистрация: 26.03.2007
Сообщений: 89
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 17
|
то что я использую для работы с экселем под седьмыми делфями:
//вырезано uses ... ComCtrls, ExtCtrls, OleServer, ComObj; //вырезано const lcid = LOCALE_USER_DEFAULT; //вырезано var XL :Variant; //вырезано XL:= CreateOleObject('Excel.Application'); //создаем новую книгу XL.WorkBooks.Add; //открываем книгу XL.Workbooks.Open('c:\test.xls', // Filename: WideString; 2, // UpdateLinks: OleVariant; 2 - never update False, // ReadOnly: OleVariant; EmptyParam, // Format: OleVariant; EmptyParam, // Password: OleVariant; EmptyParam, // WriteResPassword: OleVariant; EmptyParam, // IgnoreReadOnlyRecommended: OleVariant; EmptyParam, // Origin: OleVariant; EmptyParam, // Delimiter: OleVariant; EmptyParam, // Editable: OleVariant; EmptyParam, // Notify: OleVariant; EmptyParam, // Converter: OleVariant; False, // AddToMru: OleVariant; lcid); //копируем из второй книги первую страницу в первую книгу, вставляя ее первой страницей XL.WorkBooks[2].WorkSheets[1].Copy(XL.Workbooks[1].Sheets[1], EmptyParam); //удаляем в первой книге вторую страницу XL.WorkBooks[1].WorkSheets[2].Delete; //закрываем вторую книгу XL.WorkBooks[2].Close(0); //записываем в ячейку текст. можно цифры. конвертируется само. XL.WorkBooks[1].WorkSheets[1].Cells[2,1]:='Это тест'; //сохраняем документ (если уже существует, то эксель будет ругаться. если найдешь как запретить спрашивать про перезапись - скажи) XL.WorkBooks[1].SaveAs('C:\test2.xls', 56, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, lcid); //показать сформированный документ XL.Visible:= true; //отключаемся от офиса XL:= UnAssigned; |
06.12.2009, 18:17 | #5 (permalink) |
Member
Регистрация: 02.02.2008
Сообщений: 319
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Оферта новая проблема
После загрузки компа
Минут через 10-15 всплыло окошко с рекламой секс-шопа. Якобы я заполнил договор оферты и должна 999 раз просмотреть рекламу их полезного;-) товара:-) Либо отправить смс стоимостью 200 рублей. Как избавиться от вируса? Картинка стоит в центре,с места не сдвигается.Примерно через час исчезает сама. Также исчезает после выключения,либо перезагрузки.Но!Минут через 15 появляется снова:-( Даже в безопасном(!) режиме:-( как избавиться от этой напасти... не хочу винду переуст у меня диск сломалсья он не перкеуст как можно оботися без переустновки |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.12.2009, 18:19 | #6 (permalink) |
Member
Регистрация: 01.01.2009
Сообщений: 13,189
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 415
|
Madara,
Выполнить это http://pchelpforum.ru/f26/t6442/#post37758 и прислать архив virusinfo_syscure.zip |
06.12.2009, 19:00 | #8 (permalink) |
Member
Регистрация: 01.01.2009
Сообщений: 13,189
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 415
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|