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
401
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
Saako kaunis ihminen parempaa kohtelua?
Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa1363667- 122396
En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos371955Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly211721Paljonko aikaa on kulunut siitä kun viimeksi tapasit hänet?
Päiviä? Viikkoja? Kuukausia? Vuosia?301493- 1241448
En muuttaisi sinusta mitään
Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul101311- 141246
Se oli siinä sitten
Yhdysvaltain presidentti Donald Trump on määrännyt kaiken maan Ukrainalle toimittaman sotilaallisen tuen tauolle, kertoo4781221- 761135