Taulukon osan tallennus?

Aivot nyrjähtää

Nöyrimmästi tiedustelen guruilta:
Onko mahdollista tallentaa osa taulukosta makrolla (esim alkaen solusta J4 soluun J n) joko *.scr tai *.txt päätteellä?

Ja jos tämä onnistuu, niin voisitteko vielä kertoa miten?

Tavoitteena *.scr (skripti) tiedosto jonka voi ajaa autocadissä (lt 2000).
Excelin versio 2003 käytössä.

4

410

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      voisithan sitä acadiä ohjata suoraan excelistä ilman scriptiä...
      aika paljon tullut puljattua noitten kanssa...
      mutta tossa nyt yksi tapa

      Sub Siirrä()
      Dim vika As Integer
      On Error Resume Next
      Application.DisplayAlerts = False
      Application.ScreenUpdating = False
      vika = Range("J65536").End(xlUp).Row
      Range("J4:J" & vika).Copy
      Workbooks.Add
      ActiveSheet.Paste
      ActiveWorkbook.SaveAs Filename:="C:\acad.csr", FileFormat:=xlText
      ActiveWorkbook.Close
      Application.DisplayAlerts = True
      Application.ScreenUpdating = True
      End Sub

      • Aivot nyrjähtää

        Kunde
        kiitos makrosta, sitten kysymys:
        Tallentaa tiedot, mutta miksi laittaa tallentaessa lainausmerkkejä?

        Jos taulukon solussa on teksti _point-->tallentuu _point, vaan jos on ketjutettu numerosarja 4885.96,-624.775,-1125.356-->tallentuu "4885.96,-624.775,-1125.356"
        Lainaumerkit eivät wörki scriptissä..

        Löytyisikö ratkaisua, kiitos.

        "voisithan sitä acadiä ohjata suoraan excelistä ilman scriptiä..."

        Kun ei osaa...

        Cad osaminen rajoittuu pieneen piirtelyyn ja valmiiden piirustusten katseluun....

      • kunde
        Aivot nyrjähtää kirjoitti:

        Kunde
        kiitos makrosta, sitten kysymys:
        Tallentaa tiedot, mutta miksi laittaa tallentaessa lainausmerkkejä?

        Jos taulukon solussa on teksti _point-->tallentuu _point, vaan jos on ketjutettu numerosarja 4885.96,-624.775,-1125.356-->tallentuu "4885.96,-624.775,-1125.356"
        Lainaumerkit eivät wörki scriptissä..

        Löytyisikö ratkaisua, kiitos.

        "voisithan sitä acadiä ohjata suoraan excelistä ilman scriptiä..."

        Kun ei osaa...

        Cad osaminen rajoittuu pieneen piirtelyyn ja valmiiden piirustusten katseluun....

        sorry kun muistanut et tulee noi lainausmerkit Excelillä...
        nyt kirjoittaa suoraan tekstitiedostoon...

        Sub Siirrä2()
        Dim vika As Integer
        Dim vapaa As Integer
        vika = Range("J65536").End(xlUp).Row
        vapaa = FreeFile()
        Open "C:\Acad.scr" For Output As vapaa
        For Each solu In Range("J4:J" & vika)
        Print #1, solu
        Next
        Close #1
        End Sub

      • Aivot nyrjähtää
        kunde kirjoitti:

        sorry kun muistanut et tulee noi lainausmerkit Excelillä...
        nyt kirjoittaa suoraan tekstitiedostoon...

        Sub Siirrä2()
        Dim vika As Integer
        Dim vapaa As Integer
        vika = Range("J65536").End(xlUp).Row
        vapaa = FreeFile()
        Open "C:\Acad.scr" For Output As vapaa
        For Each solu In Range("J4:J" & vika)
        Print #1, solu
        Next
        Close #1
        End Sub

        Kiitos
        Mahtavaa, toimii hienosti.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Lavrov suivaantui Stubbille perustellusti.

      Lavrov perusteli suivaantumistaan tosiasioilla Suomen tarinasta sotiemme jälkeen, tutkija Tynkkynen ja pankkihenkilö Sol
      Maailman menoa
      550
      2112

    2. Sukupuolia on vain kaksi- kohukassista tuli kova tuomio perheenisälle oikeudessa.

      https://www.iltalehti.fi/kotimaa/a/4d4db0d9-4dda-4ba6-a699-25d725683ad6 Miten näin normaalista kassissa olevasta tekstis
      Maailman menoa
      386
      1709

    3. Eronnut Janni Hussi palaa julkisuuteen - Aloittaa uudessa työssä, joka on aivan uusi pesti Suomessa

      Janni Hussi on saanut viime aikoina kohujulkisuutta, kun hänen ja Joel Harkimon avioliitto päättyi eroon kesällä 2025. H
      Suomalaiset julkkikset
      21
      1539

    4. Se ei ihan oikeasti vaatisi kuin yhden

      Tekstiviestin... Jos rakastat minua vielä toivoisin että laittaisit minulle viestiä. Rakastatko? Oletko oikeasti niin pe
      Ikävä
      64
      1408

    5. JM lukkoliike

      Mihin helvetin kuuseen te olette tällä kertaa siirtäneet Lukkoliikkeenne? Sen kerran kun ensimmäisen ja viimesen kerran
      Jämsä
      19
      1116

    6. Ketä ikävöit?

      Tuntomerkkejä jos täällä oikeat kohtaavat❤️
      Ikävä
      56
      1092

    7. Et saa mua ikinä

      Oma vikasi. Naiselta.
      Ikävä
      118
      1077

    8. Pankin avajaiset

      Osuuspankin uuden toimitilan viralliset avajaiset vetävät väkeä. Kyllä oli outo nauhan leikkaus, kun leikkaajat pyllisti
      Kuhmo
      16
      858

    9. Helena Ahti-Hallberg uudessa elämäntilanteessa - Paljastaa eläkehaaveestaan Espanjassa: "Mä.."

      Oi, kuulostaa ihanalta eläkepäivillä! Helena Ahti-Hallberg on ostanut kakkoskodin Espanjasta ja hänellä on puolisonsa ka
      Eläke
      12
      833

    10. Miten kesäsi meni?

      Oletko tyytyväinen siihen? Oliko kaivattusi mielessäsi? Lähennyitkö vai etäännyitkö hänen kanssaan?
      Ikävä
      66
      823
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt