Бухгалтерский учет, налогообложение, отчетность, МСФО, анализ бухгалтерской информации, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

1C + Excel

Ёжик
читатель
офлайн
Дата регистрации: 01.08.2002
Сообщений: 84
Пост №1
 
10.12.2003 16:13

"народ, где взять простецкие команды VBA для Эксела?



а то кроме



Эк=СоздатьОбъект("Exel.Application");

Эк.ActiveWorkBooks.Open(ИмяФайла);



и ещё пары... ничего не знаю...

а в инете только ФАКи по Экселу, а типа учебника не нахожу :-(



подскажите ПЛЗ штучек 50 на первое время, а!"

Наумов Алексей (Баланс, Владимир)
новичок
офлайн
Пост №2
 
13.12.2003 22:27

В эхеле открываешь справку по ВизулБасику - там все команды описаны.

Если пример нужен, то в типовой "Торговля и склад", есть обработка по импорту цен из Ехелевского файла, можно посмотреть

Ёжик
читатель
офлайн
Дата регистрации: 01.08.2002
Сообщений: 84
Пост №3
 
15.12.2003 09:08

"там не то что нужно!

там больше справка по самому вижуал бэйсику...



но, пардон, вставки на нём в 1С нельзя делать...

и толку от того, что узнаю, как описывать переменные, массивы, циклы и др. конструкции???



на сколько понял максимум, что можно это использовать пару методов объекта аппликейшн

после



эксел=СоздатьОбъект("Excel.Application");



нужно что-то типа открыть/получить файл эксел, считать выделенные столбцы в таблицу 1С, закрыть файл и ВЫГРУЗИТЬ потом сам эксел из памяти КОРРЕКТНО!



а в 1С предлагаемой для просмотра написано эксел.Quit()

а комментария нет :-(

и что это делает? ИМХО закрывает? а из памяти пардон кто выгружать будет?"

PrikhodkoEA
читатель
офлайн
Дата регистрации: 28.03.2005
Сообщений: 3
Пост №4
 
28.03.2005 21:23

"Если Что обращайтесь 6)

Evgeny@prikhodko.org







Procedure LoadImportFile()

//-----------------------------------------------------------------------------------------------

Var namefile, namedir,ImportFileXls, ImportFileXlsAplet;

Var Applet, SPFileDirNomenklatura,SPFileDirNomenklaturaTEMP;

Var i,j,kj, ki,jj, addcode, File, Filelist,Celling,FileDirFS;

Var CodeType,OLEMOVE,Tools,CodePlusFilesSP;

//-----------------------------------------------------------------------------------------------

// Insert Object

Tools= CreateObject("справчоник.Загружаемый");

ImportFileXls = CreateObject("FS");

SPNomenkl = CreateObject("справчоник.Номенклатура");

SPFileDirNomenklatura = CreateObject("&&&&&&&&&&.&&&&&&&&&&&&&");

SPFileDirNomenklaturaTEMP = CreateObject("&&&&&&&&&&.&&&&&&&&&&&&&");

Applet = CreateObject("Excel.Application");



//Insert Var component

//------------------------------------------------------------------------------------------

IF ImportFileXls.SelectFile(,namefile,namedir,"&&&&&&&& &&&&& ","&&&&& *.xls| *.xls", , ) = 1 Then

Tools.НайтиПокоду("1");

kj = Tools.ЧислоСтроки;

ki = Tools.ЧислоСтолбцов;

j = 1;

CodePlusFilesSP = 0;

DateFormatToDay = ТекущаяДата();

addcode = 0;

CodePlusFilesSP = CodePlusFilesSP + 1;

FileDirFS = namedir+namefile;



DoMessageBox("ЛЯЛЯ");

Message("namefile : "+namedir+namefile);

CodeType = String(namefile)+"-"+String(DateFormatToDay);

Message("CodeType ="+CodeType);

IF SPFileDirNomenklatura.НайтиПоКоду(CodeType) = 0 then

SPFileDirNomenklatura.new();

SPFileDirNomenklatura.Код = CodeType;

SPFileDirNomenklatura.Description= namefile;

SPFileDirNomenklatura.ИмяФайла = namefile;

SPFileDirNomenklatura.Write();

Message("ОК!");

Else

DoMessageBox("Программу На Мыло!"); Return;

EndIF;



Else Message("Error file"); Return;

EndIf;



File = Applet.Workbooks.Open(Trimall(FileDirFS));

Filelist = File.Sheets(1);

Message("---------------------------------");

//------------------------------ OLE XLS For EndFor-------------------------------

For i = 1 to ki DO

Celling = Filelist.Cells(j,i);

IF Filelist.Cells(j,i).text <> """" then

addcode = addcode + 1;

Message("i, j="+i+", "+j+" | "+Celling.Text+";");

Message("addcode = "+addcode);

//Saved to the base



IF addcode = 1 then //проверка строк на наличие

SPNomenkl.new();

SPNomenkl.Description = Celling.text;

SPNomenkl.ИмяФайла = CodeType;

EndIF; //

IF addcode = 2 then

SPNomenkl.ыыы= Celling.Value;

EndIF;

IF addcode = 3 then

SPNomenkl.&&&&&&&&& = Celling.text;

EndIF;

IF addcode = 4 then

SPNomenkl.&&&& = Celling.Value;

EndIF;

IF addcode > 4 then

Message("--- 4 ---");

EndIF;

EndIF;



jj = j;

IF i = (ki - 1) then j = j+1; i = 0; addcode = 0; SPNomenkl.Write(); EndIF;

IF j = kj then Message("j = "+j); i = ki; EndIF;

EndDo;

//------------------------------ OLE XLS For EndFor-------------------------------

Applet.WorkBooks.close();

Applet.Quit();

Message("I ="+i+"; J = "+j);

DoMessageBox("&&&&: "+namefile+"; &&&&&&&&, &&&&&&&&&&& = "+jj+" &&&&&!");

Message("---------------------------------");

Message("Application Close All");

Message("&&& &&&&& &&&&&&&&&&&& = "+FileDirFS);

EndProcedure"

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Учет, налогообложение, автоматизация
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • ЕГАИС
Предложения партнеров
Обучение пользователей продуктов 1С

1С бесплатно 1С-Отчетность 1С:ERP Управление предприятием 1С:Бесплатно 1С:Бухгалтерия 8 1С:Бухгалтерия 8 КОРП 1С:Бухгалтерия автономного учреждения 1С:Бухгалтерия государственного учреждения 1С:Бюджет муниципального образования 1С:Бюджет поселения 1С:Вещевое довольствие 1С:Деньги 1С:Документооборот 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и кадры государственного учреждения 1С:Зарплата и управление персоналом 1С:Зарплата и управление персоналом КОРП 1С:Комплексная автоматизация 8 1С:Лекторий 1С:Предприятие 1С:Предприятие 7.7 1С:Предприятие 8 1С:Розница 1С:Управление нашей фирмой 1С:Управление производственным предприятием 1С:Управление торговлей 1СПредприятие 8

Все теги