Aqui está um exemplo de sub-rotina que pode imprimir uma matriz do VBA em um arquivo de texto: ``` Sub ImprimirMatriz(matriz As Variant, caminhoArquivo As String) Dim i As Long, j As Long Dim texto As String Open caminhoArquivo For Output As #1 For i = LBound(matriz, 1) To UBound(matriz, 1) For j = LBound(matriz, 2) To UBound(matriz, 2) texto = texto & matriz(i, j) & vbTab Next j texto = texto & vbCrLf Next i Print #1, texto Close #1 End Sub ``` Explicação: - A sub-rotina recebe dois parâmetros: a matriz a ser impressa e o caminho do arquivo onde a matriz será salva. - A sub-rotina abre o arquivo especificado pelo caminho usando o comando `Open`. - Em seguida, a sub-rotina percorre a matriz usando dois loops `For` e concatena cada elemento da matriz em uma string `texto`. - A cada linha da matriz, a sub-rotina adiciona um caractere de nova linha (`vbCrLf`) à string `texto`. - Por fim, a sub-rotina escreve a string `texto` no arquivo usando o comando `Print` e fecha o arquivo usando o comando `Close`. Observação: Esta é apenas uma sugestão de sub-rotina. Dependendo do formato da matriz e do arquivo de saída, pode ser necessário ajustar o código.
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar