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
3
263
Vastaukset
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
- 1642197
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1361865Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021627Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet211307- 721300
- 711264
- 2341081
- 72853
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv203772- 45770