excel 파일을 매크로를 사용하여 CSV로 내보내는 방법은 무엇입니까?

Question

매크로를 사용하여 Excel 파일을 CSV로 내보내려고합니다.

그러나 내 코드는 각 열의 헤더 만 내보내고 Excel에서는 입력 한 전체 레코드가 아니라 첫 번째 행의 두 번째 행에 헤더가 표시됩니다.

해결 방법?

또한 새로운 열과 새로운 레코드가 Excel 파일에 입력되면 어떻게 될까요? 매크로에서 어떻게 결정합니까? 것이 가능하다? 주셔서 감사합니다

매크로

Sub WriteCSVFile() 

Dim My_filenumber As Integer 
Dim logSTR As String 

My_filenumber = FreeFile 

logSTR = logSTR & Cells(1, "A").Value & " , " 
logSTR = logSTR & Cells(1, "B").Value & Format(Now, "yyyyMMddhhmmss") & " , " 
logSTR = logSTR & Cells(1, "C").Value & Format(Now, "yyyyMMddhhmmss") & " , " 
logSTR = logSTR & Cells(1, "D").Value & " , " 
logSTR = logSTR & Cells(1, "E").Value & " , " 
logSTR = logSTR & Cells(1, "F").Value & " , " 
logSTR = logSTR & Cells(1, "G").Value & " , " 
logSTR = logSTR & Cells(1, "H").Value & " , " 
logSTR = logSTR & Cells(1, "I").Value & " , " 
logSTR = logSTR & Cells(1, "J").Value & " , " 
logSTR = logSTR & Cells(1, "K").Value & " , " 
logSTR = logSTR & Cells(1, "L").Value & " , " 
logSTR = logSTR & Cells(1, "M").Value 

Open "C:\Users\username\foldername\Sample.csv" For Append As #My_filenumber 
    Print #My_filenumber, logSTR 
Close #My_filenumber 

End Sub 

욕망 출력 :

Header1, Header2, Header3, Header4 
1234456, 10/10/2014, Marc, 24 

Answer 1

나는 이미 당신의 코드와 일치하지 않는 것이

Dim DirLoc As Variant 

DirLoc = "pathname" 

'~~> Check if it is a valid entry 
If DirLoc <> False Then 
    '~~> Check before hand if the file exists 
    If Not Dir(DirLoc) <> "" Then 
     '~~> If not then save it 
     ActiveWorkbook.SaveAs Filename:=DirLoc 
    Else 
     '~~> Trap the error and ignore it 
     On Error Resume Next 
     If Err.Number = 1004 Then 
      On Error GoTo 0 
     Else '<~~ If user press Save 
      ActiveWorkbook.SaveAs Filename:=DirLoc, _ 
      FileFormat:=xlCSV, _ 
      ConflictResolution:=xlLocalSessionChanges 
     End If 
    End If 
End If