CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Nanarsi Juniormester

03. marts 2016 - 08:56 Der er 9 kommentarer

csv fil åbnes forkert

Hej

Jeg har en csv fil som når jeg åbner den manuelt (dobb.klik i stifinder) åbner med dataene fordelt i celler i 2 rækker.

Når jeg åbner den samme fil via VBA får jeg alle dataene semikolon separeret i den første celle i hver af de 2 rækker.

Jeg åbner filen med:
[Workbooks.Open FileName:= "test.csv"]

Er der en måde at få VBA til at åbne filen så dataene er fordelt på celler?

alternativt:
Hvad er den nemmeste måde at fordele de semikolon separeret date til celler?

Mvh Nanarsi

Synes godt om

kim1a Ekspert

03. marts 2016 - 09:17 #1

Jeg følger lige med. Jeg har modtaget en løsning af en programmør, men forstår den ikke - så en simpel løsning med vba til åbning af csv er bestemt brugbar.

Synes godt om

claes57 Ekspert

03. marts 2016 - 09:51 #2

kaldet er
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

og format er
Value Delimiter
1 Tabs
2 Commas
3 Spaces
4 Semicolons
5 Nothing
6 Custom character (see the Delimiter argument)

jeg har ikke nærmere eksempel, da min 2007 ikke længere har online-support.

Synes godt om

Nanarsi Juniormester

03. marts 2016 - 20:30 #3

Tak claes57

jeg har prøvet med:
>>>>>>>>>>>>>>>>>>>>>
Sub test()
Dim FileNAme As String
FileNAme = "K:\report.csv"

Workbooks.Open FileNAme:=FileNAme, Delimiter:=";"

End Sub
>>>>>>>>>>>>>>>>>>>>>>

men stadig med det same resultat hvor hele den semikolon separeret tekst ligger i den første celle.

Jeg har også læst lidt på https://msdn.microsoft.com/en-us/library/office/ff194819.aspx men stadig uden at blive klogere...
Kan der være nogle andre andre parametre der kan betyde noget i denne sammenhæng?

Synes godt om

claes57 Ekspert

03. marts 2016 - 21:59 #4

lad være med at oprette en variabel med beskyttede navne (FileNAme)

jeg har så læst microsoft hjælpefilen som

Sub test()
Workbooks.Open(FileName:="K:\report.csv", Format:=4)
End Sub

hvis du vil bruge en variabel til filnavn, så
Sub test()
filnavn="K:\report.csv"
Workbooks.Open(FileName:=filnavn, Format:=4)
End Sub

Synes godt om

claes57 Ekspert

03. marts 2016 - 22:00 #5

test også uden : altså
Workbooks.Open(FileName="K:\report.csv", Format=4)

Synes godt om

Nanarsi Juniormester

04. marts 2016 - 17:57 #6

Jeg har ændret variablens navn og prøvet uden variable, men stadig med samme resultat...

Sub test()
Dim CsvFile As String
CsvFile = "K:\report.csv"
Workbooks.Open FileNAme:=CsvFile, Format:=4 ' (uden parenteser)
End Sub

Synes godt om

Nanarsi Juniormester

04. marts 2016 - 23:16 #7

kim1a
Har du mulighed for at dele den løsning du har fået fra din programør.
Jeg vil gerne prøve om jeg kan gennemskue den ;-)
\\Nanarsi

Synes godt om

Nanarsi Juniormester

07. marts 2016 - 08:31 #8

Efter lidt mere søgning fandt jeg løsningen :-)

Sub test()
Dim CsvFile As String
CsvFile = "K:\report.csv"
Workbooks.Open FileNAme:=CsvFile, Format:=4, Local:=True
End Sub

Claes: du har været til størst hjælp her, så send et svar :-)

Synes godt om

Nanarsi Juniormester

26. april 2016 - 08:53 #9

claes57 sender du et svar?

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	0	28 minutter siden	-
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS