Witam, mam następujące pytanie: gdzie tkwi problem w poniższym kodzie vba, który ma za zadanie podlinkować kolejne komórki w tabeli do źródła z innego pliku xls, znajdującego się w tym samym katalogu, co ten zawierający skrypt?
Set arkuszUmorzen = plikCal.Worksheets(1)
Set plikBudynek = Workbooks.Open(ThisWorkbook.Path & "\" & arkuszN.Cells(licznik - 4, 4).Value, UpdateLinks:=xlUpdateLinksAlways)
Set arkuszBudynek = plikBudynek.Worksheets(1)
ostatniWiersz = WorksheetFunction.Match("Razem", arkuszBudynek.Columns(1), 0)
arkuszUmorzen.Cells(licznik, licznik2).Formula = "='[" & ThisWorkbook.Path & "\" & arkuszN.Cells(licznik - 4, 4).Value & "]Arkusz1'!" & plikBudynek.Worksheets(1).Cells(ostatniWiersz, licznik2).Address(0, 0)
Teoretycznie ten fragment kodu (wg mojego oka) jest napisany zgodnie z wytycznymi, ale wynik wklejenia formuły po odpaleniu jest taki:
='C:\Users\Snoopy\Desktop\spoldzielnia\[C:\Users\Snoopy\Desktop\spoldzielnia\[umorzeniaBudynek1001.xls]Arkusz1]Arkusz1]umorzeniaBudynek1001.xls]Arkusz'!C47
Nie mam pojęcia, dlaczego ścieżki są dublowane i zagnieżdżane jedna w drugiej - albo zmęczenie, albo ślepota. Będę wdzięczny za zerknięcie