..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Zapiranje tabele

Pomoč pri izdelavi makrov

Zapiranje tabele

OdgovorNapisal/-a b92 » Če nov 16, 2017 12:07 am

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
b92
 
Prispevkov: 12
Pridružen: To jun 23, 2009 3:09 pm



Matjazev.NET
 

Re: Zapiranje tabele

OdgovorNapisal/-a admin » Če nov 16, 2017 8:39 am

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
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3492
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Zapiranje tabele

OdgovorNapisal/-a b92 » Če nov 16, 2017 9:08 pm

Hvala za odgovor.
Ker je v igri več deset tabel sem jih želel sproti zapirati.
lp
b92
 
Prispevkov: 12
Pridružen: To jun 23, 2009 3:09 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 0 gostov

cron