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

423

Ää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. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      32
      11616

    2. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      30
      4551

    3. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      62
      4200

    4. Unisex-vessat

      Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
      Tunteet
      152
      3521

    5. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      243
      2773

    6. Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?

      Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin
      Maailman menoa
      138
      2499

    7. Vastuun ottaminen omasta hyvinvoinnista

      Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh
      Henkinen hyvinvointi ja mielenterveys
      218
      1968

    8. Sofia Virralle täydet 12 pistettä!

      Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.
      Maailman menoa
      377
      1375

    9. Kuvaile kaivattusi

      ulkonäkö. Asiattomatkin kommentit saa laittaa. -🏚️
      Ikävä
      87
      1371

    10. Miksi Hotelli Kainuuta dissataan?

      Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta
      Kuhmo
      20
      1007
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt