mboost-dp1
Import af en CSV fil i Excel via VBA
Hejsa
Har et lille problem, som der måske er nogen herinden der kan hjælpe mig med :-)
Hvis jeg manuelt impotere en CSV vil (dvs. bare åbner den i stifinder eller i åben fil i excel) får jeg et flot resultat der er celle opdelt via ";".
Men hvis jeg åbner filen men en VBA kode, bliver det hele impoteret til en celle, dog med undtagelser, hvor der er anvendt "," i data, der opretter den en ny celle.
Nogen der har et godt forslag?
På forhånd tak
Udklip af impoterings koden:
MinMappe = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Vælg din CSV fil...")
If MinMappe = "Falsk" Then GoTo Afslut1
Workbooks.OpenText Filename:=MinMappe, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1))
' Workbooks.OpenText Filename:=MinMappe, Origin _
' :=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
' Array(Array(0, 1), Array(21, 9), Array(52, 1), Array(57, 9), Array(58, 1), Array(88, 9))
[A1].Select
Har et lille problem, som der måske er nogen herinden der kan hjælpe mig med :-)
Hvis jeg manuelt impotere en CSV vil (dvs. bare åbner den i stifinder eller i åben fil i excel) får jeg et flot resultat der er celle opdelt via ";".
Men hvis jeg åbner filen men en VBA kode, bliver det hele impoteret til en celle, dog med undtagelser, hvor der er anvendt "," i data, der opretter den en ny celle.
Nogen der har et godt forslag?
På forhånd tak
Udklip af impoterings koden:
MinMappe = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Vælg din CSV fil...")
If MinMappe = "Falsk" Then GoTo Afslut1
Workbooks.OpenText Filename:=MinMappe, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1))
' Workbooks.OpenText Filename:=MinMappe, Origin _
' :=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
' Array(Array(0, 1), Array(21, 9), Array(52, 1), Array(57, 9), Array(58, 1), Array(88, 9))
[A1].Select
Gå til top
Opret dig som bruger i dag
Det er gratis, og du binder dig ikke til noget.
Når du er oprettet som bruger, får du adgang til en lang række af sidens andre muligheder, såsom at udforme siden efter eget ønske og deltage i diskussionerne.
- Forside
- ⟨
- Forum
- ⟨
- Programmering
Gå til bund