4 svar · 953 visningar · startad av Insider
Jag försöker göra ett Makro som byter ut udda tecken mot läsbara. Tex: ┼ (ascii 197)
åäö försvinner när jag exporterar från ett annat program.
Jag försöker med:
Cells.Replace What:=Chr(197), Replacement:="Å", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True
Tyvärr händer det ingenting.
Är det verkligen chr(197) i cellen då? kolla med
MsgBox Asc(Trim(Range("A1").Value))
Byt ut "A1" mot din cell...
Svaret blir 43 för ┼. Men det blir det för ett vanligt plustecken oxå.
Det kan ju inte stämma. Och om jag kör:
Cells.Replace What:=Chr(43)........
, så reagerar den bara för dom vanliga +. Inte ┼.
Går det inte att lösa på något sätt?
Du kan väl sätta omvandling när du läser in? Eller menar du att det blir fel när du läser ut filen från Excel? Prova att skriva till annat format då.
Det blir fel när jag exporterar en tabell från en viss programvara till dbase-format. åäöÅÄÖéÉ m.m. får dessa konstiga tecken. De flesta går att ersätta med VBA, men inte ┼.
Det går ju att använda ersätt funktionen i excel. Men inte mha VBA. Det går inte att skriva ┼ i kodfönstret. Det blir bara ett vanligt +. Därför måste jag på nått sätt använda Chr(197)...