엑셀의 VBA 코드

Question

오류가 있음에도 불구하고이 코드가 있습니다. 내가하고 싶은 일은 현재 활성 시트에서 CSV 파일 내보내기를 완료하고 현재 셀 A2에있는 정보로 저장합니다.

Sub exportCSV() 
    ' export Macro 

    Range("A:F").Select 
    Selection.Copy 
    Workbooks.Add 
    ActiveSheet.Paste 
    strName = AprilPayslips.Range("A2") 
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & strName 
    , FileFormat:=xlCSV, CreateBackup:=False 
    Application.DisplayAlerts = False 
    Application.DisplayAlerts = True 
End Sub 

Answer 1

당신은 그들이 서로

strName = Range("A2").Value 

이 두 라인은 아무것도하지 않습니다 :)을 요청, 그래서 그들을 제거 문자열로 셀의 값을 원하는 경우 :

을

Sub exportCSV() 
    strName = Range("A2").Value 
    Range("A:F").Select 
    Selection.Copy 
    Workbooks.Add 
    ActiveSheet.Paste 
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & strName, FileFormat:=xlCSV, CreateBackup:=False 
End Sub 

: 당신이 그것을 추가 할 필요가 없습니다

Application.DisplayAlerts = False 
Application.DisplayAlerts = True 

경로는 항상 후행 슬래시를 포함해야

그러나 A2의 내용이 항상 유효한 파일 이름이 될 것이라는 확신이 들지 않는 한, 추가 유효성 검사를 추가하지 않으면 문제가 발생할 수 있습니다.