Victor Daia Postado Abril 19, 2011 Denunciar Share Postado Abril 19, 2011 Olá, Fiz um programa com VBA onde o eu gravo as informações em outras pastas de trabalho.Para isso eu usei duas ComboBox e o seguinte código:Select Case ComboBoxCategorias.Value = TrueCase ComboBoxCategorias.Value = FloriculturaChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Modelos"Case ComboBoxCategorias.Value = "Grandes Culturas"ChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Planilhas Auxiliares\Grãos"Case ComboBoxCategorias.Value = FruticulturasChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Planilhas Auxiliares\Fruticulturas"Case ComboBoxCategorias.Value = SilviculturaChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Planilhas Auxiliares\Silvicultura"Case ComboBoxCategorias.Value = HortaliciasChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Planilhas Auxiliares\Hortalicias"End SelectWorkbooks.Open ComboBoxProdutos.Valueo problema é o excel não está localizando o arquivo. Dá um erro falando que ele não existe, ou está com um endereço errado.O programa só roda direito quando eu abro o arquivo fim e salvo como, criando um novo arquivo subscrito.só que é inviável fazer isso sempre que eu precisar usar o programa.Imagina ter que subscrever todos os arquivos todos os dias quando ligar o PC.Alguém sabe prq dá esse erro? como fazer para funcionar? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Victor Daia
Olá,
Fiz um programa com VBA onde o eu gravo as informações em outras pastas de trabalho.
Para isso eu usei duas ComboBox e o seguinte código:
Select Case ComboBoxCategorias.Value = True
Case ComboBoxCategorias.Value = Floricultura
ChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Modelos"
Case ComboBoxCategorias.Value = "Grandes Culturas"
ChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Planilhas Auxiliares\Grãos"
Case ComboBoxCategorias.Value = Fruticulturas
ChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Planilhas Auxiliares\Fruticulturas"
Case ComboBoxCategorias.Value = Silvicultura
ChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Planilhas Auxiliares\Silvicultura"
Case ComboBoxCategorias.Value = Hortalicias
ChDir "Z:\GEPRO\Sistematização de dados\IPA´s\IPA AGRICOLA\Proposta IPAGRÍCOLA DF 2011\Planilhas Auxiliares\Hortalicias"
End Select
Workbooks.Open ComboBoxProdutos.Value
o problema é o excel não está localizando o arquivo. Dá um erro falando que ele não existe, ou está com um endereço errado.
O programa só roda direito quando eu abro o arquivo fim e salvo como, criando um novo arquivo subscrito.
só que é inviável fazer isso sempre que eu precisar usar o programa.
Imagina ter que subscrever todos os arquivos todos os dias quando ligar o PC.
Alguém sabe prq dá esse erro? como fazer para funcionar?
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.