Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Błędy podczas pracy z plikiem (onedrive)

wiorek · Fan Excela Posty: 84

Hej,

Posiadam w firmie plik współdzielony do użytku dla 5-10 osób.
Plik zapisany jest na teamsach lub onedrivie. Plik jest otwierany do edycji w aplikacji klasycznej z racji dużej ilości makr. Po włączeniu pliku wszystko jest ok, widać kto się loguje, kto jest w jakiej zakładce i co robi. Problem pojawia się w momencie kiedy pierwszy z pracowników wysyła dane na serwer ( plik zamienia arkusz na dane z txt, zapisuje jako txt, tworzy i wysyła emaila z załącznikiem ) - po tej operacji wyskakują błędy odnośnie konieczności ponownego zapisania, scalenia komórek itp .. Ponownie każdy z użytkowników musi uruchomić plik, inaczej nie widać kto co robi, gdzie pracuje - jest to o tyle ważne, że co około pół godziny jest aktualizacja ( w tym momencie automatyczna, ale z racji wykrzaczania, trzeba wykonywać te czynności manualnie ... ) a przy aktualizacji nowe linijki dodają się w nowym kolorze itp - więc to musi być. Dodatkowo gdy próbuje ppm na one drivie udostępnić zamienia nazwę skoroszytu dodaje (1),(2) itp.
Proszę o pomoc :-(

Screenshot 2020-09-23 122225.png

Plik ściągnięto 377 raz(y) 7.49 KB

wiorek · Fan Excela Posty: 84

Przepraszam, ale nie mogę w jednej wiadomości dodać kilku załączników.

problem2.png

Plik ściągnięto 11 raz(y) 68.25 KB

Rafał B. · Wysłany: 23-09-2020, 19:22

Nie wiem czy coś poprawiono w najnowszych wersjach Office, moje doświadczenia ze współdzieleniem plików Excela (wersje 2016 i starsze) są fatalne- same dziwaczne problemy niezależnie od rodzaju chmury czy dysku. Może ktoś z bardziej doświadczonych użytkowników w tym względzie się wypowie. Jeśli niestety dalej lipa, to proponuję trzymanie danych w bazie zewnętrznej, a udostępnienie klientom osobnych kopii pliku (bo rozumiem, że "duża ilość makr" wyklucza arkusze Googla) .

marzatela · Wysłany: 23-09-2020, 20:02

Z mojego osobistego doświadczenia wynika, że udostępnione pliki z makrami mogą powodować problemy. Oczywiście wszystko zależy od tego, jakie to makra, ale mogą się pojawić problemy.

wiorek · Fan Excela Posty: 84

Ogólnie plik działa do momentu wysłania danych na serwer.
Jego działanie jest takie :
Pracownicy otrzymują plik z aktualnymi danymi za dany dzień, koordynator co godzine odświeża dane / dodaje nowe pozycje, które mają być automatycznie odświeżone w ich zakładkach - po aktualizacji wywala pierwsze błędy.
Następnie pracownicy po obrobieniu pliku wysyłają go na serwer - ich zakładka konwertuje się z wybranymi kolumnami na txt zapisuje jako załącznik i wysyła @ na serwer - po tej operacji 100% braku możliwości dalszej pracy.
Zgłosiłem problem do Microsoftu, zobaczymy jaka będzie odpowiedź. Mimo wszystko może ktoś ma sposób na jakieś obejście :)

Artik · Wersja: Win Office 365 **Pomógł:** 3092 razy Posty: 10242

Moim zdaniem istotnym jest co te makra robią. Należy pamiętać, że wielu rzeczy nie można robić w pliku udostępnionym. Sprawdź, czy makra próbują wykonać zabronione czynności. Istotnym jest także w jaki sposób dane są odświeżane (działanie koordynatora) oraz w jaki sposób przygotowywane, zapisywane i wysyłane są dane na serwer.
Bez konkretnych makr, ogólnie nie da się więcej doradzić.

Aaaa, i z jakiego typu udostępniania korzystasz? W starej wersji, czy w nowej?

Artik

wiorek · Fan Excela Posty: 84

Artik · Wersja: Win Office 365 **Pomógł:** 3092 razy Posty: 10242

Po analizie makra dochodzę do wniosku, że prawdopodobną przyczyną problemów jest dwukrotne naruszenie struktury arkusza "wyślij" (nawet jednokrotne to już za dużo :-)

). W arkuszu tym usuwasz kolumny A:E a następnie wiersze 2:5.
Przebuduj makro tak, by nie usuwać wierszy/kolumn z arkusza.
Daj znać, czy pomogło.

A Twoje pierwotne makro, po oczyszczeniu, może wyglądać jak poniżej. Bez kupy Select-ów i niepotrzebnych kopiowań.

Kod:

Sub przeslij()
Dim kzbioru As Long
Dim wsName As Variant
Dim OutApp As Object, OutMail As Object
Dim wksActv As Worksheet
Dim wksWyslij As Worksheet
Dim wksBaza As Worksheet
Dim wkb As Workbook
Dim csvFile As String

Set wksActv = ActiveSheet
Set wksWyslij = Worksheets("Wyslij")
Set wksBaza = Worksheets("Baza")

kzbioru = wksActv.Range("A" & Rows.Count).End(xlUp).Row

wksWyslij.Range("A:F").ClearContents

With wksBaza
.Range("A3").Copy .Range("AD6:AD" & kzbioru)
.Range("A:A,AB:AB,AC:AC,AD:AD").Copy wksWyslij.Range("A1")
End With

With wksWyslij
kzbioru = .Range("A" & Rows.Count).End(xlUp).Row

With .Range("E6:E" & kzbioru)
.FormulaR1C1 = "=RC[-4]&"";""&RC[-3]&"";""&RC[-2]&"";""&RC[-1]"
.Value = .Value
End With

.Range("F1:F" & kzbioru).Value = .Range("E1:E" & kzbioru).Value

.Columns("A:E").Delete Shift:=xlToLeft

.Range("A1").Value = wksBaza.Range("G1").Value
.Rows("2:5").Delete Shift:=xlUp

csvFile = ThisWorkbook.Path & "\" & "wyslij" & Format(Now(), "dd-mm-yyyyhhmmss") & ".txt"

.Copy
End With

Set wkb = ActiveWorkbook

wkb.SaveAs Filename:=csvFile, FileFormat:=xlText
wkb.Close False

'Email

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "podany adres serwera" 'ustaw odbiorce
.CC = ""
.BCC = ""
.Subject = "txt"
.Body = "Plik txt"
.Attachments.Add csvFile

.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

'Usun po wyslaniu
' Kill csvFiles(1)

With wksBaza
.Select
.Range("A6").Select
End With
End Sub

Artik

Rafał B. · Wysłany: 29-09-2020, 17:45

Pozwolę sobie wtrącić między wódkę a zakąskę ;)
Jeśli zależy nam na "późnym wiązaniu" i jednoczesnie niezawodności, to na linijkę

Cytat:

Set OutApp = CreateObject("Outlook.Application")

trzeba dać poprawkę opisaną m.in. tutaj:
www.rondebruin.nl
W innym przypadku to tylko kwestia czasu wystąpienia dziwnych problemów. Pewnie @Oshon mógłby więcej na ten temat powiedzieć; po prostu Outlook zachowuje się inaczej pod tym względem niż reszta komponentów pakietu Office.

wiorek · Fan Excela Posty: 84

Rafał B. · Wysłany: 30-09-2020, 16:54

Dlaczego zignorowałeś poniższą wskazówkę?

wiorek · Fan Excela Posty: 84