1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

ajuda urgente! abrir ficheiros visual basic

Discussão em 'Programação' iniciada por ruzz, 25 de Junho de 2009. (Respostas: 0; Visualizações: 921)

  1. necessito da ajuda de quem poder a acabar o codigo, escrito abaixo.

    O que pretendo é que ao clicar neste botão, e depois de escolher o ficheiro pretendido, ele abra. mas o ficheiro pode ser alterado e nao ser sempre o mesmo a ser aberto!

    Private Sub inserir_Click()
    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook
    'Abrir o arquivo do Excel
    cd.FileName = "Escolha o ficheiro"
    cd.ShowOpen

    'da-me erro neste linha de codigo, e quero que isto faça as mesmas coisas, para os diferentes ficheiros
    Set xlw = xl.Workbooks.Open("c:\teste.xls")




    ' definir qual a planilha de trabalho
    xlw.Sheets.Select

    'Exibe o conteúdo da célula na posição 2,3

    ' variavel = xlw.Application.Cells(2, 3).Value
    MsgBox ("encontrado")
    Text1.Text = xlw.Application.Cells(2, 3).Value
    Text5.Text = xlw.Application.Cells(1, 3).Value

    ' Fechar a planilha sem salvar alterações
    ' Para salvar mude False para True

    xlw.Close False

    ' Liberamos a memória

    Set xlw = Nothing
    Set xl = Nothing


    End Sub
     

Partilhar esta Página