将特殊符号更改为丹麦符号/字母

Question

我正在从固定文件夹导入一系列CSV文件。 VBA无法识别某些字母并将其转换为特殊符号。例如，它将CSV中的所有“æ”更改为“μ”，因此我必须将其更改回来。我用以下句子解决了一些问题：

TempSheet2.Cells.Replace "µ", "æ", xlPart, , False
TempSheet2.Cells.Replace "°", "ø", xlPart, , False

然而，一些符号（如sigma，╪和┼）VB无法识别。

我希望进行以下更正：

西格玛应该改回“å”。 ╪应更改回“Ø” ┼应该改回“Å”。

我尝试使用

Option Compare Text

声明解决了两个底部替换，但它没有奏效。

如何解决这个问题？

Answer 1

您可以使用此代码“╪应更改回”Ø“”：

ActiveCell.Cells.Replace ChrW(9578), Chr(216) 'Sorry my mistake

例如，ASCII代码在这里：

http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=116:ascii-code-extended-ascii-characters-8-bit-system-and-ansi-code&catid=78&Itemid=474

或代码：

test = AscW(ActiveCell)

Asc和AscW https://msdn.microsoft.com/en-us/en-en/library/zew1e4wc%28v=vs.90%29.aspx

Chr和ChrW https://msdn.microsoft.com/en-us/en-en/library/613dxh46%28v=vs.90%29.aspx