Åbne txt-fil igennem VBA uden tekstformatering i cellerne.
Jeg har igennem et tidligere spørgsmål fået følgende svar hvor en txt-fil åbnes igennem excel og derefter pastes.Private Sub CommandButton2_Click()
Dim FileToOpen As Variant
FileToOpen = Application _
.GetOpenFilename("Text Files (*.Txt), *.Txt", , "Vælg Filer", , True)
If FileToOpen(1) <> False Then
For i = 1 To UBound(FileToOpen)
Workbooks.Open FileToOpen(i)
Sheets(1).Cells.Copy
Windows("ABC Gentofte.xls").Activate
Sheets("GL").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Calculate
Next
End If
End Sub
Desværre åbnes txt-filen meget uens artede; nogle tusindtalsseparatorer bliver til komma andre ikke, men det hænger nok sammen med at dele af filen bliver tekstformateret.
For at løse problemet havde jeg forstillet mig noget i stil med dette i linie 8 i koden:
Workbooks.Open FileToOpen(i), Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Nogle forslag?