Excel VBA que percorre a pasta e move os dados para a próxima coluna

Question

Estou tentando gravar uma macro que percorre todos os arquivos em uma pasta m e, em seguida, abre as palavras que começam com "Página" em < em> K coluna e, em seguida, desloca-o para a próxima coluna. O código que estou usando é

Public Sub Loop_through_folder_page_no()
'DECLARE AND SET VARIABLES
Dim wbk As Workbook
Dim Filename As String
Dim Path As String
Path = "C:\xlsFolder\"
Filename = Dir(Path & "*.xlsx")

'--------------------------------------------
'OPEN EXCEL FILES
 Do While Len(Filename) > 0  'IF NEXT FILE EXISTS THEN
Set wbk = Workbooks.Open(Path & Filename)
'
Dim K As Range
Dim r As Range
Set K = Intersect(ActiveSheet.UsedRange, Range("K:K"))

  For Each r In K   'ERRORS HERE WITH Runtime error 1004 Application-defined or object-defined error
    If Left(r.Text, 4) = "Page" Then
        r.Copy r.Offset(0, 1)
        r.Clear
    End If
  Next r

ActiveWorkbook.Save


wbk.Close True
Filename = Dir
Loop
End Sub

Este código está dando um erro. Eu não consigo entender o que há de errado com isso.

    

Answer 1

tente activesheet.range ("K: K") em vez de apenas intervalo. Você tem apenas uma planilha em seus arquivos? Tem certeza de que a planilha desejada está selecionada? Por favor, verifique novamente se a intersecção do intervalo usado e da coluna K realmente existe.