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
433
Vastaukset 4
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
Olen nainen pahoillani, että tykkään sinusta niin paljon, että
Haluaisin panna sua. Tuntuu vaan siltä, että olet sen suhteen ihan haluton. Ei minulle riitä pelkkä ystävyyssuhde.851219Puukotus Kajaanissa
Kuka puukotti ja ketä? https://yle.fi/a/74-20247765 Vähemmän yllättäen päihteet mainittu27769- 12754
Mieti oikeasti
Ollaan lähes tuntemattomia, mutta samalla on tämä erityinen vuosien tilanne takana, joka on ollut monella tapaa väärin.32699- 90695
- 46668
kene ajoi "kolarin"?
"Punkaharjulla Luston ja Tuppuranmäen välillä sattui tiistaina aamupäivällä liikenneonnettomuus. Poliisin mukaan Savonl14655Pahin tapa satuttaa toista
On jättää toinen vaille mitään vastausta. Erityisen kipeää se tekee sillon jos toinen ghostaa.68639Minulla on joskus ikävä sinua ja ajattelen sinua joskus.. edelleen
Olin joskus niin rakastunut sinuun. Olin onnellinen, että kohdattiin ja kun vain tiesin sinun olevan olemassa. Täytit aj27617- 57607
- 60573
- 41571
Alkaa jotenkin nyt kuvio hahmottuu täällä
Sellainen vaikutelma tästä alkaa tulla, että täällä on joku pieni porukka, joka tuntee toisensa tai ainakin pelaa samaan83569Jos kaivattusi on
Varattu niin miksi et antaisi asian olla hänen suhteen. Miksi ylipäätään vielä jatkat?46540- 43534
Hyvä on sitten, jos et sitä s*ksiä halua kanssani.
Rakastetaan vaan toisiamme, voin käydä muualla tyydyttämässä fyysisenpuolen tarpeet. Puhumalla tämäkin olisi selvinnyt.129517Nainen, tässä olen kahden vaiheilla
Toinen pitäisi valita ja kummassakin on hyvät ja huonot puolensa. Toinen olisi sellainen pysyvä mutta työläs. Toinen taa52503Kylän tielle remonttia?
Mitäköhän kylän tielle ruvetaan tekemään ku laitettu tuommoset töpsät muutamien suojateitten kohille?13502Suloinen ja herkkä
Toiset huomioiva, räväkkä, yllättävä. Ei sellaisesta voi olla pitämättä.31475Miten vuosien jälkeenkin tunteet voivat olla niin voimakkaat?
Että pelkkä ajatus sinusta täyttää silmät kyynelistä.27457