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: 813 Skopiuj do schowka Wstawienie tabeli z excela do Worda
Autor Wiadomość
gravitation 
ExcelSpec



Pomógł: 33 razy
Posty: 121
Wysłany: 29-03-2007, 21:37   Wstawienie tabeli z excela do Worda

Witam!!!
Jak zmodyfikować poniższe makro aby wstawiało tabele z excela do
czwartego wiersza w Wordzie.
Kod:
Sub czytaj_dane_excel()
Dim plik_doc, plik_doc1, path, komorka
Dim dc
Dim w
    plik_doc = "Marketing-wzór.doc"
    plik_doc1 = Sheets("email").Range("C2").Value
    path = ActiveWorkbook.path
    ChDrive (Mid(path, 1, 1))
    ChDir (path)
   
    Set dc = CreateObject("Word.Application")
    dc.Application.Visible = False
   'dc.Application.Visible = True
       
    dc.Application.Documents.Open path & "\Zalacznik\" & plik_doc
 
    Debug.Print "___________________________________________"
       
    Call zaznacz_komorki_excel
       
    dc.Application.Selection.Paste False, False, False
    dc.Application.ActiveDocument.SaveAs (path & "\zalacznik\" & plik_doc1)

    dc.Application.ActiveDocument.Close
    dc.Application.Quit
    Set dc = Nothing
End Sub


Pozdrawiam gravitation!!!
ID posta: 4232 Skopiuj do schowka
 
 
Tajan


Pomógł: 5480 razy
Posty: 11920
Wysłany: 29-03-2007, 23:57   

Nie jestem fachowcem od Worda, wle wydaje mi się, że wskazanie akurat 4 wiersza nie jest zbyt łatwe. Chyba, pisząc o wierszach, masz na myśli akapity. Wtedy nie ma problemu. Natomiast, w celu odszukania czwartej linii trzeba, moim zdaniem, poszukać w tekscie 3 znaku końca wiersza i za nim wkleić zawartość schowka. Ale tego jedną instrukcja zrobić się tego nie da :-)
ID posta: 4238 Skopiuj do schowka
 
 
gravitation 
ExcelSpec



Pomógł: 33 razy
Posty: 121
Wysłany: 30-03-2007, 21:14   

Witam!!!
Trudno.
Poradziłem sobie w ten sposób, że zwiększyłem obszar
kopiowany i w tych komórkach wpisałem dane tekstowe.
Na razie tak musi być.
Pozdrawiam gravitation!!!
ID posta: 4292 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.wip.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