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ä.
Taulukon osan tallennus?
Aivot nyrjähtää
4
418
Vastaukset
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.... 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 SubKiitos
Mahtavaa, toimii hienosti.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
6 kW saunan lämmityksestä kohta 10 euron lisämaksu / kerta
Kokoomuslainen sähköyhtiöiden hallitsema Energiavirasto ehdottaa 5 kW:n rajaa, jonka ylittämisestä tulee lisämaksu. Tark3178683Duunarit hylkäsivät vasemmistoliiton, siitä tuli feministinaisten puolue
Pääluottamusmies Jari Myllykoski liittyi vasemmistoliittoon, koska se oli duunarien puolue. Sitä samaa puoluetta ei enää2054747Olen väsynyt tähän
En osaa lopettaa ja koen huonoa omaatuntoa tästä. Kaikki on muutenkin turhaa ja tekemisesi sattuvat. Tunteita on vain hy353810Oppiiko vasemmistolaiset valehtelun jo kotonaan?
Sillä vasemmistolaiset/äärivasemmistolaiset valehtelee ja keksii asioita omasta päästään todella paljon. Esim. joku vas2002681Seuraava hallituspohja - Kokoomus, kepu, persut + KD
Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 171262268- 511796
Maailman laiskin eläin: persu
Persu ei ole eläessään laittanut rikkaa ristiin itsensä elättämiseen. Luonnossa tuollainen ei olisi mahdollista, mutta s1011789- 661743
- 1801444
Minneapolisin tapauksesta hyvä video
Runoilijan auto oli poikittain tiellä ja kun poliisit lähestyivät sitä, runotyttö painoi reippaadti kaasua. Auto syöksäh3511394