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

282

Ää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. Mieleni harhailee sinussa

      Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei
      Tunteet
      23
      5853

    2. Taposta murhaksi

      Mitä tästä tapauksesta tiedetään?
      Kajaani
      60
      1997

    3. Grilli lopettaa?

      Pitääkö huhu paikkaansa että grilli lopettaa lähiaikoina?
      Suomussalmi
      27
      1449

    4. Joko Martinalla uusi aviomies hakusessa

      Onko jo Raya sovellukseen laitettu uusi vetoomus vetämään... ja mistähän maasta mahtaa olla seuraava sulhasehdokas. Suom
      Kotimaiset julkkisjuorut
      235
      1238

    5. Pitääkö luovuttaa?

      Sano nyt edes jotain 👾
      Ikävä
      74
      1125

    6. Mitä teet nainen

      Jos saat tietää että mies on elänyt yksinäistä ja rauhallista elämää sinua kaivaten, ei ole ollut muiden naisten kanssa,
      Ikävä
      53
      1097

    7. Missä olitte kun oli teidän tähän saakka kaunein yhteinen hetki?

      Me olimme rannalla erään kiven päällä❤️
      Ikävä
      68
      1084

    8. Olet nuorempi nainen aivan ihana

      Tykkään susta ihan valtavasti ❤️❤️
      Ikävä
      51
      1052

    9. Pitkäaikaistyöttömyys Suomessa harvinaisen paha

      Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.
      Maailman menoa
      143
      1046

    10. Mitä vastaisit

      Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle
      Ikävä
      58
      995
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt