Excel에는 고정 너비 텍스트 파일을 가져와 열에 넣을 필드의 시작과 끝 위치를 선택할 수있는 대화 상자가 표시되는 기능이 있습니다.
기존 스프레드 시트에서 고정 너비 텍스트 파일로 내보낼 수있는 기능도 있습니까?
그렇다면 어떻게 액세스합니까? 다른 이름으로 저장을 사용하고 텍스트 파일을 선택하려고 시도했지만 도움이되지 않는 탭 구분으로 만 저장하는 것 같습니다.
중요한 경우 Excel 2003입니다.
Excel에는 고정 너비 텍스트 파일을 가져와 열에 넣을 필드의 시작과 끝 위치를 선택할 수있는 대화 상자가 표시되는 기능이 있습니다.
기존 스프레드 시트에서 고정 너비 텍스트 파일로 내보낼 수있는 기능도 있습니까?
그렇다면 어떻게 액세스합니까? 다른 이름으로 저장을 사용하고 텍스트 파일을 선택하려고 시도했지만 도움이되지 않는 탭 구분으로 만 저장하는 것 같습니다.
중요한 경우 Excel 2003입니다.
답변:
기본 Excel 기능에서 얻을 수있는 가장 가까운 것은 다른 이름 으로 저장 | 서식있는 텍스트 (공백으로 구분) (*. prn) . 너비를 자동으로 결정하고 필요에 따라 해당 너비에 맞출 공간을 삽입합니다.
그 외에도 더 많은 작업을 수행 할 수있는 매크로 또는 기타 추가 기능이 필요합니다.
Office Professional이있는 경우 Access에서 Excel 파일을 연 다음 Access에서 내보내기를 수행 할 수 있습니다. Access를 사용하면 내 보낸 파일에 고정 너비 레이아웃을 지정할 수 있으며 해당 너비를 지정하기위한 매우 세밀한 컨트롤을 제공합니다.
와우, 나는이 질문을 직접 할 예정이지만 이미 요청되었습니다. 모든 Excel 클립 보드 출력은 tab기본적으로 구분됩니다. 이것은 고정 폭 글꼴을 가지고 있지만 반드시 탭 구분 기호를 지원할 필요는 없을 때 "실제"일반 텍스트 출력에 귀찮습니다.
어쨌든, 현재 선택한 영역을 간단한 고정 너비 열 ASCII 테이블로 복사하는 작은 Excel 매크로를 찾아서 수정했습니다.
187712 201 37 0.18 2525580149 0.25 136829137 43 0.31
다음은 매크로 코드입니다. 사용하려면 Excel 2007 이상을 사용하는 경우 Excel 옵션에서 개발자 탭 을 활성화 해야합니다 .
Sub CopySelectionToClipboardAsText()
' requires a reference to "Windows Forms 2.0 Object Library"
' add it via Tools / References; if it does not appear in the list
' manually add it as the path C:\Windows\System32\FM20.dll
Dim r As Long, c As Long
Dim selectedrows As Integer, selectedcols As Integer
Dim arr
arr = ActiveSheet.UsedRange
selectedrows = UBound(arr, 1)
selectedcols = UBound(arr, 2)
Dim temp As Integer
Dim cellsize As Integer
cellsize = 0
For c = 1 To selectedcols
temp = Len(CStr(Cells(1, c)))
If temp > cellsize Then
cellsize = temp
End If
Next c
cellsize = cellsize + 1
Dim line As String
Dim output As String
For r = 1 To selectedrows
line = Space(selectedcols * cellsize)
For c = 1 To selectedcols
Mid(line, c * cellsize - cellsize + 1, cellsize) = Cells(r, c)
Next c
output = output + line + Chr(13) + Chr(10)
Next r
Dim MyData As MSForms.DataObject
Set MyData = New DataObject
MyData.SetText output
MyData.PutInClipboard
MsgBox "The current selection was formatted and copied to the clipboard"
End Sub
먼저 데이터를 Courier New (또는 다른 고정 너비 글꼴)로 형식화하십시오. 그런 다음 .prn으로 저장하면 고정 너비가 고정됩니다.
Jeff Atwood의 답변을 확장하면 설명 할 수 없기 때문에 :
열 너비를 해당 열에서 가장 넓은 셀로 설정하고 각 열에 자체 너비를 갖도록 매크로를 수정했습니다. 그의 매크로는 첫 번째 행에서 가장 넓은 셀만 찾은 다음 모든 열의 너비를 설정했습니다.
Sub CopySelectionToClipboardAsText()
' requires a reference to "Windows Forms 2.0 Object Library"
' add it via Tools / References; if it does not appear in the list
' manually add it as the path C:\Windows\System32\FM20.dll
Dim r As Long, c As Long, linesize As Long
Dim selectedrows As Integer, selectedcols As Integer
Dim arr
arr = ActiveSheet.UsedRange
selectedrows = UBound(arr, 1)
selectedcols = UBound(arr, 2)
ReDim CellSizes(1 To selectedcols, 2) As Integer
Dim temp As Integer
Dim cellsize As Integer
linesize = 0
For c = 1 To selectedcols
cellsize = 0
For r = 1 To selectedrows
temp = Len(CStr(Cells(r, c)))
If temp > cellsize Then
cellsize = temp
End If
Next
CellSizes(c, 0) = cellsize + 1
CellSizes(c, 1) = linesize
linesize = linesize + cellsize + 1
Next c
Dim line As String
Dim output As String
For r = 1 To selectedrows
line = Space(linesize)
For c = 1 To selectedcols
Mid(line, CellSizes(c, 1) + 1, CellSizes(c, 0)) = Cells(r, c)
Next c
output = output + line + Chr(13) + Chr(10)
Next r
Dim MyData As MSForms.DataObject
Set MyData = New DataObject
MyData.SetText output
MyData.PutInClipboard
MsgBox "The current selection was formatted and copied to the clipboard"
End Sub
이것은 나를위한 살인자입니다. 몇 가지 옵션도 있습니다.
http://www.sensefulsolutions.com/2010/10/format-text-as-table.html
: 그것은 액세스 상자 밖으로 작동 https://support.office.com/en-ie/article/export-data-to-a-text-file-f72dfc38-a8a0-4c5b-8c2c-bf2950814140#bmsteps 이와 Excel보다 훨씬 쉽고 빠릅니다. 제 경우에는 테이블 변환이었습니다.