VBA - Ændre filsti
HejJeg 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