[Vjeko]

Autor Vjeko

To vec zvuci dobro - ici cu onda tim rijesenjem.
Javim se ako zapnem

Hvala ti!

EDIT: I naletio sam na problem da excel iz nekog razloga nece da importira .slk datoteku. Kada ju pretvorim u .xls onda importira a to bih preskocio.
Interesantno je da excel inace otvara .slk bez problema

Vracam se na makro jer makro uzima podatke iz zatvorene .slk datoteke bez problema.

trenutno mi makro izgleda ovako:

Sub import_click()

    Call deletedatasheet

    Call CopySheetFromClosedWB
    
    Call Time

End Sub

Sub deletedatasheet()
    Dim ws As Worksheet

    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = "Kapa" Then
            ws.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub

Sub CopySheetFromClosedWB()
Application.ScreenUpdating = False
 
    Set closedBook = Workbooks.Open("C:\Users\Manuel\Documents\SAP\SAP GUI\Kapa.SLK")
    closedBook.Sheets("Kapa").Copy before:=ThisWorkbook.Sheets(1)
    closedBook.Close SaveChanges:=False
 
Application.ScreenUpdating = True
End Sub
Sub Time()
Application.OnTime Now() + TimeValue("10:15:00"), "import_click"
End Sub

Problem na koji sam naletio da mi ovaj kod svaki puta obrise "Kapa" worksheet i napravi novi. Generalno je OK ali problem je sto ostali worksheetovi izgube poveznicu na "Kapa" kada se taj worksheet obrise i napravi novi i sve skupa onda ne radi.

Kako da prepravim kod da umjesto da obrise "Kapa" worksheet, da obrise sadrzaj unutra i onda importira podatke?
Na taj nacin bi poveznice trebale ostati raditi - nadam se.

EDIT2: Palo mi napamet da mozda preko MS Acces prikupljam podatke iz exportiranih tablica (to funkionira) i da ih onda distribuiram ili u excel ili powerpoint?
Mozda je to prakticnije rijesenje od makroa?