将特殊符号更改为丹麦语 symbols/letters
Change peculiar symbols into Danish symbols/letters
我正在从固定文件夹导入一系列 CSV 文件。有些字母VBA无法识别，将其转化为奇特的符号。例如，它将 CSV 中的所有“æ”更改为“µ”，因此我必须将它们改回来。我已经使用以下句子解决了一些购买问题：
TempSheet2.Cells.Replace "µ", "æ", xlPart, , False
TempSheet2.Cells.Replace "°", "ø", xlPart, , False
但是，有些符号（如sigma、╪和┼）VB无法识别。
我希望完成以下更正：
Sigma 应改回“å”。
╪ 应该改回 "Ø"
┼应该改回“Å”。
我尝试使用
Option Compare Text
声明解决了两个底部替换但没有用。
如何解决这个问题？
您可以将此代码用于“╪ 应改回为”Ø“：
ActiveCell.Cells.Replace ChrW(9578), Chr(216) 'Sorry my mistake
此处的 ASCII 代码示例：
或代码：
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
我正在从固定文件夹导入一系列 CSV 文件。有些字母VBA无法识别，将其转化为奇特的符号。例如，它将 CSV 中的所有“æ”更改为“µ”，因此我必须将它们改回来。我已经使用以下句子解决了一些购买问题：
TempSheet2.Cells.Replace "µ", "æ", xlPart, , False
TempSheet2.Cells.Replace "°", "ø", xlPart, , False
但是，有些符号（如sigma、╪和┼）VB无法识别。
我希望完成以下更正：
Sigma 应改回“å”。 ╪ 应该改回 "Ø" ┼应该改回“Å”。
我尝试使用
Option Compare Text
声明解决了两个底部替换但没有用。
如何解决这个问题？
您可以将此代码用于“╪ 应改回为”Ø“：
ActiveCell.Cells.Replace ChrW(9578), Chr(216) 'Sorry my mistake
此处的 ASCII 代码示例：
或代码：
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