Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Makro zwraca błąd, że plik jest otwarty przez kogoś innego -

zmimar · Świeżak Wersja: Win Office 2016 Posty: 7

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

zmimar · Świeżak Wersja: Win Office 2016 Posty: 7

Temat do zamknięcia - poradziłem sobie bez problemu tworząc plik pośredni.