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
518
Vastaukset 4
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
Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas
Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei171154Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää1301078- 571018
- 109969
Kunnanhallitus
Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.55892- 80846
Rauha, sopiiko
Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.85842Miesten (epä)viehättävyydestä kysymys
Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev169811- 77771
Ei siitä pääse yli, eikä ympäri!
Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle66741- 33628
- 70606
- 98598
- 55569
- 60524
Humppila korvasi johtajia tekoälyllä
https://yle.fi/a/74-20215155 Humppilassa on lakkautettu teknisen ja hallintojohtajan virat. Säästöä tuli hetkessä 15080523Myönnetään, tunnen lämpimiä tunteita kohtaasi
Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....37513- 35507
Mnot, miksi sinulle on tärkeää solvata uskovia?
Onko sinulla joku katkeruus tai peräti viha heitä kohtaan? Kirjoituksesi nimittäin tihkuvat katkeruutta ja vihaa uskovi278470- 38423