Ricardo001

Prezados, boa noite!

Trabalho com uma planilha na qual exporto dados dela para o formato CSV (ponto e vírgula) (gerando uma planilha separada) e depois abro o arquivo CSV no bloco de notas e troco os pontos e virgulas para somente virgula, assim consigo utilizar os dados em outro programa que uso. Atualmente faço tudo isso manualmente, gostaria de uma macro para que eu apertasse o botão e ela exportasse os dados e criasse esse arquivo em CSV separado da planilha principal e já separado em vírgula. Alguém já tentou algo do tipo?

tentei usar o seguinte código mas não obtive exito.

Private Sub cmdXlsCsv_Click()

Dim xls As Excel.Application
    Dim tmp As String
    Dim oWB As Excel.Workbook
Set xls = New Excel.Application
tmp = "C:\Users\cjack\Desktop\Copy of Book5.xlsx"
 Set oWB = xls.Workbooks.Open(tmp)
    oWB.SaveAs Filename:=Replace(tmp, ".xls", ".csv", , , vbTextCompare), FileFormat:=xlCSVMSDOS, CreateBackup:=False
    oWB.SaveAs Filename:=Replace(tmp, ".xls", ".csv", , , vbTextCompare), FileFormat:=xlCSVMSDOS, CreateBackup:=False
    oWB.Close
    xls.Quit
End Sub

Se alguém puder me ajudar, ficarei imensamente grato,

Atte.,

EXEMPLO.zip

@osvaldomp , muito obrigado!

Funcionou perfeitamente, muito bom mesmo!

Osvaldo, tenho mais uma pergunta: há alguma bibliografia que você possa indicar, que trate de macros e VBA? procurei na internet, e todas sobre excel, tratam mais de fórmulas, e não da programação em si. Tenho noção básica de lógica (e, se, ou..) e acredito que a base seja a mesma.

Novamente, obrigado!

Boa noite,

Primeiramente quero agradecer a ajuda de todos que contribuem no fórum, graças a vocês, consegui desenvolver minha primeira macro, obrigado!

Eis minha dúvida: quero criar uma macro que insira duas colunas automaticamente, e em uma dessas colunas a fórmula =SE(SOMA(LETRA_COLUNA_INSERIDA12:LETRA_COLUNA_INSERIDA264)<>0;"SIM";"-"). Essa macro seria ativada por um botão.

A razão é que possuo uma macro nesta planilha que oculta as colunas em um intervalo, se o valor na célula acima desta coluna, na linha 2, tiver o valor lógico diferente de "SIM", e para não ter que alterar a macro toda vez que for necessário inserir uma nova coluna, gostaria de desenvolver a macro citada acima. Quero fazer isto para que qualquer usuário da planilha possa inserir essas novas colunas, se necessário, sem precisar alterar a macro de ocultar colunas.

Macro que utilizo para ocultar as colunas: 

Sub ocultaColunas()

    For coluna = 7 To 190
        If Cells(2, coluna) <> "SIM" Then
            Columns(coluna).Hidden = True
        Else
            Columns(coluna).Hidden = False
        End If
    Next
End Sub

Neste caso, a primeira coluna com a fórmula citada acima seria inserida depois da coluna CN e a segunda coluna (sem fórmula) depois da coluna FT. 
Não sei se é possível este procedimento, mas agradeço desde já qualquer ajuda. A planilha citada segue em anexo.

PLANILHA.zip