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
397
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
JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!
Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t3912440V*ttuu että mä haluan sua
Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!914271Nolointa ikinä miehelle
On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai1094002- 513648
Eli jos toisen hiki haisee ns. omaan nenään siedettävältä
Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳533341- 1163304
Sattuma ja muutama väärinkäsitys
vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul482225- 392133
Keskusta hajoaa Palojärvi lähtee
Suomen Keskustan ryhmä hajoaa Kemijärvellä. Kalastaja Palojärvi sai tarpeekseen ja loikkasi Sitoutumattomat Aati Virkkul261955On sillä rääpyä
Tuo ex kuntajohtaja Lea Tolonen kehtaakin tulla Ähtäriin. Ajoi laivan Karille. Kari Heikkilä oikaisi taloutta, sai laiva111643