Avatar billede Klaus123 Mester
08. maj 2013 - 11:59 Der er 1 løsning

VBA - Ændre filsti

Hej

Jeg har lavet de to nedenstående Sub i en brugerformular
Jeg vil gerne have, at man kan skrive navnet på filen, i dette tilfælde uge19, under Private Sub Datafil_Change() således, at den overskriver uge19.txt og uge19 i Private Sub OkBrugerformular_Click().

----------------------------------
Private Sub Datafil_Change()

End Sub
----------------------------------

Private Sub OkBrugerformular_Click()

Brugerformular.Hide

Dim i As Variant
Dim j As Variant
Dim beginvalue As Variant


    Range("A5:J900").Select
    Selection.Delete Shift:=xlUp
   
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;\\filserver\wtsdesktop$\xxx\Desktop\uge19.txt", Destination _
        :=Range("$A$5"))
        .Name = "uge19"
        .FieldNames = True
        .RowNumbers = False
.
.
osv
------------------------------

Venlig hilsen

Klaus
Avatar billede Klaus123 Mester
22. juli 2013 - 07:20 #1
Lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester