GoldenLine
Zaloguj się
Grzegorz Kot

Grzegorz Kot Programista .NET

Temat: Przekorny przecinek [Czyli problem z CSV]

Witam serdecznie,

Trochę się już naszukałem i mam drobny lecz kluczowy sposób. Niestety docelowo muszę to rozwiązać na poziomie samego EXCELA.
Jak już niektórzy z tytułu mogli się domyślić chodzi o zapis pliku w formacie CSV - jednak po otwarciu go widzę, iż separatorem jest " ; ", a nie tak jak być powinno " , ". Wiem, że prostym rozwiązaniem lecz nieco problematycznym jest zmiana separatora w systemie Windows. Problem rozwiązuje także, użycie jako arkusza (OpenOffice) ale to też odpada. Chodzi mi o jakiś skrypt VBA makro, który pod buttonem zapisywał by aktywny arkusz w CSV ale z poprawnym formatem z przecinkami. Czy w ogóle jest to możliwe?
Link do wypowiedziLink
Zbigniew Budziewicz

Zbigniew Budziewicz VISUAL STUDIO

Temat: Przekorny przecinek [Czyli problem z CSV]

Sub ZapiszCSV()



  Dim plik As String

    

  plik = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".")) & _

      "_" & ActiveSheet.Name & ".csv"

      ActiveSheet.Copy

      ActiveWorkbook.SaveAs Filename:=plik, FileFormat:=xlCSVMSDOS

      ActiveWorkbook.Close False

     

End Sub
Link do wypowiedziLink
Grzegorz Kot

Grzegorz Kot Programista .NET

Temat: Przekorny przecinek [Czyli problem z CSV]

Zbigniew B.:
Sub ZapiszCSV()



  Dim plik As String

    

  plik = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".")) & _

      "_" & ActiveSheet.Name & ".csv"

      ActiveSheet.Copy

      ActiveWorkbook.SaveAs Filename:=plik, FileFormat:=xlCSVMSDOS

      ActiveWorkbook.Close False

     

End Sub


Dziękuję za szybką odpowiedź jutro się do tego zastosuję :) i zobaczymy efekt
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj