🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104502

[vb6] Kopiowanie komórek w OO bez schowka

#104502
From: TS
Date: Mon, 01 Mar 2010 14:44
18 lines
2036 bytes
Używam open office do zapisu danych ze swojego programu do excela, czy ktoś 
z Was może mi pomóc, mam procedurkę (poniżej), która kopiuje zaznaczone 
komórki i wkleja je w wierszu niżej. Używam do tego schowka i działa to 
dobrze, jednak chciałbym zrezygnować ze schowka i zrobić to poza nim, jest 
taka procedura jak CopyRange w OO ale nie potrafię jej użyć pomimo wielu 
znalezionych przykładów w makrach Muszę takie rozwiązanie zrobić w VB6 i być 
może tu jest problem...

Set oCells = oSheet.getCellRangeByPosition(0, iRowIndex - 2, iFieldCount - 
1, iRowIndex - 2)
oCalcCtrl.Select (oCells)
Call vDispatcher.executeDispatch(oCalcCtrl, ".uno:Copy", "", 0, vNoArg())
Set oCells = oSheet.getCellByPosition(0, iRowIndex - 1)
oCalcCtrl.Select (oCells)
Call vDispatcher.executeDispatch(oCalcCtrl, ".uno:Paste", "", 0, vNoArg())

pozdr
TS 
Technical Details
Message-ID: <hmgkhe$esq$1@nemesis.news.neostrada.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.straub-nv.de!feeder.erje.net!feeder.news-service.com!feeder1.cambriumusenet.nl!feed.tweaknews.nl!209.197.12.242.MISMATCH!nx01.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.straub-nv.de!feeder.erje.net!feeder.news-service.com!feeder1.cambriumusenet.nl!feed.tweaknews.nl!209.197.12.242.MISMATCH!nx01.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail
From: "TS" <tonspeed@poczta.fm>
Newsgroups: pl.comp.lang.vbasic
Subject: [vb6] Kopiowanie komórek w OO bez schowka
Date: Mon, 1 Mar 2010 15:44:13 +0100
Organization: TP - http://www.tp.pl/
Lines: 20
Message-ID: <hmgkhe$esq$1@nemesis.news.neostrada.pl>
NNTP-Posting-Host: czs234.internetdsl.tpnet.pl
X-Trace: nemesis.news.neostrada.pl 1267455342 15258 83.19.204.234 (1 Mar 2010 14:55:42 GMT)
X-Complaints-To: usenet@news.neostrada.pl
NNTP-Posting-Date: Mon, 1 Mar 2010 14:55:42 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5843
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5579
X-RFC2646: Format=Flowed; Original
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit