Eli Excel-taulukkoon on aikanaan joku rustannut koodia, tässä tapauksessa tallennusnapin josta ko. taulukko tallennetaan. Nyt yhtäkkkiä alkoi tulla virheilmoitus:
Code execution has been interrupted.
Siis täh?!??!? Miksi? Miten voi korjata?
Tässä koodi:
Sub Painike35_Napsautettaessa()
Sheets("Toimari").Select
Dim SoluA18 As String
Dim SoluF4 As String
Dim SoluI8 As String
SoluA18 = Range("A18")
SoluF4 = Range("F4")
SoluI8 = Range("I8")
ThisWorkbook.BuiltinDocumentProperties("Subject").Value = SoluI8
Dim Polku As String
Polku = ActiveWorkbook.Path
ChDir Polku
ActiveWorkbook.SaveAs Filename:= _
Polku & "\" & SoluA18 & "_" & SoluF4 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
APUA, tallentamisnappi antaa virheilmoituksen
Jumppari-Kaisa
1
58
Vastaukset
kokeile seuraavaa
VBA editorin puolella klikkaa CTRL BREAK tai SHIFT CTRL BREAK
jos ei auta lisää sitten koodin alkuun
Application.EnableCancelKey = xlDisabled
tallenna ja buuttaa masiina
tämä toki poistaa mahdollisuuden keskeyttää makron suoritus manuaalisesti
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1824300
- 341584
Minulta loppuu aika
Halusin olla täydellinen. Nyt näyttää siltä että viimeinen kiristys jää puolitiehen, sillä h-hetki on jo ihan kohta käsi401500Syvälliset keskustelut
Olisivat tärkeintä ensisijaisesti hänen kanssaan Tulisi sellainen hetki, mutta kaikki meni pieleen251484Olisipa sitä henkisesti eheämpi ja rohkeampi
mikään maallinen mammona ei itseäni kiinnosta, eikä sen menetys kiinnostus. Mutta kun kohtaa jonkun sykäyttävän ihmisen,201375- 1121306
Moi, nainen
Tunnustan, olen heikkona sun hymyyn, ja sekään ei auta yhtään, että sulla on täydellinen nenä. Joten ensi kerralla, kun301190Kyllähän tämä vähän kirpaisee
Mutta oman sisäisen rauhan vuoksi jätän sinut nyt historiaan. Todennäköisesti olet jo sinäkin mennyt eteenpäin. Olipah381187- 191149
Sulla on uskomaton luonne
Saat minut hetkessä iloiseksi, tai sanotaan nyt niin, että ajatus sinusta saa sydämeni hyppimään riemusta. En vain saa s441038