APUA, tallentamisnappi antaa virheilmoituksen

Jumppari-Kaisa

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

1

60

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Eelin, 20, itsemurhakirje - Suomalaisen terveydenhuollon virhe maksoi nuoren elämän

      Yksikin mielenterveysongelmien takia menetetty nuori on liikaa. Masennusta sairastava Eeli Syrjälä, 20, ehti asua ensi
      Maailman menoa
      89
      2142

    2. En löydä sinua

      En löydä sinua täältä, etkä sinä varmaankaan minua. Ennen kirjoitin selkeillä tunnisteilla, nyt jätän ne pois. Varmaan k
      Ikävä
      22
      2131

    3. Mihin kaivattusi

      Ja sinun juttusi kaatui?
      Ikävä
      46
      1861

    4. Mihin se sysipska hävisi?

      Katso Frida Kahlo elämäkerta ja opi.
      Ikävä
      32
      1517

    5. Hajoaako persut kuten 2017?

      https://www.is.fi/politiikka/art-2000011217813.html Tämä on totisinta totta. Persut on murroksessa. Osa jättää puolueen
      Maailman menoa
      213
      1452

    6. Kamala uutinen: Henkilö kuoli Tokmannin pihaan Kankaanpäässä- Jäi trukin alle

      IL 9.5.2025 Ihminen kuoli Kankaanpään Tokmannin edustalla perjantaina aamupäivästä. Poliisin mukaan henkilö oli jäänyt
      Kankaanpää
      36
      1349

    7. Opettelen sun jokaisen virheen

      ja rakastan sua.
      Ikävä
      30
      1316

    8. Mitä uskot sinun

      Ja kaivattusi välillä tulevan tapahtumaan lähiaikoina
      Ikävä
      95
      1131

    9. Ne oli ne hymyt

      Mitä vaihdettiin. Siksi mulla on taas niin järjetön ikävä. Jos haluat musta eroon päästä niin älä huomioi mua. Muuten kä
      Ikävä
      20
      1026

    10. Aivottomat

      Illalla yritin nukkua vuokratalossa. Klo 22.30 - 24.00 välillä 5 autoa ajoi rapun eteen, nuoria kuskaten. Eikö tule mie
      Kuhmo
      23
      867
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt