Tiedoston avaus listasta

avusta kiitollinen

Pikku ongelma tiedostojen yhdistelyssä, jeesatkaa ..............

Kuinkahan saisi makron avaamaan halutun kansion(esim: C:\Documents and Settings\xxxxxxx\Desktop\Omat), ja sieltä saisi valittua tiedoston klikkaamalla formiin vastaukseksi (esim: Testi)

3

287

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub AvaaOmaKansio()
      Dim Palautus As Variant
      ChDir "C:\Documents and Settings\xxxxxxx\Desktop\Omat\"
      Palautus = Application.GetOpenFilename("Kaikki Excel tiedostot (*.xl*)," & "*.xl*", 1, "Valitse Tiedosto", "Open", False)
      If TypeName(Palautus) = "Boolean" Then
      Exit Sub
      End If
      Workbooks.Open Palautus
      End Sub

      Sub AvaaOmaKansio2()
      Dim Palautus As Variant
      ChDir "C:\Documents and Settings\xxxxxxx\Desktop\Omat\"
      Palautus = Application.Dialogs(xlDialogOpen).Show
      If TypeName(Palautus) = "Boolean" Then
      Exit Sub
      End If
      Workbooks.Open Palautus
      End Sub

      Keep Excelling
      @Kunde

      • avusta kiitollinen

        Tack, sain avattua tiedoston kyllä, mutten ymmärrä kuinka saan siirrettyä halutun tiedoston nimen vielä Taul1 soluun a1.
        Ilmaisin itesäni ilmeisen huonosti, tarkoitukseni ei ole avata tiedostoa, vain poimia tiedostonimi talteen

      • kunde
        avusta kiitollinen kirjoitti:

        Tack, sain avattua tiedoston kyllä, mutten ymmärrä kuinka saan siirrettyä halutun tiedoston nimen vielä Taul1 soluun a1.
        Ilmaisin itesäni ilmeisen huonosti, tarkoitukseni ei ole avata tiedostoa, vain poimia tiedostonimi talteen

        muutetut versiot...
        Sub AvaaOmaKansio()
        Dim Palautus As Variant
        ChDir "C:\Documents and Settings\xxxxxxx\Desktop\Omat\"
        Palautus = Application.GetOpenFilename("Kaikki Excel tiedostot (*.xl*)," & "*.xl*", 1, "Valitse Tiedosto", "Open", False)
        If TypeName(Palautus) = "Boolean" Then
        Exit Sub
        End If
        'Workbooks.Open Palautus
        Range("Taul1!A1") = Mid(Palautus, InStr(1, Palautus, "\") 1, Len(Palautus) - InStr(1, Palautus, "\") - 4)
        End Sub

        Sub AvaaOmaKansio2()
        Dim Palautus As Variant
        ChDir "C:\Documents and Settings\xxxxxxx\Desktop\Omat\"
        Palautus = Application.Dialogs(xlDialogOpen).Show
        If TypeName(Palautus) = "Boolean" Then
        Exit Sub
        End If
        'Workbooks.Open Palautus
        Range("Taul1!A1") = Mid(Palautus, InStr(1, Palautus, "\") 1, Len(Palautus) - InStr(1, Palautus, "\") - 4)
        End Sub
        Keep Excelling
        @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille

      Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest
      Maailman menoa
      60
      5894

    2. Yritystuet pois ja työeläkevaroilla maksettava valtion velka pois

      Nyt on teille kerrottu keino kuinka Suomen velkaongelmasta päästää eroon kertalaakista. Älkää saatanat enää minulle tul
      Maailman menoa
      113
      5236

    3. Suomen kansa puhunut: Purra huonoimpia ministereitä

      Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden
      Maailman menoa
      361
      4043

    4. Ylen juttu sisäministeristä oli selvän tarkoitushakuinen

      haluttiin vielä vuoden loppuun saada joku "kohu". (Olisiko Yle tehnyt jutun jos sisäministerinä olisi esim. RKP:n, jota
      Maailman menoa
      143
      3289

    5. Suomalaista yrittäjää ei kommunistista erota

      Muualla maailmassa yrittäjät elävät asiakkaiden rahoilla, Suomessa palkansaajien maksamilla veroilla. Palkansaajahan ma
      Maailman menoa
      52
      2771

    6. Käykö tiekarhu tasapuolisesti Hyrynsalmen teillä??

      Mitä olette mieltä?
      Hyrynsalmi
      26
      2123

    7. Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?

      Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed
      Maailman menoa
      127
      2111

    8. Ulkoministeriön konsulipäällikkö arvostelee rajusti Haavistoa: "Täällä on pelon ilmapiiri"

      "– Täällä on ministerin toimien takia aivan selvästi pelon ilmapiiri. Jos sellaisen annetaan pesiytyä virkamieskulttuuri
      Maailman menoa
      10
      1927

    9. Pyydän anteeksi etten osannut ratkaista

      Mitään muuta kuin lähtemällä. Et oikein tullut vastaan etkä kuunnellut. Tuntui että minun piti koittaa sopia ja sovitell
      Ikävä
      84
      1916

    10. Mikä on pahinta

      Mitä kaivattusi voisi tehdä sinulle?
      Ikävä
      249
      1896
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt