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)
Tiedoston avaus listasta
avusta kiitollinen
3
303
Vastaukset 3
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 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 talteenmuutetut 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ä.
Luetuimmat keskustelut
- 781260
Viesti sinulle
Tiedät että tunteet ja ajatukset ja meillä on vahva yhteys mistä molemmat tiedetään. Odotan sinua ☀️48965Mikä on totta mikä ei?
Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?15857- 71827
- 82801
- 151754
Miksi meille jäi
Niin huonot välit vaikka meistä kumpikaan ei ole tunteilleen mitään voinut. Ehkä se kohtalo on sitä mieltä ettei kuitenk40732Mitä sinulle on tapahtunut lapsena
Kun olet noin sairas päästäsi? Pikkupojalle ( Miehen kehossa)80729- 68727
Haluan purkaa vielä tuntemuksia
Tykkään sinusta kovin paljon❤️ olen surullinen tilanteestasi ja siitä mitä me olemme yhdessä joutuneet kokemaan. Tämä ei21657Rakas, rakkaampi, rakkain
Olen tullut siihen johtopäätökseen, ettei minun kannata rakastaa. Kaikki joita olen koskaan rakastanut vain kohtelevat m121605Tunteiden käsittely kertoo ihmisestä.
Kun puhutaan "tavallisesta" ihmisestä, joka on suht tasapainoinen eläjä, niin puhutaan oikeastaan taitavasta tunteiden k203598- 59591
Sara Sieppi ja hissi tänään
Voi helvetin helvetti. Nytkö tätä naikkosta täytyy palvoa ja antaa etuoikeus hissiin, kun hän on vääntänyt kakaran maail115555Persujen Puhoksen retki
Perussuomalaiset olivat tehneet turistibussimatkan Puhokseen. Tosin raukat olivat niin peloissaan, etteivät uskaltaneet175530- 90528
Työttömän miehen ihmisarvo
..parisuhdemarkkinoilla on olematon. Työtön mies on naisille ihmisjätettä, varsinkin jos sattuu olemaan vielä kunnolline123512Ketä ajattelen
kun mietin, mitä sinulle kuuluu? En tunne sinua oikeasti, ja se on ehkä hyvä, koska jos tietäisin enemmän, se varmaan v18510- 95490
YLINEN pilaa Ähtärin mahdollisuudet.
Vuodeosastopäätös jossa Nina Ylinen (sdp) äänesti niiden lopettamisen puolesta, hoitajille potkut ja silti arviointimene25466