Excel - Guardar txt en UTF8 por defecto

   
Vista:

Guardar txt en UTF8 por defecto

Publicado por Felipe (6 intervenciones) el 28/01/2014 21:50:17
Hola a todos!!!!
Alguien sabe si es posible guardar las hojas de cálculo en texto (separado por tabulaciones) codificado en UT8 por defecto, ya que siempre se guarda en ANSI.

Muchas gracias un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Guardar txt en UTF8 por defecto

Publicado por Felipe (6 intervenciones) el 30/01/2014 16:01:48
Hla he encontrado esto por la red, lo que pasa me da error, alguien sabe donde está el fallo????

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Actualizar()
'
' Actualizar Macro
'
' Acceso directo: CTRL+a
'
 
Dim fsT As Object
 
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
 
    ChDir "C:\File\.txt"
 
Set fsT = CreateObject("ADODB.Stream")
fsT.Type = 2 'Specify stream type - we want To save text/string data.
fsT.Charset = "utf-8" 'Specify charset For the source text data.
fsT.Open 'Open the stream And write binary data To the object
fsT.WriteText "special characters: äöüß"
fsT.SaveToFile sFileName, 2 'Save binary data To disk
 
End Sub


Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar