Visual Basic - Actualizacion excel vinculado via VBA

Sub Actualizar()

'

' Actualizar Macro

'

' Acceso directo: CTRL+a

'

    ActiveWorkbook.RefreshAll

    ChDir "C:\carpeta\carpeta"

    ActiveWorkbook.SaveAs Filename:="C:\.carpeta\Archivo.txt",

FileFormat:= _ xlText, CreateBackup:=False

End Sub

Sub Actualizar()

'

' Actualizar Macro

'

' Acceso directo: CTRL+a

'

    ActiveWorkbook.RefreshAll

    ChDir "C:\carpeta\carpeta"

    ActiveWorkbook.SaveAs Filename:="C:\.carpeta\Archivo.txt",

FileFormat:= _xlText, CreateBackup:=False, Encoding=UTF-8

End Sub

Sub Actualizar()

'

' Actualizar Macro

'

' Acceso directo: CTRL+a

'

    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

    ChDir "C:\carpeta\archivo"

    ActiveWorkbook.SaveAs Filename:="C:\carpeta\archivo", _

        FileFormat:=xlText, CreateBackup:=False

End Sub

Dim fsT, tFileToOpen, tFileToSave As String

    tFileToOpen = InputBox("Enter the name and location of the file to convert" & vbCrLf & "With full path and filename ie. C:\MyFolder\ConvertMe.Txt")

    tFileToSave = InputBox("Enter the name and location of the file to save" & vbCrLf & "With full path and filename ie. C:\MyFolder\SavedAsUTF8.Txt")

    tFileToOpenPath = tFileToOpen

    tFileToSavePath = tFileToSave

Set fsT = CreateObject("ADODB.Stream"): 'Create Stream object

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

fsT.LoadFromFile tFileToOpenPath: 'And write the file to the object stream

fsT.SaveToFile tFileToSavePath, 2: 'Save the data to the named path