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: 64328 Skopiuj do schowka Rejestracja dokumentu Word w prostej bazie w EXCELU
Autor Wiadomość
piron17 
świeżak


Wersja: Win Office 2016
Posty: 5
Wysłany: 04-03-2019, 21:54   Rejestracja dokumentu Word w prostej bazie w EXCELU

Rejestracja dokumentu 9dane z pól szablonu dokumentu(nr kolejny, data, czego dotyczy, adresat). Rejestracja w przypadku kliknięcia przycisku REJESTRACJA - otwiera się arkusz excela do pola Sygn: [nr_kolejny] zwracany jest numer kolejny, a do arkusza zapisywane są pozostałe dane czyli z pól: data, czego dotyczy, adresat.
Próbowałem kombinować z polami korespondencji seryjnej ale nic nie wyszło

szdokpr1.dotm
Pobierz Plik ściągnięto 28 raz(y) 27.6 KB

Rejestracja.xlsx
Pobierz Plik ściągnięto 21 raz(y) 10.47 KB

ID posta: 363641 Skopiuj do schowka
 
 
apollo
ExcelSpec


Pomógł: 1234 razy
Posty: 4296
Wysłany: 04-03-2019, 23:52   

1. Otwórz plik Word -> dodaj Module1 z kodem
Kod:

Option Explicit

Sub rejestruj()
Const filename = "rejestracja.xlsx"
Const xlUp = 3
Dim numer As Long
Dim lastCell As Object, ExcelApp As Object, wb As Object
    Set ExcelApp = CreateObject("Excel.Application")
    Set wb = ExcelApp.workbooks.Open(ThisDocument.Path & "\" & filename)
    With wb.worksheets("rejdok")
        Set lastCell = .Cells(65000, "A").End(xlUp)
        If Not IsNumeric(lastCell.Value) Then
            numer = 1
        Else
            numer = lastCell.Value + 1
        End If
'        ThisDocument.FormFields("sznrkol").Range.Text = numer
        With lastCell.Offset(1)
            .Value = numer
            .Offset(0, 1).Value = ThisDocument.FormFields("szdata").Range.Text
            .Offset(0, 2).Value = ThisDocument.FormFields("sznazadr").Range.Text
            .Offset(0, 3).Value = ThisDocument.FormFields("szulica").Range.Text
            .Offset(0, 4).Value = ThisDocument.FormFields("szkod").Range.Text
            .Offset(0, 5).Value = ThisDocument.FormFields("szmiejsc").Range.Text
            .Offset(0, 6).Value = ThisDocument.FormFields("szdotyczy").Range.Text
        End With
    End With
   
    wb.Save
    wb.Close
    ExcelApp.Quit
   
    Set wb = Nothing
    Set ExcelApp = Nothing
End Sub


2. W macro od przycisku Rejestracja daj jedną linię
Kod:

rejestruj

lub

Call rejestruj


Jedna linia kodu jest komentowana. Jeśli chcesz ją wykonać to chyba trzeba zdjąć ochronę pliku.
ID posta: 363643 Skopiuj do schowka
 
 
piron17 
świeżak


Wersja: Win Office 2016
Posty: 5
Wysłany: 05-03-2019, 11:59   Uznanie dla wiedzy i umiejętności

Jestem pod wrażeniem. O to właśnie się rozchodziło. Serdeczne dzięki. Pozdrawiam
ID posta: 363659 Skopiuj do schowka
 
 
piron17 
świeżak


Wersja: Win Office 2016
Posty: 5
Wysłany: 05-03-2019, 22:05   cd tematu

Zrobiłem tak jak napisałeś ale nie chodzi. Szczegóły w załączniku

kod.JPG
Plik ściągnięto 15 raz(y) 92.89 KB

ID posta: 363702 Skopiuj do schowka
 
 
apollo
ExcelSpec


Pomógł: 1234 razy
Posty: 4296
Wysłany: 05-03-2019, 23:33   

1. Ja pracuję tylko z plikiem Excel, Word. Z obrazem już nie.

2. Plik rejestracja.xlsx i plik Word z kodem muszą być w tym samym katalogu. Jeśli jest inaczej to trzeba podać, gdzie znajduje się plik rejestracja.xlsx. Bo kod nie przeszukuje całego dysku twardego, żeby znaleźć plik rejestracja.xlsx. Poza tym nawet wtedy i tak kod nie będzie wiedział, który plik ładować, jeśli znajdzie kilka plików o tej samej nazwie. Często na dysku w różnych katalogach są pliki o tej samej nazwie.

W razie czego trzeba dołączyć pliki word i excel. Nikt nie będzie sprawdzał na obrazie.
ID posta: 363705 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