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
407
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
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2224266Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii692745Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava3932421- 472353
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua421629Muutama kysymys ja huomio hindulaisesta kulttuurista.
Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul5451377- 571330
Jos ei tiedä mitä toisesta haluaa
Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em961324- 761311
Jumala puhui minulle
Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles1251196