Olá, estou com um arquivo que contem macros para carregar um arquivo de extensão “.TCZ” e logo em seguida preencher um formulário com dados que estão inclusos nesse arquivo TCZ. Porém quando clico para carregar, recebo o seguinte erro:
Erro de execução do BASIC.
‘423’
GetOpenFilename
Como não foi eu quem desenvolvi o código não sei afirmar se há algo errado com o mesmo, porém o suporte me disse que o problema está na execução do arquivo através do Libreoffice (disseram que deveria usar o Excel). Alguém poderia me ajudar com isso ?
Código:
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Carregar_um_ou_mais_arquivos_Office2000()
' Importa os dados dos arquivos selecionados (um ou mais arquivos) e lista os arquivos carregados.
''''''''''''''''''''''''''''''''''''''''''''''''
'CONSTANTES
''''''''''''''''''''''''''''''''''''''''''''''''
SSSS = "senha"
LINHA_INICIAL_NOME_ARQ = 2 'linha >=2 => se você mantiver a impressão do TÍTULO DA COLUNA o número mínimo da linha é 2
COLUNA_INICIAL_NOME_ARQ = 1
LINHA_INICIAL_DADOS_ARQ = 1001
COLUNA_INICIAL_DADOS_ARQ = 1
NUM_LINHAS_ARQUIVO_DE_DADOS = 4 ' Na verdade são 3 linha, mas eu deixo uma a mais par salvar os dados que o usuário preenche na planilha
EXTENSAO = ".TCZ" ' arquivos "*.tcz"
NOME_PLANILHA_DE_RELATÓRIOS = "Teste do Coraçãozinho"
ARQUIVO_SELECIONADO = "AU5" ' Paciente selecionado (O nome refere-se a arquivo ao invés de paciente selecionado, pois originalmente seria um paciente por arquivo).
'HABILITAR_TIPO_VERIFICAÇÃO = "AD13"
'HABILITAR_TIPO_ESFIGM = "AD13"
'Caixa_de_Seleção_Arquivos = "Drop Down 2"
'Caixa_de_Seleção_Tipo_de_verificação = "Drop Down 9"
'Caixa_de_Seleção_Tipo_de_Esfigmo = "Drop Down 10"
'''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Cria a janela de Seleção de arquivos (Ensaios) e imprime a lista de nomes na coluna "A"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
linha_lista_nome = LINHA_INICIAL_NOME_ARQ ' indice da lista dos nomes dos arquivos selecionados
coluna_lista_nome = COLUNA_INICIAL_NOME_ARQ ' "A" - indice da lista dos nomes dos arquivos selecionados
Area_de_dados = CStr(LINHA_INICIAL_DADOS_ARQ) + ":65536"
linha_nome = LINHA_INICIAL_NOME_ARQ
coluna_nome = COLUNA_INICIAL_NOME_ARQ
linha_dado = LINHA_INICIAL_DADOS_ARQ
coluna_dado = COLUNA_INICIAL_DADOS_ARQ
Dim arquivos_selecionados As Variant
Dim elementos As Variant
'Desprotege a Planilha
ActiveSheet.Unprotect (SSSS)
nome_janela = "Abrir"
arquivos_selecionados = Application.GetOpenFilename("Teste do Coraçãozinho Data Files, *.TCZ", 1, nome_janela, , False) ' Abre a janela de seleção - APENAS UM ARQUIVO SELECIONADO
' Se o Botão cancelar for pressionado a função GetOpenFileName retornará Falso, que é uma variável do tipo boolean. => TypeName(elementos) = "Boolean"
' Se qualquer número de arquivos for selecionado, a função GetOpenFileName retorna uma Matriz de dados Variant. => TypeName(elementos) = "Variant()"
If arquivos_selecionados <> False Then
'//If TypeName(elementos) <> TypeName(True) Then ' Verifica se algum arquivo foi selecionado ou se o botão cancelar foi pressionado
' Limpa a planilha de Dados
Sheets("Dados").Visible = -1
Range("Dados!1:65536").ClearContents
Sheets("Dados").Select
Range(Area_de_dados).ClearContents ' Limpa o conteúdo da linha LINHA_INICIAL_DADOS_ARQ em diante OBS: é necessário limpar o conteúdo antes de carregar novos dados.
'TÍTULO DA COLUNA
Cells(linha_lista_nome - 1, coluna_lista_nome).Value = "Arquivos carregados"
'Salva o nome do arquivo na planilha
GoSub Lista_de_nome_dos_arquivos_selecionados 'vai para o procedimento que salva o nome do arquivo na planilha
'Exit Sub
If extensão_do_arquivo = EXTENSAO Then
'Carrega o Arquivo
GoSub Carrega_Arquivos_selecionados 'vai para o procedimento de carregar arquivo
'Exit Sub
Else
' a extensão do arquivo é diferente de EXTENSAO (".hpd")
GoSub Apaga_ultimo_arquivo_da_lista ' apaga último arquivo da lista (planilha) e atualiza o índice da lista
MsgBox " O Arquivo " & nome_do_arquivo & " não é um arquivo válido."
End If
'Oculta a planilha de Dados e Seleciona a planilha de Relatório
Sheets(NOME_PLANILHA_DE_RELATÓRIOS).Select
Sheets("Dados").Visible = 2
Range(ARQUIVO_SELECIONADO).Value = 1 'Seleciona o primeiro arquivo
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Apaga/Reescreve o Símbolo de |Delta SpO2|, dependendo se a segunda medida foi realizada ou não
If Range("$FN$65531").Value = "Não" Then ' Não existe a segunda medida?
Range("AB32").Value = "" ' Apaga o Símbolo de |DeltaSpO2|
Else
If Range("AB32").Value = "" Then 'Se o Símbolo de |DEltaSpO2| já não estiver impresso, reescreve.
Range("AB22:AI22").Select
Selection.Copy
Range("AB32:AI32").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("AO23:BQ36").Select ' Seleciona a célula de resultados. Apenas para não deixar esta célula selecionada
End If
End If
' Enquadramento da janela
'Range("BW39:CQ39").Select ' Célula inferior direita
'Range("CC5:CQ5").Select ' Célula superior
'Range("O8:CG8").Select ' Célula superior esquerda
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Carrega os Valores na Planilha
Range("O8").Value = Range("FM65510").Value 'Carrega o nome do bêbe do primeiro paciente
Range("O9").Value = Range("FM65508").Value 'Carrega o Prontuário do primeiro paciente
Range("AY9").Value = Range("FM65511").Value 'Carrega data de nascimento do primeiro paciente
Range("BX9").Value = Range("HB65511").Value 'Carrega hora de nascimento do primeiro paciente
Range("O10").Value = Range("FM65512").Value 'Carrega Sexo do primeiro paciente
Range("AY10").Value = Range("GI65512").Value 'Carrega Peso do primeiro paciente
Range("BX10").Value = Range("HM65512").Value 'Carrega Tamanho do primeiro paciente
Range("O12").Value = Range("FM65514").Value 'Carrega nome da mãe do primeiro paciente
Range("O13").Value = Range("FM65515").Value 'Carrega nome do pai do primeiro paciente
Range("T15").Value = Range("FM65517").Value 'Carrega nome do hospital do primeiro paciente
Range("T16").Value = Range("FM65518").Value 'Carrega nome do resp. do exame do primeiro paciente
'Range("Q18").Value = Range("FK65520").Value 'Carrega o Equipamento do Handy Sat 2 utilizado no primeiro paciente
'Range("AY18").Value = Range("GS65520").Value 'Carrega o Número de Séries do Handy Sat 2 utilizado no primeiro paciente
'Range("BX18").Value = Range("HR65520").Value 'Carrega a Versão de Software do Handy Sat TC utilizado no primeiro paciente
Range("Q19").Value = Range("FK65521").Value 'Carrega o Orgão calibrador do Handy Sat TC utilizado no primeiro paciente
Range("AY19").Value = Range("GS65521").Value 'Carrega o Número do certificado do Handy Sat TC utilizado no primeiro paciente
Range("BX19").Value = Range("HR65521").Value 'Carrega a data da certificaçãodo Handy Sat TC ustilizado no primeiro paciente
'Range("G26").Value = "" 'apaga hora da medida 2 da mão
'Range("G28").Value = "" 'apaga SpO2 da medida 2 da mão
'Range("G30").Value = "" 'apaga Pulso da medida 2 da mão
'Range("W26").Value = "" 'apaga hora da medida 1 da mão
'Range("W28").Value = "" 'apaga SpO2 da medida 1 da mão
'Range("W30").Value = "" 'apaga Pulso da medida 1 da mão
'Range("BY38").Value = "" 'apaga hora da medida 1 da pé
'Range("BY40").Value = "" 'apaga SpO2 da medida 1 da pé
'Range("BY42").Value = "" 'apaga Pulso da medida 1 da pé
'Range("CO38").Value = "" 'apaga hora da medida 2 da pé
'Range("CO40").Value = "" 'apaga SpO2 da medida 2 da pé
'Range("CO42").Value = "" 'apaga Pulso da medida 2 da pé
Range("O8:CG8").Select ' Seleciona o campo de nome do bebê
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Modo_de_apresentação_relatório
'Sheets("Dados").Visible = -1
End If
'Protege a Planilha
ActiveSheet.Protect (SSSS)
Exit Sub 'FIM DA ROTINA
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
' FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA
' FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA
' FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA FIM DA ROTINA
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'
' PROCEDIMENTOS PROCEDIMENTOS PROCEDIMENTOS PROCEDIMENTOS PROCEDIMENTOS PROCEDIMENTOS PROCEDIMENTOS PROCEDIMENTOS PROCEDIMENTOS PROCEDIMENTOS PROCE
'
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' PROCEDIMENTO LISTA DE ARQUIVOS SELECIONADOS
'
' 1 - Lista o Nome dos Arquivos Selecionados (Salva o nome na planilha)
' 2 - Salva a extensão do arquivo na variável "extensão_do_arquivo"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Lista_de_nome_dos_arquivos_selecionados:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Recupera o nome do arquivo a partir do endereço de arquivos_selecionados(i)
caractere_procurado = "\"
tam_texto = Len(arquivos_selecionados)
pos_inicio_da_busca = 1
posicao_da_caractere = InStrRev(arquivos_selecionados, caractere_procurado, -1, vbTextCompare) ' localiza a posição da última barra no caminho
nome_do_arquivo = Right(arquivos_selecionados, tam_texto - posicao_da_caractere) 'retorna o nome do arquivo
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Salva nome do arquivo na planilha
Cells(linha_lista_nome, coluna_lista_nome).Value = nome_do_arquivo ' salva nome do arquivo na planilha
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Recupera o nome da extensão do arquivos_selecionados(i)
caractere_procurado = "."
tam_texto = Len(nome_do_arquivo)
pos_inicio_da_busca = 1
posicao_da_caractere = InStrRev(nome_do_arquivo, caractere_procurado, -1, vbTextCompare) ' localiza a posição do último ponto
extensão_do_arquivo = Right(nome_do_arquivo, tam_texto - (posicao_da_caractere - 1)) 'retorna a extensão do arquivo com o ponto. Por exemplo, para o arquivo "OS003.hpd" retorna ".hpd"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Atualiza Índice
linha_lista_nome = linha_lista_nome + 1
'coluna_lista_nome = coluna_lista_nome + 1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Return ' FIM DO PROCEDIMENTO LISTA NOME DO ARQUIVO SELECIONADO
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' PROCEDIMENTO APAGA ÚLTIMO NOME DA LISTA DE ARQUIVOS
'
' 1 - Apaga o último arquivo da lista (planilha)
' 2 - Atualiza o Índice da lista
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Apaga_ultimo_arquivo_da_lista:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Atualiza Índice
linha_lista_nome = linha_lista_nome - 1
'coluna_lista_nome = coluna_lista_nome - 1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Apaga o último nome da lista (planilha)
Cells(linha_lista_nome, coluna_lista_nome).Value = "" ' apaga o nome do arquivo da planilha
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Return ' FIM DO PROCEDIMENTO APAGA ÚLTIMO NOME DA LISTA DE ARQUIVOS
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' PROCEDIMENTO CARREGA OS ARQUIVOS SELECIONADOS
'
' Importa os dados do arquivo (arquivos_selecionados(i)).
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Carrega_Arquivos_selecionados:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Importa os dados do arquivos_selecionados(i)
endereco = "TEXT;" + arquivos_selecionados
Cells(linha_dado, coluna_dado).Select
With ActiveSheet.QueryTables.Add(Connection:= _
endereco, Destination:= _
Cells(linha_dado, coluna_dado))
.Name = "HANDYPRESS"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
'.SaveData = True
.SaveData = False
'.AdjustColumnWidth = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
'.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
'.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
'''''''''''''''''''''''''''''''''''''''''''''''
GoSub Carregar_dados_para_linha_de_dados_da_Planilha
'''''''''''''''''''''''''''''''''''''''''''''''
' Atualiza os indices
'linha_dado = linha_dado + NUM_LINHAS_ARQUIVO_DE_DADOS
'Limpa a área de impressão para o próximo arquivo a ser carregado
'Area_de_dados = CStr(linha_dado) + ":65536"
'Range(Area_de_dados).ClearContents ' Limpa o conteúdo da linha_dado atualizada em diante OBS: é necessário limpar o conteúdo antes de carregar novos dados.
Return ' FIM DO PROCEDIMENTO CARREGA ARQUIVO SELECIONADO
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' PROCEDIMENTO CARREGAR_DADOS_PARA_LINHA_DE_DADOS_DA_PLANILHA
'
' 1 - Carrega as informações para a linha de dados da planilha de modo que
' elas possam ser editadas, mas sem se perder as informações originais
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Carregar_dados_para_linha_de_dados_da_Planilha:
'Título das Colunas das Listas
Cells(1, 3).Value = "Referência"
Cells(1, 4).Value = "nome do bebê"
Cells(1, 5).Value = "nome da mãe"
Cells(1, 6).Value = "Prontuário"
Cells(1, 7).Value = "Lista Selecionada"
Cells(3, 2).Value = "Busca por"
Cells(4, 2).Formula = "='Teste do Coraçãozinho'!AF5" ' Refereência do tipo de busca escolhido (Paciente, nome do bebe, nome da mãe ou prontuário
Cells(6, 2).Value = "Tipos de busca"
Cells(7, 2).Value = "Referência"
Cells(8, 2).Value = "Nome do bebê"
Cells(9, 2).Value = "Nome da mãe"
Cells(10, 2).Value = "Prontuário"
número_de_pacientes = 0
linha_do_paciente = LINHA_INICIAL_DADOS_ARQ 'OBS: CASO O SOFTWARE SEJA ALTERADO PARA PODER CARREGAR MAIS DE UM ARQUIVO SIMULTÂNEAMENTE, ESTÁ SERÁ A LINHA INICIAL DO PRIMEIRO ARQUIVO. A VÁRIÁVEL TERÁ QUE SER GERARA ANTES DE ENTRAR NESTA ROTINA E SERÁ ATUALIZADA TODA VEZ QUE ESTÁ ROTINA FOR EXECUTADA
último_paciente = True
While último_paciente = True
If Cells(linha_do_paciente + 2, 1).Value = "" Then 'Se não existir valor de "Medição1_SpO2_mão", não existe este paciente.
último_paciente = False
Else
número_de_pacientes = número_de_pacientes + 1
nome_bebe = Cells(linha_do_paciente + 1, 1).Value
nome_mãe = Cells(linha_do_paciente + 1, 2).Value
data_nasc = Cells(linha_do_paciente + 1, 3).Value
Prontuário = Cells(linha_do_paciente + 1, 4).Value
sexo = Cells(linha_do_paciente + 1, 5).Value
'nome_pai = Cells(linha_do_paciente + 1, 4).Value
'hora_nasc = Cells(linha_do_paciente + 1, 6).Value
'peso = Cells(linha_do_paciente + 1, 8).Value
'idade = Cells(linha_do_paciente + 1, 9).Value
'hospital = Cells(linha_do_paciente + 1, 10).Value
'responsável = Cells(linha_do_paciente + 1, 11).Value
'OBS = Cells(linha_do_paciente + 1, 12).Value
Cells(linha_do_paciente + 3, 1).Value = nome_bebe
Cells(linha_do_paciente + 3, 2).Value = nome_mãe
'Cells(linha_do_paciente + 3, 3).Value = nome_pai
Cells(linha_do_paciente + 3, 4).Value = data_nasc
'Cells(linha_do_paciente + 3, 5).Value = hora_nasc
Cells(linha_do_paciente + 3, 6).Value = sexo
'Cells(linha_do_paciente + 3, 7).Value = peso
'Cells(linha_do_paciente + 3, 8).Value = idade
'Cells(linha_do_paciente + 3, 9).Value = hospital
'Cells(linha_do_paciente + 3, 10).Value = responsável
'Cells(linha_do_paciente + 3, 11).Value = OBS
Cells(linha_do_paciente + 3, 11).Value = Prontuário
'Cria lista com os nomes de bebe, nomes das mães e prontuário para Busca
Cells(número_de_pacientes + 1, 3).Value = "Bebê " & número_de_pacientes
Cells(número_de_pacientes + 1, 4).Value = nome_bebe
Cells(número_de_pacientes + 1, 5).Value = nome_mãe
Cells(número_de_pacientes + 1, 6).Value = Prontuário
'Cria a lista de busca desejada
'Cells(número_de_pacientes + 1, 7).Formula = "=IF(INDEX(C" & número_de_pacientes + 1 & ":F" & número_de_pacientes + 1 & ",1,B4)=0,""""" & ",INDEX(C" & número_de_pacientes + 1 & ":F" & número_de_pacientes + 1 & ",1,B4))"
Cells(número_de_pacientes + 1, 7).Formula = "=IF(INDEX(C" & número_de_pacientes + 1 & ":F" & número_de_pacientes + 1 & ",1,B4)=0,"" . . . . . . . """ & ",INDEX(C" & número_de_pacientes + 1 & ":F" & número_de_pacientes + 1 & ",1,B4))"
'Atualiza para o próximo paciente
linha_do_paciente = linha_do_paciente + 4
End If
Wend
' Atualiza os indices
linha_dado = linha_do_paciente ' INDICA QUAL SERIA A LINHA DO NOVO PACIENTE
'Limpa a área de impressão para o próximo arquivo a ser carregado
Area_de_dados = CStr(linha_dado) + ":65536"
Range(Area_de_dados).ClearContents ' Limpa o conteúdo da linha_dado atualizada em diante OBS: é necessário limpar o conteúdo antes de carregar novos dados.
'Determina o número de pacientes salvos no arquivo carregado
Cells(1, 2).Value = "Número de pacientes carregados" 'Célula B1
Cells(2, 2).Value = número_de_pacientes 'Célula B2
Return ' FIM DO PROCEDIMENTO CARREGAR_DADOS_PARA_LINHA_DE_DADOS_DA_PLANILHA
End Sub