locked
erro 438 RRS feed

  • Pergunta

  • Ao executar a seguinte Macro ocorre o erro 438 na linha em negrito:

     

    Sub CD()
    '
    ' CD Macro
    ' Macro gravada em 09/10/2008 por f4685519

    Dim wdata
    Dim arquivo As String

    wdata = Worksheets("CD").Cells(1, 1).Vallue
    arquivo = "POS CART" & wdata & ".xls"

        Workbooks.OpenText FileName:= _
            "G:\Interna\Operacional\Bancos de Dados\BASE\" & arquivo, Origin:= _
            xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
            xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
            Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
            Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
            Array(9, 1), Array(10, 1))
        Columns("A:BP").Select
        Selection.Copy
        Windows("Base.xls").Activate
        Range("B1").Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
        Windows("POS CART" & wdata & ".xls").Activate
        ActiveWindow.ScrollColumn = 1
        Range("A2540").Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "10000"
        Range("A2541").Select
        ActiveWindow.Close
    End Sub

     

    Basicamente a macro busca um arquivo com nome POS CART "data do dia útil anterior".xls. Sendo que a variável data não está aceitando o conteúdo da célula A1 que propositalmente contém a data do dia útil anterior.

    OBS: o conteúdo de A1 (16/10/2008) é resultado da formula =VALOR(ESQUERDA(AP2;10))

    Obrigado

    terça-feira, 21 de outubro de 2008 12:09

Respostas

  • Olá.

    O erro 438 é: Objeto não suporta esta propriedade ou método.

    O erro está ocorrendo porque você escreveu .Vallue em vez de .Value.

    Atenciosamente,

    quarta-feira, 22 de outubro de 2008 10:12