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: 70553 Skopiuj do schowka Makro zwraca błąd, że plik jest otwarty przez kogoś innego -
Autor Wiadomość
zmimar 
Świeżak


Wersja: Win Office 2016
Posty: 7
Wysłany: 30-03-2021, 22:29   Makro zwraca błąd, że plik jest otwarty przez kogoś innego -

Witam!

Kolejny raz potrzebuję pomocy:

W Pliku roboczym za pomocą power query wyciągam dane z pliku źródłowego. Plik aktualizuje się w momencie otwierania i co 60 minut.

Pliki znajdują się w różnych lokalizacjach - plik źródłowy jest wrzucony na serwerze i korzysta z niego kilka osób, dlatego aby go wzajemnie nie blokować pomysł z makrem przenoszącym do niego dane, zapisaniem w nim zmian i automatycznym zamknięciem.

Dane do przeniesienia znajdują się w wierszach 6613:6637 (może jeszcze przy okazji jakiś sprytny sposób aby po zaktualizowaniu danych z pliku źródłowego ukrywały się wiersze w których niema wprowadzonych wartości)

W D2 mam łącze przenoszące na dół pliku do miejsca gdzie wprowadzam dane.

Niestety w momencie uruchomienia makra po chwili wyskakuje błąd, że plik jest już otwarty i makro zatrzymuje się na wierszu save.

Kod:

Sub dodaj()
    Dim fileName As Workbook
    Dim path As String
    Dim sheetName As String
    Dim b As Boolean


    path = "\\PLLUB-NT0010\HOME$\zmimar\Desktop\przykładowy\plik z danymi.xlsm"
    Set fileName = Workbooks.Open(path)
   
    ThisWorkbook.Activate
    For wiersz = 6613 To 6637
        sheetName = Range("N" & wiersz)
        If sheetName <> "" Then
            With fileName.Worksheets(sheetName)
                wwrs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                .Cells(wwrs, 1) = Cells(wiersz, 8)
                .Cells(wwrs, 2) = Cells(wiersz, 6)
               
            End With
        End If
    Next
    fileName.Save
    fileName.Close
Range("f6613:h6637").ClearContents
End Sub



Ma ktoś pomysł jak mogłabym zmodyfikować kod makra lub co powinnam zrobić aby wyeliminować pojawianie się błędu?


W załączniku przesyłam pliki przykładowe. Oczywiście w rzeczywistości mają dużo więcej danych i są bardziej rozbudowane.

Ogromnie proszę o pomoc i z góry dziękuję :-)

przykład plik roboczy.zip
Pobierz Plik ściągnięto 4 raz(y) 143 KB

ID posta: 402995 Skopiuj do schowka
 
 
zmimar 
Świeżak


Wersja: Win Office 2016
Posty: 7
Wysłany: 30-03-2021, 23:03   

Temat do zamknięcia - poradziłem sobie bez problemu tworząc plik pośredni.
ID posta: 402996 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