Zapiranje tabele

[b92]

Prosim za nasvet
kako po uporabi pravilno zaprem tabelo iz katere prenašam podatke.

V neko tabelo prepisujem vsebino celice iz tabele Izracun011.xlsx.

V tabeli Izracun011.xlsx je v celici ki jo prenašam,
vpisan rezultat nekih računskih operacij.

Hvala za pomoč.

Koda: Izberi vse

Sub Makro1()

'   Prenos izračunanih polj 

    Workbooks.Open Filename:="Izracun011.xlsx"
    Range("C3").Select
    Selection.Copy
    ' ActiveWorkbook.Close SaveChanges = False  ' <----------- kako po uporabi zapreti tabelo ?
    Windows("Skupna1.xls").Activate
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues

End Sub

[admin]

Pozdravljeni,

To vprašanje spada pod VBA, zato sem ga premaknil.

Ne vem, kaj si vi predstavljate pod "pravilno zapiranje" datoteke, saj datoteko samo zaprete ali pa je ne zaprete... ne morete je pravilno/nepravilno zapreti.

Glede na vaš makro, kjer kopirate podatke iz ene datoteke v drugo pa imate verjetno težave, saj vas (verjetno) Excel sprašuje ali želite ohraniti podatke na odlagališču preden zaprete datoteko, kar je čisto logično. Vi namreč odprete datoteko, kopirate podatke na odlagališče, potem pa datoteko zaprete... Kaj pa je s podatki na odlagališču? Bolje je torej, da vi datoteko zaprete na koncu ko je celotna operacija končana... Makro mora torej biti takšen:

Koda: Izberi vse

Sub Makro1()

'   Prenos izračunanih polj 

    dim wb as workbook 	' tu si bomo zapomnili delovni zvezek
    Workbooks.Open Filename:="Izracun011.xlsx"
    set wb = ActiveWorkbook	' zapomnimo si kazalec na delovni zvezek
    Range("C3").Select
    Selection.Copy
    ' ActiveWorkbook.Close SaveChanges = False  ' <----------- kako po uporabi zapreti tabelo ?
    Windows("Skupna1.xls").Activate
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    wb.Close SaveChanges = False  ' na koncu ga zapremo

End Sub

[b92]

Hvala za odgovor.
Ker je v igri več deset tabel sem jih želel sproti zapirati.
lp