VBA не понимает или не распознает символ №179 по кодировке ASCII. - Microsoft Office Excel

Lays · 08.12.2010, 06:42

Как сделать чтобы он понял....?)
Пробовала процедурку

Sub Repl()
Dim cell As Range: Application.ScreenUpdating = False
Dim booll As String

For Each cell In ActiveSheet.Cells.SpecialCells(xlCe llTypeConstants)

cell.Value = Replace(cell.Value, ChrW(&HB3), "")

Next

End Sub

Почему-то не понимает этот символ, похожий на вертикальную черту...

Lays · 08.12.2010, 06:46

Файлы такого типа нужно обрабатывать макросом,чтобы можно было спокойно вытягивать нужные столбцы с информацией, может у меня глюк и это все просто?)

doober · 08.12.2010, 13:27

А это не спасает.
При такой структуре документа можно пойти совсем другим путем

cell.Value = Replace(cell.Value, ChrW(166), "")

Lays · 08.12.2010, 14:53

чего-то не хочет работать((( какой-то заколдованный символ...

doober · 08.12.2010, 14:56

Цитата:

чего-то не хочет работать((( какой-то заколдованный символ..

Мой аватар поможет изгнать...

все работает нормально

Lays · 10.12.2010, 07:30

Товарищ Doober=) раскройте тайну как вы открыли файл так, что там вместо | - i ?=)

у меня как-то так открывается

Workbooks.OpenText Filename:=tmpFileName, Origin:=866, _
StartRow:=5, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True

еще хотела спросить про "магические квадратики", как вы думаете резонно их удалять например таким образом?! -

For i = intRow To 1 Step -1
If Left(Cells(i, 1).Text, 1) = Chr(12) Then
Cells(i, 1).Value = Right(Cells(i, 1).Text, Len(Cells(i, 1).Text) - 1)
End If
Next i

doober · 10.12.2010, 11:36

мультик здесь

Я пользуюсь Notepad++

Lays · 13.12.2010, 11:31

вы имеете ввиду сначала загружать файл в блокнот,а потом уже открывать экселем?!

doober · 13.12.2010, 16:44

Я бы сделал.как в ролике.Обработал в блокноте и сохранил в CSV

Lays · 14.12.2010, 06:38

на той странице где мультик сайт пишет =

То, что вы хотите, нету.
URL неправильный.
Я даже попробовал поглядеть рядом.
Нет ничего похожего.
А случайно не перепутали с http://www.nextmail.ru?_ и так далее-))) может потому что с рабочего компа?!

08.12.2010, 06:42	#1
Lays Пользователь Регистрация: 01.10.2010 Сообщений: 26	VBA не понимает или не распознает символ №179 по кодировке ASCII. Как сделать чтобы он понял....?) Пробовала процедурку Sub Repl() Dim cell As Range: Application.ScreenUpdating = False Dim booll As String For Each cell In ActiveSheet.Cells.SpecialCells(xlCe llTypeConstants) cell.Value = Replace(cell.Value, ChrW(&HB3), "") Next End Sub Почему-то не понимает этот символ, похожий на вертикальную черту... Последний раз редактировалось Lays; 08.12.2010 в 06:43. Причина: добавление сообщения

08.12.2010, 13:27	#3
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	А это не спасает. При такой структуре документа можно пойти совсем другим путем cell.Value = Replace(cell.Value, ChrW(166), "") Анализ,обработка данных Недорого

10.12.2010, 11:36	#7
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	мультик здесь Я пользуюсь Notepad++ Анализ,обработка данных Недорого

13.12.2010, 16:44	#9
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Я бы сделал.как в ролике.Обработал в блокноте и сохранил в CSV Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VBA excel сохранить таблицу xls в dBase в кодировке windows	Zarba	Microsoft Office Excel	1	07.09.2010 19:05
Символ или число	Sparky	Помощь студентам	13	31.03.2010 09:48
Excel: как найти символ в ячейке через VBA?	ARud	Microsoft Office Excel	2	03.12.2009 15:17
VB 6 или VBA?	nikita-kit	Помощь студентам	6	17.07.2009 14:58
Перевод кода символа в символ таблицы ASCII	nerh	Общие вопросы C/C++	3	01.02.2008 20:34

08.12.2010, 14:53	#4
Lays Пользователь Регистрация: 01.10.2010 Сообщений: 26	чего-то не хочет работать((( какой-то заколдованный символ...

10.12.2010, 07:30	#6
Lays Пользователь Регистрация: 01.10.2010 Сообщений: 26	Товарищ Doober=) раскройте тайну как вы открыли файл так, что там вместо \| - i ?=) у меня как-то так открывается Workbooks.OpenText Filename:=tmpFileName, Origin:=866, _ StartRow:=5, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _ Comma:=False, Space:=False, Other:=True, OtherChar:="\|", FieldInfo:= _ Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _ , 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True еще хотела спросить про "магические квадратики", как вы думаете резонно их удалять например таким образом?! - For i = intRow To 1 Step -1 If Left(Cells(i, 1).Text, 1) = Chr(12) Then Cells(i, 1).Value = Right(Cells(i, 1).Text, Len(Cells(i, 1).Text) - 1) End If Next i

13.12.2010, 11:31	#8
Lays Пользователь Регистрация: 01.10.2010 Сообщений: 26	вы имеете ввиду сначала загружать файл в блокнот,а потом уже открывать экселем?!

14.12.2010, 06:38	#10
Lays Пользователь Регистрация: 01.10.2010 Сообщений: 26	на той странице где мультик сайт пишет = То, что вы хотите, нету. URL неправильный. Я даже попробовал поглядеть рядом. Нет ничего похожего. А случайно не перепутали с http://www.nextmail.ru?_ и так далее-))) может потому что с рабочего компа?!