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
513
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
Vesikin maksaa, miksei hengitysilma?
Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial11586Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin
Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras991517Lahkokasteen ja kristillisen kasteen erot
Raamatun mukaan Kristillisessä yhdessä kasteessa Jumala pesee ja puhdistaa ihmisen sydämen ja poistaa perisynnin kirouks4221051Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä
Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva208978- 124849
Heikki Paasosen Marita-vaimo jätti tunteikkaat jäähyväiset: "Tällä kertaa me..."
Heikki Paasonen on naimisissa Marita Paasosen (os. Alatalo) kanssa ja heillä on kaksi pientä lasta. Nyt koitti aika jätt2797Kuka omistaa keltaisen vanhan aravan?
Pitäs saada rakennuksen omistajaan yhteys, rappukäytävät on siivottomassa kunnossa. Hiekkaa ja roskia rappusissa, lisäks29770Pirkanlinna yleisötapahtuma
Oli todella hyvä tilaisuus. Ja EERO. L. Aivan mahtava tyyppi. Veti rennosti ja asiallisesti. Ja yleisöltä hyviä kysymyks42751- 7734
- 61710