15. oktober 2012 - 11:32
Der er
3 kommentarer og
1 løsning
VBA - Brugerformular
Hej Jeg vil gerne have, at man i en userform kan skrive sti og filnavn til en datafil for derefter at arbejde videre på den. Jeg har lavet, så det virker uden brugerformular og startet på en test som jeg ikke kan få til at virke
' TEST start
'Rod = Range(Sti).Text
'Fil = Range(Datafil).Text
' With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Rod & Fil", _
Destination:=Range("$A$5"))
' .Name = "uge42"
' TEST slut
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\\filserver\wtsdesktop$\xxx\Desktop\uge42.txt", Destination _
:=Range("$A$5"))
.Name = "uge42"
15. oktober 2012 - 13:30
#2
Fra spørgsmålstiller
Min VBA-kode kan ses herunder. Jeg kan ikke få ovenstående til at virke, men nu er jeg heller ingen haj til VBA.
Range("A5:J900").Select
Selection.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\\filserver\wtsdesktop$\xxx\Desktop\uge42.txt", Destination _
:=Range("$A$5"))
.Name = "uge42"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 9, 9, 9, 1, 9, 1, 1, 1, 9, 9, 9, 1, 1, 9, 9, 1, 9, 9)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = " "
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("C:J").ColumnWidth = 7
Columns("B:B").ColumnWidth = 17
Columns("A:A").ColumnWidth = 7
End Sub
