Kuinka saisin excelin tekemään tiettyyn kansioon, esimerkiksi c:\hep kansioon hep.txt tiedoston tietyn sarakkeen tekstistä, tai tietystä alueesta esim A1:A30?
Mikäli tuollaisen tiedoston saa tehtyä, voiko sille antaa nimen tietyn solussa olevan tekstin mukaan? Eli se ottaisi tiedostonnimeksi tekstin solusta B1?
Excelin sarakkeesta ASCII tiedosto pihalle
Gibu
4
496
Vastaukset
helpointa lienee kopioida alue uuteen työkirjaan ja tallentaa se elikä allaoleva kysyy aluetta ja kirjoittaa solun B1 tekstin mukaan tiedoston esim. c:\hep\hep.txt
Sub Tallenna()
Dim Alue As Range
Dim Polku As String
On Error Resume Next
Application.DisplayAlerts = False
Polku = Range("B1")
Set Alue = Application.InputBox(prompt:="Valitse sarakealue", Type:=8)
Application.ScreenUpdating = False
Alue.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=Polku, FileFormat:=xlTextMSDOS
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub- Gibu
Kiitoksia paljon! Johan helpotti :)
- Gibu
Tein edellisen makron pohjalta tällaisen yksinkertaisen pätkän:
Tiedostonimi = Range("Etusivu!D8")
Tiedostonimi2 = Range("Etusivu!D2")
ActiveWorkbook.SaveAs Filename:=Tiedostonimi
Tämä tallentaa taulukossa D8 olevassa solussa olevan tekstin tiedostonimeksi. Saanko jotenkin tehtyä nimeäsisen siten että se ottaisi mukaan myöskin tuon D2 kentässä olevan tekstin tyyliin D8D2.xls? Ja voinko määrittää tallennuspolkua erikseen? - ...
Gibu kirjoitti:
Tein edellisen makron pohjalta tällaisen yksinkertaisen pätkän:
Tiedostonimi = Range("Etusivu!D8")
Tiedostonimi2 = Range("Etusivu!D2")
ActiveWorkbook.SaveAs Filename:=Tiedostonimi
Tämä tallentaa taulukossa D8 olevassa solussa olevan tekstin tiedostonimeksi. Saanko jotenkin tehtyä nimeäsisen siten että se ottaisi mukaan myöskin tuon D2 kentässä olevan tekstin tyyliin D8D2.xls? Ja voinko määrittää tallennuspolkua erikseen?Menisikö näin
Polku="C:\hep\"
Tiedostonimi = Polku & Range("Etusivu!D8")&Range("Etusivu!D2")
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. Tark1465485Minja jytkyttää vas.liiton kannatusta ylöspäin
Alkaa raavaat duunarimiehetkin palaamaan vasemmistoliiton kannattajiksi. Eduskunnassahan on vain kaksi työntekijöiden p1363588"Mitä sä nainen tuot sitten pöytään" ?
Jos mies provaidaa ja suojelee... Pitääkö miesten kysyä tuollaisia?1263329Ekologinen kommunismi tulee voittamaan fossiilikapitalismin
Kiina on mahtitekijä uusiutuvien energialähteiden kehityksessä, ja Trump osoitus viimeisestä öljyn perään itkemisestä, m363213Mies, kerro minulle vielä jotakin aivan uniikkia
ja ainutlaatuista minkä vain me kaksi voisimme ymmärtää jos olemme sen kokeneet ja eläneet, jotta ihan varmasti tietäisi432704Oikeistopuolueiden kannatus vain 37,8 %, vasemmiston 43,0 %
Keskustaan jää 17,4 prosenttia ja loput ovat sitten mitä ovat. Mutta selvästikin Suomen kansa on vasemmalle kallellaan.432287- 232223
Hyviäkin uutisia tulossa, hallinto-oikeus asettaa toimeenpanokieltoon
Hyvinvointitalon työmaa pysähtyy. Rillankivi+energia ja vesi kytkyrahanpesu stoppaa. Tytäryhtiöiden hallitusjäsenet+kon2292166prööt prööt nyt ottaa vihervassaria pattiin!
Korvatkaa R kirjaimet L kirjaimilla ja sanokaa ääneen "Jari Kurri etsii pakoputkiautossaan jarruja".111904Gallup: Mikä on ollut mielestäsi paras tv-sarja ikinä?
Gallup: Mikä on ollut mielestäsi paras tv-sarja ikinä? Onko se joku suomalainen viihdepläjäys, brittirikossarja, amerikk931816