Excelin sarakkeesta ASCII tiedosto pihalle

Gibu

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?

4

482

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Immu otti pataan

      Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!
      Kotimaiset julkkisjuorut
      217
      2984

    2. Näetkö feminismin uhkana

      Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?
      Ikävä
      213
      1309

    3. Tykkäätkö halaamisesta?

      Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo
      Maailman menoa
      119
      1289

    4. Malmin tapaus on järkyttävä

      Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi
      Maahanmuutto
      375
      1215

    5. Miksi kaivata miestä

      jolla ei edes muna toimi?
      Ikävä
      111
      1093

    6. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      10
      1050

    7. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      92
      1043

    8. Hinduilu on suurta eksytystä

      tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa
      Hindulaisuus
      405
      1008

    9. Mitkä asiat teidän elämässänne on

      Tällä hetkellä parasta?
      Ikävä
      66
      924

    10. Oot nainen kaunis

      muista hymyillä jatkossakin.
      Ikävä
      46
      914
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt