Jak zapisać plik CSV rozdzielany średnikiem, używając vba?

Niedawno musiałem skopiować niektóre dane do arkusza kalkulacyjnego, użyć formatu VBA, aby go sformatować, a następnie zapisać ten arkusz w pliku CSV. Używam następującego kodu:Jak zapisać plik CSV rozdzielany średnikiem, używając vba?

ws.SaveAs Filename:=filestr, Fileformat:=xlCSV

ws jest arkuszem roboczym, który zapisałem.

To daje mi plik CSV rozdzielany przecinkami.

Chciałbym jednak zapisać ten arkusz w pliku rozdzielanym średnikami. Zrobiłem niektóre googling i stwierdzono następujące rozwiązanie:

przejdź do Start> Ustawienia> regionalne i językowe Opcje
kliknąć na przycisk Dostosuj
Dalej do listy typ separatora w średnikiem (;)

śledzę powyższe procedury i zmienił mojego kodu:

ws.SaveAs Filename:=filestr, Fileformat:=xlCSV, Local:=True

Ale stil Dostałem plik CSV rozdzielany przecinkami jako wynik.

wersji programu Excel używam jest Excel 2003, a mój system operacyjny to Windows XP

Czy ktoś może sugerować, jak zaoszczędzić średnikiem plik rozdzielany za pomocą VBA?

Źródło

2012-11-21 user1758952

Oto sposób zrobienia tego ręcznie; http://stackoverflow.com/a/7079703/246342 zastąp separator przez ";" i zasięg z ActiveSheet.UsedRange –

Bardzo dziękuję za sugestię. Ale napotkałem problem, gdy próbowałem uruchomić twój kod. W arkuszu kalkulacyjnym mam pewną wartość, jak "1.0000000", a gdy jest ona przekształcona na ciąg przez "CStr (c.Value)", jest automatycznie zaokrąglana do "1". Czy możesz zasugerować, jak sobie z tym poradzić? Dzięki :) – user1758952

Aby zachować formatowanie należy zastąpić 'CStr (c.Value)' z 'c.text' –

Wystarczy użyć tego kodu: ActiveWorkbook.SaveAs "My FILE.CSV" xlCSV, lokalny: = True

(nie stosować: Nazwa pliku: =)

Źródło

2013-07-02 09:23:29 bik128

Użyj" Filename: = "lub nie, nic nie zmieni –

Właśnie to sprawdzone ponieważ miał ten sam problem. Nazwa pliku nie ma w tym przypadku żadnej funkcji.

To co pracował dla mnie:

With ActiveWorkbook 
    .SaveAs Filename:="My File.csv", FileFormat:=xlCSV, Local:=True 
    .Close False 
End With

W ustawieniach regionalnych ->; < - jako separator listy. Ważne jest również, aby nie zapisywać zmian podczas zamykania -> przy użyciu przycisku Zamknij należy użyć False.

Źródło

2013-08-28 15:44:14 user2726096

działa jak urok ... ale konieczne jest skonfigurowanie ".zamknij fałsz"! thx –

Korzystam z programu Excel 2007 i tylko po wywołaniu ". Zamknij fałszywe" mój plik CSV został zapisany przy użyciu ";" jako separator listy. Dzięki! – cantoni

Aby użyć skryptu VBS po zakończeniu budowy:

.SaveAs Nazwa pliku, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

gdzie argumenty to:

Object Filename, 
Object FileFormat, 
Object Password, 
Object WriteResPassword, 
Object ReadOnlyRecommended, 
Object CreateBackup, 
XlSaveAsAccessMode AccessMode, 
Object ConflictResolution, 
Object AddToMru, 
Object TextCodepage, 
Object TextVisualLayout, 
Object Local

SourceLink: https://msdn.microsoft.com/ru-ru/library/microsoft.office.tools.excel.workbook.saveas.aspx

Last "1" w „SaveAs” funkcja jest równa Local = True

również średnik musi być zdefiniowany jako separator listy w ustawieniach regionalnych systemu operacyjnego (patrz odpowiedź wyżej)

Źródło

2015-03-25 21:03:26 Andrey

Nie trzeba zadeklarować wszystkie var iables, po prostu dodaj local: = true na końcu metody SaveAs, na przykład:

ActiveWorkbook.SaveAs Filename:="C:/Path/TryMe.csv", FileFormat:=xlCSV, Local:=True

Źródło

2017-06-21 17:26:29 Leo

Jak zapisać plik CSV rozdzielany średnikiem, używając vba?

Odpowiedz

Powiązane problemy