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

147

    Vastaukset

    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. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      609
      2782
    2. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      107
      1462
    3. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      67
      1456
    4. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1370
    5. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      138
      1256
    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      114
      1244
    7. 101
      1058
    8. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      135
      1023
    9. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      940
    10. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      47
      881
    Aihe