Lote de exportação do Excel de colunas de uma planilha

Question

Sou um usuário muito novo do VBA e estou tentando criar uma macro para fazer uma exportação em lote de colunas selecionadas para um csv e, em seguida, incrementar e fazer o loop dessa seleção para continuar exportando csv até o final do conjunto de dados.

Eu tenho uma grande planilha do Excel com 1872 colunas. Eu quero selecionar e exportar colunas 1-6 como um csv e, em seguida, repita esse processo para colunas 7-12, 13-18 etc até o final da planilha inteira.

Todos os dados estão em uma planilha, não há valores nulos em nenhuma das linhas ou colunas.

Então, no total, gostaria de terminar com 312 arquivos csv.

Eu comecei a gravar uma Macro da seguinte maneira, mas não tenho certeza de como incrementar isso e fazer o loop do código até o final do conjunto de dados.

Muito obrigado por qualquer contribuição ou ajuda com esta questão.

    Sub Macro2()
'
' Macro2 Macro
'

'
    Columns("A:F").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Users\Glen\AppData\Roaming\Microsoft\Templates"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Glen\AppData\Roaming\Microsoft\Templates\EMN_001.csv", FileFormat:= _
        xlCSV, CreateBackup:=False
End Sub

    

Answer 1

Aqui está um código para o arquivo primeiro .csv :

Sub dural()
   Dim K As Long, N As Long, i As Long
   K = 1
   N = Cells(Rows.Count, K).End(xlUp).Row
   Close #1
   Open "C:\TestFolder\whatever.csv" For Output As #1
      For i = 1 To N
         st = Cells(i, K).Text
         For j = K + 1 To K + 5
            st = st & "," & Cells(i, j).Text
         Next
         Print #1, st
      Next i
   Close #1
End Sub

Você precisará modificá-lo para fazer um loop sobre k para obter o restante dos arquivos.