Како копирати у међуспремник у Мицрософт Висуал Басиц-у

Аутор: Joan Hall
Датум Стварања: 28 Јануар 2021
Ажурирати Датум: 1 Децембар 2024
Anonim
Изменение таблиц в Microsoft SQL Server ALTER TABLE – видео урок для начинающих
Видео: Изменение таблиц в Microsoft SQL Server ALTER TABLE – видео урок для начинающих

Садржај

Корисно је знати како користити системски међуспремник за копирање информација из једне апликације у другу користећи Мицрософт Висуал Басиц .НЕТ (ВБ.НЕТ). Међуспремник је окружење које се дијели између програма у Виндовсу, што олакшава дијељење информација. Програмери често морају да експортују информације из ВБ.НЕТ апликације у Мицрософт Екцел табелу. Међутим, можете написати ВБ.НЕТ код за копирање података у системску међуспремник и залијепити га у Екцел радни лист.


Упутства

Податке можете копирати у системски међуспремник користећи Висуал Басиц .НЕТ (дигитални градски тунел и град ноћу слика Стасис Еидиејус из Фотолиа.цом)

  1. Унесите следећу шифру у нови потпрограм у ВБ.НЕТ пројекту да бисте прогласили Екцелове променљиве:

    Дим КСЛАпп Ас Мицрософт.Оффице.Интероп.Екцел.Апплицатион = Ништа дим КСЛБоокс као Мицрософт.Оффице.Интероп.Екцел.Воркбоокс = Ништа дим КСЛБоок као Мицрософт.Оффице.Интероп.Екцел.Воркбоок = Ништа дим КСЛСхеетс као Мицрософт.Оффице.Интероп .Екцел.Схеетс = Нотхинг Дим КСЛСхеет Ас Мицрософт.Оффице.Интероп.Екцел.Ворксхеет = Ништа

  2. Унесите следећи код да бисте додали текстуални низ у клипборд и добили текст из њега:

    Дим процессОбјецт Ас Нев Процесс Цлипбоард.СетДатаОбјецт ("Ово се копира у међуспремник и додаје у Екцел.")

    Дим цлипбоардОбјецт Ас ИДатаОбјецт = Цлипбоард.ГетДатаОбјецт ()


  3. Унесите следећи код да бисте отворили Екцел и додали нови радни лист:

    КСЛАпп = Ново Мицрософт.Оффице.Интероп.Екцел.Апплицатион КСЛАпп.Висибле = Труе КСЛАпп.ДисплаиАлертс = Фалсе КСЛБоок = ЦТипе (КСЛАпп.Воркбоокс.Адд (), Мицрософт.Оффице.Интероп.Екцел.Воркбоок) КСЛБоокс = КСЛАпп.Воркбоокс КСЛСхеет = ЦТипе (КСЛБоокс (1) .Схеетс.Итем (1), Мицрософт.Оффице.Интероп.Екцел.Ворксхеет) КСЛСхеетс = КСЛБоок.Ворксхеетс

  4. Откуцајте следећу шифру да бисте додали секвенцу из Цлипбоард-а у Екцел:

    Са цлипбоардОбјецт Ако је .ГетДатаПресент (ДатаФорматс.Тект) Онда КСЛСхеет.Целлс (1, 1) = .ГетДата (ДатаФорматс.Тект) Енд иф Енд Витх

  5. Покрените програм