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
      488
      1835

    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
      378
      1557

    3. 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
      1368

    4. 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
      17
      1350

    5. Et saa mua ikinä

      Oma vikasi. Naiselta.
      Ikävä
      103
      945

    6. Ketä ikävöit?

      Tuntomerkkejä jos täällä oikeat kohtaavat❤️
      Ikävä
      51
      909

    7. JM lukkoliike

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

    8. Pankin avajaiset

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

    9. Miten kesäsi meni?

      Oletko tyytyväinen siihen? Oliko kaivattusi mielessäsi? Lähennyitkö vai etäännyitkö hänen kanssaan?
      Ikävä
      65
      756

    10. 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
      7
      742
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt