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

688

    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. Riikan kukkaronnyöri on umpisolmussa

      Kulutus ei lähde liikkeelle, koska kansalaiset eivät usko, että: – työpaikka säilyy – tulot eivät romahda – talous ei h
      Maailman menoa
      50
      3395
    2. Kuka paiskasi vauvan betoniin Oulussa?

      Nimi esiin.....
      Oulu
      34
      3045
    3. Jos vedetään mutkat suoraksi?

      Niin kumpaan ryhmään kuulut? A) Niihin, jotka menevät edellä ja tekevät? Vai B) Niihin, jotka kulkevat perässä ja ar
      Sinkut
      106
      2761
    4. Tanskan malli perustuu korkeaan ansioturvaan

      Ja vahvoihin työllisyys- ja kotoutumispalveluihin. Suomessa Riikka on leikannut juuri näitä: palkkatukea, työttömyysturv
      Maailman menoa
      42
      2503
    5. Vain vasemmistolaiset ovat aitoja suomalaisia

      Esimerkiksi persut ovat ulkomaalaisen pääomasijoittajan edunvalvojia, eivät auta köyhiä suomalaisia.
      Maailman menoa
      51
      1955
    6. Anteeksipyyntöni

      Jätän tähän anteeksipyyntöni sinulle, koska en voi sanoa sitä missään muuallakaan. Pyydän anteeksi, jos purkamani tuska
      Järki ja tunteet
      15
      1599
    7. Miten must tuntuu

      et sä ajattelet mua just nyt
      Ikävä
      32
      1483
    8. Sydämeni valtiaalle

      En täältä aio asioita kysellä. Haluan tuoda tiedoksesi, että pohjimmiltani en ihmisiä tahdo satuttaa ja ajattelen muiden
      Ikävä
      106
      1297
    9. Kun et vain tajua että

      sua lähestytään feikkiprofiililla :D Hanki aivot :D m-n
      Ikävä
      180
      1231
    10. En vain unohda

      Sitä miten rakastuneesti olet minua katsonut. Oliko tunteet liian suuria että niistä olisi voinut puhua.
      Ikävä
      73
      1080
    Aihe