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
488
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
- 1762135
Törkeä eläinsuojelurikos Sonkajärvellä
Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo381483Jotkut ihmiset pelkäävät syöpää sairastavaa
On hauskaa, kun kertoo jollekin, että "minulla on syöpä". Jotkut käyttäytyvät kuin se olisi tarttuva tauti. Eivät uskall1321174Se ei ihan oikeasti vaatisi kuin yhden
Tekstiviestin... Jos rakastat minua vielä toivoisin että laittaisit minulle viestiä. Rakastatko? Oletko oikeasti niin pe56932- 55866
Lavrov suivaantui Stubbille perustellusti.
Lavrov perusteli suivaantumistaan tosiasioilla Suomen tarinasta sotiemme jälkeen, tutkija Tynkkynen ja pankkihenkilö Sol252845Kääminsä polttanut taksi suomussalmella
Vieläkö sillä hermonsa menettäneellä hulluja ylinopeuksia ajavalla asiakkaansa haukkuvalla( jos ajat paska kyydin hänen20802Jorma Uotinen avaa sanaisen arkkunsa TTK-miesparista ja koko uudistuksesta: "Sehän on..."
Tanssii Tähtien Kanssa -parketilla nähdään ensimmäistä kertaa Suomessa tanssiparina miespari kauden alusta asti. Mikko S18735Aina ku nään sun kuvan
Tekis mieli kirjoittaa viesti: Moi kulta, on ikävä❣️🤗 ihan noin vain, lyhyt ja ytimekäs 😁🤭58723Sukupuolia on vain kaksi- kohukassista tuli kova tuomio perheenisälle oikeudessa.
https://www.iltalehti.fi/kotimaa/a/4d4db0d9-4dda-4ba6-a699-25d725683ad6 Miten näin normaalista kassissa olevasta tekstis202679