VB Avaa tiedosto hakemistosta

PirunTärkeä

Millä koodilla saa avattua hakemistopuuikkunan, josta voi valita avattavan tiedoston? Tarviisin "päätaulukkoon" koodin, jonka avulla taulukon kaveriksi voisi avata toisen vapaavalintaisen taulukon, mitä käytetään yhdistellessä tietoja.

3

151

    Vastaukset 3

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
      • PirunTärkeä

        Kiitos paljon Kunde. Toimii nyt loistavasti ja voi avata useammankin kerralla. Tuli vain uusi ongelma; kun avaa .csv tiedoston esim. suoraan Excelistä tai vaikka tiedostonhallinnasta klikkaamalla ilman Exceliä, tiedot tulee oikein sarakkeisiin. Mutta kun avaan sen makron avulla, tiedosto aukeaakin kuten tekstitiedostoa tuodessa. Tämä ei olisi ongelma ( sain makrolla tuotua ne oikein sarakkeisiin ), mutta en voi tuoda kaikkea tekstinä. Jossain sarakkeessa voi olla pvm ja se taas voi vaihdella missä sarakkeessa. Jälkikäteen tekstimuotoa en saa muutettua oikeaksi ellen muotoilun jälkeen tuplaklikkaa solua. Saako siis koodilla kerrottua, että toisi tiedoston "normaalisti"?


      • PirunTärkeä
        PirunTärkeä kirjoitti:

        Kiitos paljon Kunde. Toimii nyt loistavasti ja voi avata useammankin kerralla. Tuli vain uusi ongelma; kun avaa .csv tiedoston esim. suoraan Excelistä tai vaikka tiedostonhallinnasta klikkaamalla ilman Exceliä, tiedot tulee oikein sarakkeisiin. Mutta kun avaan sen makron avulla, tiedosto aukeaakin kuten tekstitiedostoa tuodessa. Tämä ei olisi ongelma ( sain makrolla tuotua ne oikein sarakkeisiin ), mutta en voi tuoda kaikkea tekstinä. Jossain sarakkeessa voi olla pvm ja se taas voi vaihdella missä sarakkeessa. Jälkikäteen tekstimuotoa en saa muutettua oikeaksi ellen muotoilun jälkeen tuplaklikkaa solua. Saako siis koodilla kerrottua, että toisi tiedoston "normaalisti"?

        Hei,

        Nyt sainkin kun löysin tällaisen pätkän:

        Workbooks.OpenText Filename:=AvattavanTiedostonNimi, _
        DataType:=xlDelimited, Semicolon:=True, Local:=True

        Kun CSV tiedostoa makrolla tuotaessa oli pvm muotoa yyyy.mm.dd, niin nyt se tulee kuten pitää d.m.y

        Paljon kiitoksia.


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

    Luetuimmat keskustelut

    1. Kuollut teini Kajaanissa

      Kuulemma sellaista huhua liikkeessä?
      Kajaani
      10
      1869
    2. Perhoseni (miehelle)

      Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r
      Ikävä
      167
      1088
    3. Totta on asia. Jeffrey Cohen on jättänyt Sofian.

      Vaimon viesti on paljastanut totuuden.
      Kotimaiset julkkisjuorut
      265
      991
    4. Uskallatko paljastaa

      Millä nimellä löydyn puhelimestasi?
      Ikävä
      76
      862
    5. Halaus juuri sinulle

      Kaikki järjestyy kyllä. Luota vain. ❤️🫶
      Ikävä
      63
      788
    6. Uskaltaisitko

      Tavata kaivattusi tässä tilanteessa?
      Ikävä
      75
      751
    7. Mies, näetkö minut myös

      Seksuaalisena ihmisenä ja naisena? Haluatko minua seksuaalisesti? Vai olenko mielestäsi tyttönen?
      Ikävä
      22
      696
    8. Kuinkahan monen

      Naisen puolisoa olet nainen vikitellyt ja eron aiheuttanut? Toivottavasti karma on ku*sut muroihisi useamman kuin kerran
      Ikävä
      69
      671
    9. Nainen, mitä mieltä olet kodittomista?

      Ja heistä jotka eivät kykene huolehtimaan asioistaan, itsestään eikä terveydestään? Miten heidän kanssaan tulisi toimia?
      Ikävä
      138
      657
    10. Mitä sä haluat vanhus?

      🤣🤣🤣🤣🤣
      Ikävä
      62
      626
    11. Meneekö unohtamis

      Projektisi hyvin??
      Ikävä
      42
      609
    12. Mies, kumman ottaisit mieluummin

      176 cm vai 154 cm naisen, jos molemmat muuten yhtä viehättäviä? Mikä on oma pituutesi?
      Sinkut
      124
      602
    13. Voiko se ikinä toimia

      Voiko meistä ikinä tulla mitään? Näin kauan aikaa on kulunut ja mitään ei tapahdu... En usko, että sinä mietit minua het
      Ikävä
      32
      588
    14. Tekisi mieli vetäistä kunnon jurrit sinun kanssasi

      Ja keskustella asiat, ei tästä tule hevonvttua.
      Ikävä
      44
      559
    15. Kauan mökötetään toisillemme?

      Loppuelämäkö? Vai oisko jo pussailutreffit?
      Ikävä
      51
      553
    16. Voin tulla

      Sisustamaan sulle 🤭
      Ikävä
      55
      538
    17. Eikö olisi mukavaa

      Jakaa arki yhdessä mies. Tämmöisin aatoksin.
      Ikävä
      38
      519
    18. Kerro mies tarinasi

      Miksi kaikki meni niinkuin meni? Haluaisin vieläkin ymmärtää. Tuskin saan vastausta häneltä, koska etsin aavikolta juuri
      Ikävä
      20
      508
    19. Anteeksi mies

      En jaksa tätä…, en halua, että sinulla on paha mieli tämän takia. Viestiä Sinulle.
      Ikävä
      40
      503
    20. Laittaisit viestin suoraan!!

      Haluaisin...
      Ikävä
      30
      493
    Aihe