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ä
      83
      1236

    2. Lavroville taitaa olla jo ikkuna raollaan?

      Lavrovin syytä välttää korkeita paikkoja ja ikkunoiden läheisyyttä.Ettei vain keikahda ikkunasta pihalle.
      Maailman menoa
      121
      699

    3. Haittaako jos

      kaivattusi käy tosi usein pissalla ja/tai kakalla?
      Ikävä
      25
      645

    4. Eikös se mene niin että Jumala loi maailman ihmisille eikä päinvastoin

      joten saatana yrittää vääristää ja jota nyt vouhotetaan??? https://keskustelu.kaksplus.fi/threads/bovaer-tutkimuksissa-
      Maailman menoa
      88
      454

    5. Arvaa mitä mies

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

    6. Puuilo pittäis tulla Haapaveelle

      Kaikki perskatti menee ylivieskaan ja ei Haapaveelle! Miksi ? Ylivieskaan on tullu monet liikkeet ja lissää tullee. Mitä
      Haapavesi
      38
      326

    7. Mies mä oon ihan helppo

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

    8. Hyvää yötä

      Janne niminen mies🥰
      Ikävä
      1
      103

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

      "KOKAIINILLAKO?"!!!
      Maailman menoa
      0
      90

    10. 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
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt