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

417

Ää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. Trump muka öljyn takia Venezuelaan? Pelkää mustamaalausta

      Kertokaapa mistä tuollainen uutisankka on saanut alkunsta? Näyttäkääpä ne alkuperäiset lähteet, minä en löytänyt mitään
      Maailman menoa
      139
      13243

    2. Kun Arman Alizad puolusti hiihtäjä Vilma Nissilää sanomalla

      "älä välitä sekopäistä Vilma", ja kun siitä kerrottiin täällä, niin sekopäinen mukasuvaitsevainen teki siitä valituksen
      Maailman menoa
      85
      3685

    3. Venezuela on hyvä esimerkki vasemmistolaisten pahuudesta

      Jokainen tietää, että Venezuelassa on pitkään ollut Chavezin ja Maduron vasemmistohallinto. Maan talous on romuttunut,
      Maailman menoa
      128
      3000

    4. Martinalta vahva viesti

      "Suuret unelmat venyttävät sinua, pelottavat vähän ja vievät mukavuusalueen ulkopuolelle. Juuri siellä kasvu tapahtuu. J
      Kotimaiset julkkisjuorut
      279
      1420

    5. Miksei Trump ole kiinnostunut Suomen valloittamisesta?

      Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?
      Maailman menoa
      37
      1393

    6. Akateemikko Martti Koskenniemi vertaa Trumpia Putiniin

      "-Suomalaisena on syytä olla huolissaan siitä, että Yhdysvallat näin vahvistaa 1800-luvun alkupuolella julistamansa etup
      Maailman menoa
      155
      1356

    7. Jos mies olet oikeasti...?

      Kiinnostunut... Pyydä mut kunnolla treffeille ja laita itsesi likoon. En voi antaa sydäntä jos sinä olet epävarma ja eh
      Ikävä
      115
      1294

    8. Esko Eerikäinen paljastaa järkyttävän muiston lapsuudesta - Isä löytyi alastomana slummista

      Esko Eerikäisen tausta on monikulttuurinen, hän muutti vain 10-vuotiaana yksin kotoaan Kolumbiasta isovanhempiensa luo S
      Suomalaiset julkkikset
      14
      1224

    9. Pitäisikö meidän

      Sitten nähdä ilman että siitä tehdään ongelmaa?
      Ikävä
      81
      1081

    10. Nautitko riidan haastamisesta?

      Itse olen hyvin kärsivällinen ja sopuisa noin yleensä, mutta osaan tarvittaessa olla hankala. Niin metsä vastaa kuin sin
      Sinkut
      205
      989
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt