Re: [vb6] Kopiowanie komórek w OO bez schowka - ROZWIĄZANIE - Article 14410 - go-pugleaf

Article View: alt.pl.openoffice

Article #14410

Re: [vb6] Kopiowanie komórek w OO bez schowka - ROZWIĄZANIE

#14410

From: TS
Date: Wed, 03 Mar 2010 07:52

27 lines
2428 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())

Znalazłem rozwiązanie, może komuś się przyda... :)

Set tSourceRange = oSheet.getCellRangeByPosition(0, iRowIndex - 2, 
iFieldCount - 1, iRowIndex - 2).RangeAddress
Set tTargetCell = oSheet.getCellByPosition(0, iRowIndex - 1).CellAddress
Call oSheet.copyRange(tTargetCell, tSourceRange)

pozdr
TS

Technical Details

Message-ID: <hml4kp$s7t$1@atlantis.news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.glorb.com!npeer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!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

References: <hmiugd$n14$1@atlantis.news.neostrada.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.glorb.com!npeer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!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: alt.pl.openoffice
Subject: Re: [vb6] Kopiowanie komórek w OO bez schowka -
 ROZWIĄZANIE
Date: Wed, 3 Mar 2010 08:52:29 +0100
Organization: TP - http://www.tp.pl/
Lines: 29
Message-ID: <hml4kp$s7t$1@atlantis.news.neostrada.pl>
References: <hmiugd$n14$1@atlantis.news.neostrada.pl>
NNTP-Posting-Host: czs234.internetdsl.tpnet.pl
X-Trace: atlantis.news.neostrada.pl 1267602905 28925 83.19.204.234 (3 Mar 2010 07:55:05 GMT)
X-Complaints-To: usenet@news.neostrada.pl
NNTP-Posting-Date: Wed, 3 Mar 2010 07:55:05 +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; Response
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message