Segue um exemplo de subrotina em VBA que imprime um vetor em um arquivo de texto, tanto verticalmente quanto horizontalmente: ``` Sub ImprimirVetor(vetor As Variant, caminhoArquivo As String, imprimirVerticalmente As Boolean) Dim i As Long, j As Long Dim texto As String Open caminhoArquivo For Output As #1 If imprimirVerticalmente Then For i = LBound(vetor) To UBound(vetor) Print #1, vetor(i) Next i Else For i = LBound(vetor) To UBound(vetor) texto = texto & vetor(i) & vbTab Next i Print #1, texto End If Close #1 End Sub ``` Explicação: - A subrotina recebe três parâmetros: o vetor a ser impresso, o caminho e nome do arquivo de texto e um booleano que indica se o vetor deve ser impresso verticalmente ou horizontalmente. - A instrução `Open` abre o arquivo de texto para escrita. - Se `imprimirVerticalmente` for verdadeiro, a subrotina imprime cada elemento do vetor em uma linha separada usando o comando `Print`. - Caso contrário, a subrotina concatena cada elemento do vetor em uma única string separada por tabulação (`vbTab`) e, em seguida, imprime essa string no arquivo de texto usando o comando `Print`. - Por fim, a instrução `Close` fecha o arquivo de texto. Exemplo de uso: ``` Sub TesteImprimirVetor() Dim vetor(1 To 5) As Integer Dim caminhoArquivo As String vetor(1) = 10 vetor(2) = 20 vetor(3) = 30 vetor(4) = 40 vetor(5) = 50 caminhoArquivo = "C:\Users\Usuario\Documents\vetor.txt" ImprimirVetor vetor, caminhoArquivo, True 'imprime verticalmente ImprimirVetor vetor, caminhoArquivo, False 'imprime horizontalmente End Sub ```
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar