Boa tarde.

estou usando o código abaixo ´para gerra um arquivo txt conforme podemos ver na imagem em anexo. Na coluna de tempo da planilha esta com o formato "00:00:00" entretanto quando importo esse formato não vai para o TXT... alguém sabe como corrigir.

Sub GerarEtapas()
    Dim localGravacao As String
    Dim nomeArquivo As String
    Dim linhaGravar As String
    Dim ultLinha As Integer
    Dim ultColuna As Integer
    
    localGravacao = Environ("USERPROFILE") & "Desktop"
    nomeArquivo = "Etapas" & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Replace(Time, ":", ".") & ".txt"
    ultLinha = Sheets("EtapasImport").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    ultCol = Sheets("EtapasImport").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    
    'Abre o arquivo para gravação
    Open localGravacao & nomeArquivo For Output As #1
        For i = 1 To ultLinha
            For j = 1 To ultCol
                   'Concatena as colunas separando elas por ","
                   linhaGravar = linhaGravar & Sheets("EtapasImport").Cells(i, j).Value & "|"
            Next j
            'Grava a linha no arquivo - As funções Left e Len são utilizadas para excluir a última virgula do texto
            Print #1, Left(linhaGravar, Len(linhaGravar) - 1)
            linhaGravar = ""
        Next i
    Close #1
    MsgBox "Arquivo de importação gerado com sucesso.", vbInformation, "Contabilidade - Cheveste"
End Sub