Excel에서 VBA를 사용하여 다른 파일 형식으로 파일 내보내기 Excel

Question

VBA에 관해서는 약간의 초보자입니다. 따라서 열 길이를 내 보내면 내 데이터가 다양 할 때 열 너비가 어떻게 보이게 할 수 있을지 고민하고 있습니다. .csv, .cdc 또는 .txt와 같은 파일 파일 형식은 큰 걱정거리가 아니지만 데이터를 잘 정렬하는 것이 좋을 것입니다.

Sub WriteToFile2() 


    Dim rCell As Range 
    Dim rRow As Range 
    Dim sOutput As String 
    Dim sFname As String, lFnum As Long 
    Dim rowCount As Long 


    sFname = ThisWorkbook.Path & "\SAPoutput.CDC" 
    lFnum = xlCSV 
    rowCount = 1 


    Open sFname For Output As lFnum 
    For Each rRow In ActiveSheet.UsedRange.Rows 
     If rowCount > 9 Then 
      For Each rCell In rRow.Cells 
       sOutput = sOutput & rCell.Text & " ," 
      Next rCell 
      sOutput = Left(sOutput, Len(sOutput) - 1) 
      Print #lFnum, sOutput 

      sOutput = "" 
     End If 
     rowCount = rowCount + 1 
    Next rRow 
    Close #lFnum 

MsgBox "Completed" 
End Sub 

이것은 내가 지금까지 가지고 있으며 최소한 데이터를 잡는 데 비교적 잘 작동합니다. 문제는 범위 내에서 셀이 비어 있고 서식이 엉망이되는 경우가 있습니다.

이것은 내가 지금 무엇을 얻을 수 있습니다 :

,#: ,Part & Dimension: , ,Inspections: ,Expected: ,Override: ,Sample Size: ,Complete: , , , , , 
,1 ,Camshaft - Circularity Tolerance , ,0 ,Tight , ,200 ,20.1 , , , , , 
,2 ,Camshaft - Diameter A , ,0 ,Tight , ,200 ,0 , , , , , 
,3 ,Crankshaft - Diameter - Mains , ,16 ,Loose , ,13 ,0 , , , , , 
,4 ,Piston Pin - N/A , ,16 ,Loose , ,13 ,0 , , , , , 
,5 ,Crankshaft - Diameter - Mains , ,16 ,Loose , ,13 ,0 , , , , , 
,6 ,Connecting Rod - N/A , ,0 ,Tight , ,200 ,0 , , , , , 
,7 ,Camshaft - Diameter A , ,0 ,Tight , ,200 ,0 , , , , , 
,8 ,Rocker Arms - Cam Follower/Height Screw Stackup , ,16 ,Loose , ,13 ,0 , , , , , 

등 ... 중 후행 쉼표에 대한

정말 확실하지. 기본적으로 달성하고자하는 것은 특정 범위 (A9 : I25)를 단추를 사용하여 짝수 열의 파일에 기록하는 것입니다.

누군가가 도와 주시면 감사하겠습니다.

Answer 1

CSV에는 열 너비 개념이 없습니다. 이들은보기 파일이 아닌 데이터 유형 파일입니다.

탭을 사용하면 열의 텍스트를 정렬 할 수 있습니다. 운이 좋으면 탭으로 구분 된 파일이 나열 될 수 있습니다.

그러나 데이터를 보려면 Excel, Word 표 또는 HTML 표에 넣으십시오. 이러한 프로그램은 모두 프로그램에 나타나는 표를 인쇄 할 수 있습니다. 형식이 지정된 텍스트로 사용하려면 일반 텍스트 인쇄 드라이버를 사용하고 파일로 인쇄하십시오. 또는 Word의 서식있는 텍스트로 저장을 사용하십시오.