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

413

Ää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. Sannalla tänään vuorossa The Daily Show

      Eli nyt mennään jo satiirin puolelle. Tuohan on vähän kuten Lindströmin ohjelma Suomessa.
      Maailman menoa
      56
      7835

    2. Tanskassa lain vaatimana Bovaer tappanut nautoja ja sairastuttanut

      Samaa myrkkyä myös Suomen lehmiin ollut tuloillaan, miten teidän tilalla? https://www.agriland.ie/farming-news/bovaer-m
      Maailman menoa
      67
      5921

    3. Ruotsalaisuuden Päivän virallinen liputuspäivä poistettava VÄLITTÖMÄSTI!

      Suomen valtion ja suomalaisuuden kannalta ei ole minkäänlaisia perusteita liputtaa virallisesti ruotsalaisuuden päivää,
      Maailman menoa
      63
      5415

    4. Täysi ryöpytys Sanna Marinille ulkomailla.

      https://www.iltalehti.fi/ulkomaat/a/f699d84f-fa53-4dba-8718-2c395017fc55 Sanna Marinin kirja saa todella tylyn vastaanot
      Maailman menoa
      51
      5313

    5. Minja Koskelan "istumista" kertovassa uutisessa ei sanottu persuista mitään

      eli jälleen kerran äärivasemmistolainen valehtelee, hän kun väittää että juuri persut ovat lähetelleet Koskelalle vähemm
      Maailman menoa
      108
      4642

    6. Pekka Visuri: "Suomen on aika irrottautua Ukrainan sodasta"

      Slava Ukraina-mölinät eivät enää auta. Ukraina on sotansa hävinnyt. Nyt tarvitaan poliittista selvänäköisyyttä, reaalipo
      Maailman menoa
      108
      2359

    7. Ei välimatka meitä erottanut

      Vaan välirikko ja väärinymmärrykset. Oikeastaan henkinen välimatka on meidän välillä pieni, näin uskon. Näen koko ajan e
      Ikävä
      4
      1251

    8. Maajussi-Villen morsioehdokas Maarit ei halunnut Villeä - Tämä totuus valkeni kuvauksissa!

      Ohhoh, tekikö Maarit mielestäsi oikean ratkaisun Villen suhteen? Maajussi-Ville on herättänyt voimakkaita tunteita puol
      Maajussille morsian
      5
      1203

    9. Kohta taas mesikämmeneen

      Onneksi kaupunki ostaa mesikämmenen, niin päästään taas tekemään rahaa
      Ähtäri
      38
      1046

    10. Olin ihan varma että sä olet se oikea

      Tunteet kuitenkin kuoli käyttäytymisesi johdosta. Hyvin tehty jos oli tarkoituskin. Oppia ikä kaikki ja jotkut ei opi ko
      Ikävä
      47
      1022
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt