2011-06-01 10:05:41 +0000 2011-06-01 10:05:41 +0000
38
38

Jak zmienić domyślny delimiter w Imporcie Tekstu w Excelu?

Chcę zaimportować plik CSV do Excela. Plik CSV ma dane oddzielone przecinkami (zobacz rysunek), ale domyślnie separator w Kreatorze Importu Tekstu jest ustawiony na “Tab”. Jak mogę zmienić domyślną wartość na “Przecinek”?
Źródło

Odpowiedzi (3)

23
23
23
2011-06-01 10:43:05 +0000

(Zakładając interfejs pakietu Office 2003)

Nie używaj pliku > Otwórz.

Zamiast tego użyj Danych > Importuj dane zewnętrzne > Importuj dane…

Wywoła to kreator importu tekstu, który pozwala wybrać delimiter.

Albo, jeśli używasz nowszego interfejsu, przejdź do zakładki Dane > Z tekstu :

Spowoduje to wyświetlenie okna dialogowego File Open, a następnie tego samego okna importu tekstu.
Źródło
12
12
12
2011-06-16 18:16:38 +0000

Jest to ustawienie Windows, które będzie używane przez wszystkie programy, które się do niego odnoszą (w tym przypadku Excel).

  1. Kliknij przycisk Start, a następnie kliknij przycisk Panel sterowania.
  2. Otwórz okno dialogowe Opcje regionalne i językowe.
  3. Wykonaj jedną z poniższych czynności: W systemie Windows Vista/7, kliknij zakładkę Formaty, a następnie kliknij przycisk Dostosuj ten format. W systemie Windows XP kliknij zakładkę Opcje regionalne, a następnie kliknij przycisk Dostosuj.
  4. Wpisz nowy separator w polu Separator listy.
  5. Kliknij dwukrotnie przycisk OK.
Źródło
6
6
6
2011-06-01 13:48:19 +0000

Wygląda na to, że Excel używa ostatnio używanego delimitera w sesji. Dave Peterson opisuje możliwe rozwiązanie tutaj Zasadniczo tworzy się makro, które ustawia domyślny delimiter i umieszcza go w folderze xlstart. Jeśli robisz to dla pliku na maszynach innych ludzi, to prawdopodobnie nie zadziała, ale tak byś do tego podszedł, programowo na swoim własnym systemie, i możesz go dostosować do swojej sytuacji. Uruchomienie poniższego kodu powinno wcześniej ustawić dla ciebie ogranicznik. Będzie on działał na istniejącej sesji. Więc jeśli masz treść, która wymaga ustawienia konkretnych delimiterów, uruchom coś takiego przed importem, ustawiając dowolne parametry 

With ThisWorkbook.Worksheets(1).Range("a1")
 .TextToColumns Destination:=.Columns(1), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False
End With
ThisWorkbook.Close SaveChanges:=False
Źródło