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

285

Ää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. Hyvää iltaa!

      Mikä on päivän viisaus?
      Ikävä
      16
      457

    2. Näytät kivalta kun nukut

      *zoomaa palohälyttimen kameraa*
      Ikävä
      10
      412

    3. Haittaako jos

      kaivattusi käy tosi usein pissalla ja/tai kakalla?
      Ikävä
      16
      347

    4. Arvaa mitä mies

      Aion pilata elämäsi totaalisesti. Kyllä, totaalisesti.
      Ikävä
      3
      341

    5. Mies mä oon ihan helppo

      Miehelle johon oon ihastunut. Olen harvoin ihastunut, mutta suhun olen. Ei tarvitse kuin pyytää, niin...
      Ikävä
      13
      206

    6. Hyvää yötä

      Janne niminen mies🥰
      Ikävä
      1
      103

    7. "MITES POLIITIKKOMME RUOKKIVAT SUOMEN KANSAN?"!!!

      "KOKAIINILLAKO?"!!!
      Maailman menoa
      0
      90

    8. Mies olen aika erakko nykyään

      Vanhentunutkin olen muutamana viime vuonna parikyt vuotta. Kun en ennenkään kelvannut, niin tuskin nytkään kelpaan. Lisä
      Tunteet
      0
      90

    9. Kuinka moni palstalaisista on näin hyvässä kondiksessa

      76-vuotias rokkari Rick Springfield esittelee elämäntyyliään : https://www.youtube.com/watch?v=GbxHuNy6d68
      70 plus
      3
      67

    10. Olet onnellinen sinkku

      Näin se on nähtävä.
      Ikävä
      1
      61
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt