Buscar

Escreva uma subrotina que imprima uma matriz do VBA em um arquivo de texto, exatamente com a mesma estrutura que ela está no VBA. Os parâmetros des...

Escreva uma subrotina que imprima uma matriz do VBA em um arquivo de texto, exatamente com a mesma estrutura que ela está no VBA. Os parâmetros dessa subrotina devem ser: a matriz a ser impressa e o diretório+nome do arquivo.


Essa pergunta também está no material:

Apostila-VBA
69 pág.

Metodologia Científica Humanas / SociaisHumanas / Sociais

💡 1 Resposta

User badge image

Ed Verified user icon

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.

0
Dislike0

✏️ Responder

SetasNegritoItálicoSublinhadoTachadoCitaçãoCódigoLista numeradaLista com marcadoresSubscritoSobrescritoDiminuir recuoAumentar recuoCor da fonteCor de fundoAlinhamentoLimparInserir linkImagemFórmula

Para escrever sua resposta aqui, entre ou crie uma conta

User badge image

Outros materiais

Outros materiais