Corel FORUM

Anakonda64

Potrzebuje wczytać w makrze dane ze schowka. Dane są w postaci tablicy 2 na 10 (skopiowanie z arkusza excelowskiego). Mam w VBA zadeklarowaną tablice z danym (właśnie 2 na 10 - określają współrzędne 10 obiektów) i Kombinowałem z GetFromclipboard, ale coś pewnie nie do końca umiem to zastosować. Czy ktoś mógłby mi w tym pomóc?
Pozdrawiam seredcznie

chezare

Tablica 2x10 to w vba 33 dane, a nie 20, a tym bardziej 10 :-)

Nie mam Excela i nie bardzo mam jak prowadzić eksperymenty, ale metoda, którą chcesz to zrealizować na pewno nic nie da, w taki sposób, to dostaniesz co najwyżej tekst, a do tego żadna tablica nie jest potrzebna.
Oczywiście taki tekst można podzielić na Fragmenty, które w Excelu stanowiły zawartość poszczególnych komórek, ale to dodatkowa robota.
Sam pomysł wydaje mi się bez sensu, kopiujesz dane z Excela, przechodzisz do Corela i uruchamiasz makro? Do czego taki mechanizm może się przydać? Jeśli to ma być jakaś baza danych, to przygotuj gotowy plik, który Corel będzie mógł wykorzystać, to minuta roboty.
Dzięki VBA, na pewno da się przeczytać dane bezpośrednio z arkusza kalkulacyjnego, metoda którą wymyśliłeś wydaje mi się delikatnie mówiąc. dyskusyjna.

Anakonda64

Dziękuje za odpowiedź. 33 dane jak zaczynasz liczyć od zera. Jak liczysz 1 do 10 i 1 do 2 masz 20 danych ( mam stare nawyki jeszcze z fortranu :) - dziadek jestem), to współrzędne 10 obiektów (x, y). Rozumiem, że rutyna się kłania :). Jasne że da się odczytać bezpośrednio z komórek excela. Natomiast ze względu na to że te dane pojawiają się w różnych plikach, automatyzacja odczytu jest mało realna. Mógłbym oczywiście zapisywać dane z excela w pliku tekstowym, po to ,żeby potem odczytać je w VBA. Chyba jednak schowek jest naturalniejszy :). Stad przez schowek. Ogólnie sytuacja jest taka. Niewazne excel czy nie excel. Mam w schowku 20 danych. ( można to tez potraktować jako jedną string, albo 10 string w tablicy 1 kolumnowej ) - obojętne dam sobie radę z przekształceniem. Tylko jak mam odczytać ten schowek :0 . Funkcja dana = clipboard.getText wyrzuca bład

chezare

A jesteś pewny, że to jest tekst?

Anakonda64

W jakim sensie czy jestem pewny że tekst. Czytanie ze schowka da chyba zawsze tekst? I tak też zawartość schowka jest chyba traktowana? Chyba zawsze jest taka składnia .GetTekst przy czytaniu schowka?
Czytam do schowka liczby 2 kolumny po 10 rzędów. Widziałem działające makra w corelu, które tak wczytują liczby lub tekst - obojętne. Natomiast tym .GetTekst próbowałem tez tekst wczytać i tez wywalał błąd. Być może jakaś inna składnia w VBA dla corela której niestety nie znam a poszukiwania netowe niewiele dały - coć co prawda znalazłem, ale gorzej ze zrozumieniem :)

chezare

Nie chciałbym żebyś traktował to co teraz napiszę jako konkretną wiedzę, bo takiej na ten temat nie posiadam i mogę się mylić, ale wydaje mi się, że nie masz racji.
Moim zdaniem w windowsowym schowku, oprócz samych danych znajduje się również informacja jakiego typu są te dane, dlatego w Excelu można skopiować fragment arkusza i wkleić w inne miejsce z zachowaniem formatowania, można też wkleić np. obrazek. Nie da się jednak w sposób kopiuj, wklej przenieść dowolnych danych z jednego programu do dowolnego innego, choćby z tego prostego powodu, że dany program jakiegoś typu danych nie obsługuje, gdyby to był tekst, to dawałoby się praktycznie zawsze to zrobić, w końcu każda informacja cyfrowa to w jakimś sensie tekst.
Wszyscy powyjeżdżali i niestety mam roboty więcej niż jestem w stanie zrobić, ale jak znajdę chwilę czasu to mogę pomajstrować przy obsłudze schowka w VBA, choć moja wiedza w tym temacie w tym momencie jest dosyć mizerna, żeby nie powiedzieć żadna.
Nie wydaje mi się jednak, żeby to było takie proste?
==========
Na forum był już podobny temat, choć problem był dokładnie odwrotny, chodziło o przeniesienie danych z Corela do Excela. Rzuć okiem może Ci się coś rozjaśni?
MaroQ na pewno dałby sobie z tym radę :-)

http://corel.wodip.opole....opic.php?t=5741
Gdybyś napisał konkretnie co chcesz zrobić, to pewnie byłoby łatwiej.
Podaj konkretny przykład, xls i cdr i co ma się stać po wykonaniu makra.
Mówisz, że taki sposób jest prostszy, ale jaki on prostszy jak musisz modyfikować za każdym razem kod makra? Przyszło mi też do głowy inne rozwiązanie, a mianowicie takie, że jak się nie da zrobić tego w prosty sposób w Corelu, to może dobrze by było spreparować do czytelnej postaci kopiowane dane z Excela, tam też przecież jest VBA i to moim zdaniem znacznie sprawniejsze niż to z Corela.

Anakonda64

Wiesz, siedze nad tym tematem dosyć długo. W ogóle tych prac :) , a nie tego kodu VBA. Mam następujące zadanie. Excel oblicza mi wspólrzedne wierzchołków wykresu liniowego - czy tez obrysu - to też zależy od konkretnego zadania. Z tym że liczy mnóstwo , a ja musze sam wybrać właściwe - to nie da się zautomatyzować. Dotąd radziłem sobie tak że robiłem wykres w excelu, przenosiłem go jako meta do corela i miałem linie - skalowalem mierzac odległości wierzchołków, do tego robiłem obrys coby zlikwidować pdowójna zaplatana często , pootwieraną częściowo linie - róznie się to wczytuje. I to chciałem uprościć - od razu rysować w corelu. Dane jak jest nawet 20 :) da się wczytać przez okno - i tak będzie szybciej niż pieprzenie się z czyszczeniem tego wykresu z excelu. Ale czasami mam krzywą z 1000 punków, a to już zajmuje więcej czasu. Narysować , okreslic atrybuty, wyskalować potrafie w kodzie, ale jak te dane wczytać :)
Makra nie trzeba modyfikować. Z iloscią wierzchołków tez sobie poradzę, żeby to czytac i odpowiednio rysować , a to jedyne zmienne oprócz danych wierzchołków w makrze

chezare

Rozumiem.

maroQ

chezare

Identyczną konstrukcję znalazłem w wielu miejscach w sieci.
Niestety działa to tak, że nie działa :-)

Wykoleja się na pierwszej deklaracji (X3),
Dim clip As DataObject
W Twoim kodzie nie ma błędu, przynajmniej w tym fragmencie, taki stan rzeczy występuje nie tylko w Corelu ale również w Excelu.
Tu jest rozwiązanie problemu:-)
http://blog.jonschneider....d-type-not.html

W świeżo zainstalowanym Windowsie (XP) i świeżo zainstalowanym X3, ta opcja nie jest zaznaczona.
Resztę kodu można chyba znacznie uprościć.
Kolega czyta zawsze z Excela po dwie pary liczb (wsp. punktu) z dwóch sąsiadujących kolumn. Nie mam Excela ale dane w schowku pewnie wyglądają tak:
liczba <tab> liczba <cr>
liczba <tab> liczba <cr>…
Pomyślałem, że chyba można w ogóle obejść schowek, bo przecież jego sytuacja wygląda tak, że ma otwartego Excela i zaznaczony obszar z danymi. Wciska ctrl+C i przechodzi do Corela. Ctrl+C i schowek prawdopodobnie da się ominąć?
Pytanie jest takie, czy da się przeczytać w VBA Corela jaki obszar jest zaznaczony w Excelu?

maroQ