Open teksti makro

oppiskelijana

Nauhoitin makron jolla saan teksti tiedoston auki exceliin. Makro tekee tietyt muotoilu jutut. Tekstitiedosto on aina saman niminen.

Mutta miten saisin excelin kysymään, mistä kansiosta avataan?

Excel tiedoston tallennus tehdään sitten manuaalisesti.

6

722

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kunde

      avaa C aseman ja näyttää kaikki tiedostot
      Application.Dialogs(xlDialogOpen).Show "c:\*.*"

      avaa C:\temp ja näyttää kaikki txt tiedostot
      Application.Dialogs(xlDialogOpen).Show "c:\temp\*.*"

      • oof

        Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt"


      • Kunde
        oof kirjoitti:

        Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt"

        tosiaan puuttui .txt eli oikea
        Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt"


      • opiskelijana
        Kunde kirjoitti:

        tosiaan puuttui .txt eli oikea
        Application.Dialogs(xlDialogOpen).Show "c:\temp\*.txt"

        Ei tunnu oikein VBA:n logikka menevän mulla perille.
        Tälla saan kyllä tiedoston auki mutta en osaa liittää sitä muotoiluihin jotka haluaisin tehdä.
        Esimerkiksi:
        Workbooks.OpenText Filename:="C:\tlista.txt", Origin:=xlMSDOS, StartRow:= _
        1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers _
        :=True
        End Sub


      • Kunde
        opiskelijana kirjoitti:

        Ei tunnu oikein VBA:n logikka menevän mulla perille.
        Tälla saan kyllä tiedoston auki mutta en osaa liittää sitä muotoiluihin jotka haluaisin tehdä.
        Esimerkiksi:
        Workbooks.OpenText Filename:="C:\tlista.txt", Origin:=xlMSDOS, StartRow:= _
        1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers _
        :=True
        End Sub

        nyt kysyy tiedoston ja lukee polun sun makroosi
        jos tiedosto on .txt niin muuta
        ("Kaikki tiedostot(*.txt),*.txt")

        Sub Avaa()
        Dim polku As String
        On Error Resume Next
        polku = Excel.Application.GetOpenFilename("Kaikki tiedostot (*.*),*.*")
        Workbooks.OpenText Filename:=polku, Origin:=xlMSDOS, StartRow:= _
        1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers _
        :=True
        End Sub


      • oppiskelijana
        Kunde kirjoitti:

        nyt kysyy tiedoston ja lukee polun sun makroosi
        jos tiedosto on .txt niin muuta
        ("Kaikki tiedostot(*.txt),*.txt")

        Sub Avaa()
        Dim polku As String
        On Error Resume Next
        polku = Excel.Application.GetOpenFilename("Kaikki tiedostot (*.*),*.*")
        Workbooks.OpenText Filename:=polku, Origin:=xlMSDOS, StartRow:= _
        1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers _
        :=True
        End Sub

        Joo, kyllä tamä nyt toimii. Tätä halusin. Lisää VBA reeniä siis.

        Kiitos kovasti!


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. en vaan saa häntä pois

      Mielestäni pyörimästä. Onko kellekään toiselle käynyt näin? Ihastuin pakkomielteisesti noin vuosi sitten erääseen naiseen. Ei vaan katoa mielestä va
      Ikävä
      176
      2134
    2. Suomi24 kysely: ihmisten kuplautumista ei pääosin koeta vakavaksi ongelmaksi

      “Kuplautumista on mahdotonta estää. Ihmiset ovat aina viihtyneet samankaltaiset arvot ja maailmankatsomuksen jakavassa seurassa ja muodostaneet sen pe
      Suomi24 Blogi ★
      36
      1756
    3. Ohhoh! Glamourmalli Elena, 29, teetti tiimalasivartalon - Vei rahaa ja tuotti tuskaa - Katso kuvat!

      Transtaustainen glamourmalli Elena Vikström on käynyt vuosien ajan plastiikkakirurgisissa toimenpiteissä. Tästä näet lopputuloksen: https://www.suomi
      Kotimaiset julkkisjuorut
      11
      1479
    4. Ostiko Martina uuden ponin tyttärelleen, vai oliko myös Stefan itsekkin valitsemassa ponia .?

      Kiva kun on tyttärelle mielekäs harrastus annettu, ehkä vielä on tulevaisuudessa hänelle tärkeä ja valitsee sen perusteella tulevan ammatin.
      Kotimaiset julkkisjuorut
      234
      1253
    5. Sinä olet tärkeä

      Herätät minussa kunnioitusta. Kiehdot minua. En oikein saa kiinni sinusta. Ehkä juuri siksi. Aistin että sinäkin pidät minusta. Vetovoima on ollut alu
      Ihastuminen
      61
      1234
    6. Varisjärvellä mersu.

      Varisjärven tiellä tuli vanhamersu kylkiedellä mutkassa vastaan ja vähällä keulaan mutta tökkäs penkkaan, hyppäsin omasta autosta ulos ja kävin kiskas
      Suomussalmi
      16
      1072
    7. Belorf haistattaa seuraajiaan "You can hate me now"...

      Vai haistattaako lompakkoa, joka taisi viimeinkin ymmärtää häipyä Sofian ulottumattomiin ? Sofia raukka on niin typerä, että ottaa nostetta "omasta tv
      Kotimaiset julkkisjuorut
      59
      993
    8. Mitähän ajattelet J

      Tästä kaikesta? Mä välitän susta oikeasti.
      Ikävä
      60
      975
    9. Wau mikä kroppa Sofialla

      Kuva instassa kun on suihkurusketuksessa. Kyllä on muodot kohdallaan, on kuin jumalainen Venus patsas. Eikä ole mitään järkyttäviä lonkero tatuointeja
      Kotimaiset julkkisjuorut
      103
      675
    Aihe