Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 67439 Skopiuj do schowka Niezarejestrowana biblioteka
Autor Wiadomość
GEO-XYZ 
Exceloholic


Wersja: Win Office 2013
Posty: 235
Wysłany: 03-03-2020, 21:37   Niezarejestrowana biblioteka

Witam,
Nie mogę sobie poradzić z skopiowaniem danych z excela do word.
Dodam, że wcześniej wszystko ładne działało, ale w tym projekcie wywala mi błąd o niezarejestrowaniu biblioteki. Wszystkie składnie, zmienne te same, adres pliku się zgadza.
Proszę niech ktoś rzuci okiem na kod:
Kod:

Dim oWordApp As Word.Application
Dim oDoc As Word.Document
Set oWordApp = CreateObject("Word.Application")
Set oDoc = oWordApp.Documents.Add
Set oDoc = oDoc.Documents.Open("C:\GEO-TECH\00-000_GENERATOR RAPORTÓW\GT_SZABLONY\20_03\00-000_SZABLON_GT_OPERAT_RAPORT_GNSS2_20_03_20200303.docx")
                               
oDoc.Visible = True

oDoc.Range(oDoc.Range.End - 1, oDoc.Range.End).Paste



Nowy dokument_1.jpg
Plik ściągnięto 10 raz(y) 74.63 KB

_________________
XYZ
ID posta: 383013 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 718 razy
Posty: 3871
Wysłany: 04-03-2020, 02:27   

Żebyś chociaż wiedział o jaką bibliotekę chodzi....> https://support.microsoft.com/pl-pl/help/249873/how-to-use-the-regsvr32-tool-and-troubleshoot-regsvr32-error-messages

M$Office ma taką opcję (w "Dodaj / Usuń Programy" // "Programy i Funkcje": Napraw > sprawdź (może być potrzebna płyta / inne źródło).

Jak się nie uda > reinstal.

Ew. aktualizacja.

FYI: pracowałem kiedyś na NT - mało że wołami (< hurra! Jesteśmy Super!! >) w 3 miejscach po Starcie) system zawiadamiał że to New Technology -ale nie obsługiwał standardu USB...
(nawet z "nielegalną" :mrgreen: poprawką).
(niby wiem dlaczego - narzędzie "do pracy" a nie "do zabawy" > ale to jednak port...).
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 383024 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 463 razy
Posty: 1167
Wysłany: 04-03-2020, 07:03   

GEO-XYZ napisał/a:
w tym projekcie wywala mi błąd o niezarejestrowaniu biblioteki.

Poczytaj Błąd wykonania 2147319779
Na końcu artykułu jest link jak zarejestrować DLL
Janusz
ID posta: 383026 Skopiuj do schowka
 
 
GEO-XYZ 
Exceloholic


Wersja: Win Office 2013
Posty: 235
Wysłany: 04-03-2020, 08:15   

Witam, ale sprawa moim zdaniem dotyczy kodu - bo na innym projekcie wszystko działa - normalnie się uruchamia Word.
_________________
XYZ
ID posta: 383032 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 463 razy
Posty: 1167
Wysłany: 04-03-2020, 10:08   

GEO-XYZ napisał/a:
ale sprawa moim zdaniem dotyczy kodu

To wstaw załącznik z całym kodem
Janusz
ID posta: 383047 Skopiuj do schowka
 
 
GEO-XYZ 
Exceloholic


Wersja: Win Office 2013
Posty: 235
Wysłany: 04-03-2020, 10:17   

J_B,
Udało się - kod do wykorzystania:
Kod:

Dim appWD As Object
Dim Myrange As Excel.Range

Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Documents.Open ("E:\00-000_Generatory raportów\GT_OPERAT\GT_SZABLONY\20_03\00-000_SZABLON_GT_OPERAT_RAPORT_GNSS2_20_03_20200303.docx") ' Filename:="C:\Documents and Settings\Admin\Pulpit\O11.doc"


i temat udało mi się załatwic - otwiera już ładnie dokument.
ale nie działa teraz zaznaczenie ostatniego wolnego wiersza
Kod:

Dim wdDoc As Word.Document
wdDoc.Range(wdDoc.Range.End - 1, wdDoc.Range.End).Paste
_________________
XYZ
Ostatnio zmieniony przez GEO-XYZ 04-03-2020, 10:34, w całości zmieniany 1 raz  
ID posta: 383048 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 463 razy
Posty: 1167
Wysłany: 04-03-2020, 10:32   

GEO-XYZ napisał/a:
i temat udało mi się załatwic

Napisz jak się udało będzie pomocne dla innych szukających takiej pomocy
GEO-XYZ napisał/a:
ale nie działa teraz zaznaczenie ostatniego wolnego wiersza

Bez załączników nic nie poradzę ( skoroszyt i dokument worda ) tak mądry nie jestem
Janusz
ID posta: 383050 Skopiuj do schowka
 
 
GEO-XYZ 
Exceloholic


Wersja: Win Office 2013
Posty: 235
Wysłany: 04-03-2020, 10:35   

J_B,
Temat zamknięty - założę nowy wątek.
_________________
XYZ
ID posta: 383051 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe