Excel에는 워크 시트에 포함 할 수있는 행 수에 대한 제한이 있습니다 (최대 65,535 개). 그러나이 행 수보다 많은 원시 데이터 파일이있을 수 있습니다. 해당 파일을 Excel로 가져와야하는 경우 Excel 2007 이상 버전으로 업그레이드하지 않고는 거의 불가능한 것처럼 보일 수 있습니다. (그 이후 버전은 65,535 행 제한을 위반했습니다.) 그러나 수행 할 수있는 몇 가지 작업이 있습니다.

한 가지 가능성은 원시 텍스트 파일 (가져올 파일)의 복사본을 만든 다음 각 파일의 크기를 줄이는 것입니다. 예를 들어 Excel로 가져와야하는 총 110,000 개의 행이 있고 65,535 행 제한 아래에서 작업하는 경우 원시 텍스트 파일의 복사본을 두 개 만들 수 있습니다. 첫 번째 텍스트 파일의 두 번째 절반과 두 번째 절반의 절반을 삭제합니다. 따라서 첫 번째 파일 (현재 55,000 행)을 하나의 워크 시트와 두 번째 파일 (55,000 행)으로 가져올 수 있습니다.

두 번째로.

입력 파일을 분리하지 않으려면 파일을 Access로 가져 오는 것을 고려할 수 있습니다. Excel과 달리 Access는 가져올 수있는 행 수에 사실상 제한이 없습니다. 그런 다음 Access에서 파일로 작업하거나 Excel에서 사용할 파일의 일부를 내보낼 수 있습니다.

마지막으로 매크로를 사용하여 큰 소스 파일의 레코드를 가져올 수 있습니다. 이 작업을 수행 할 수있는 방법은 여러 가지가 있지만 모든 접근 방식의 기본 아이디어는 원본 파일에서 각 행을 가져와 워크 시트의 새 행에 배치하는 것입니다. 매크로는 배치 된 행 수를 추적하고 필요한 경우 새 워크 시트로 전환해야합니다.

Public Sub LoadFile()

Dim strLine As String     Dim I As Long     Dim J As Long     Dim iLen As Integer     Dim iSh As Integer     Dim lL As Long     Dim sDelim As String     Dim MaxSize As Long

sDelim = Chr(9)

MaxSize = 65000     I = 0     Open "C:\MyDir\MyFile.txt" For Input As #5     Do While Not EOF(5)

iSh = (I / MaxSize) + 1         lL = I Mod MaxSize         Line Input #5, strLine         If Right(strLine, 1) <> sDelim Then            strLine = Trim(strLine) & sDelim         End If         J = 0         Do While Len(strLine) > 1             iLen = InStr(strLine, sDelim)

Worksheets("Sheet" & iSh).Offset(lL, J).Value = _               Trim(Left(strLine, iLen - 1))

strLine = Trim(Right(strLine, Len(strLine) - iLen))

J = J + 1         Loop         I = I + 1     Loop     Close #5 End Sub

매크로는 데이터를 포함 할 수있는 충분한 워크 시트가 이미 통합 문서에 있고 Sheet1, Sheet2, Sheet3 등으로 번호가 지정되어 있다고 가정합니다. 프로그램에서 확인하려는 두 가지 변수는 sDelim 및 MaxSize의 설정입니다. 첫 번째는 읽고있는 정보에서 필드 구분 기호로 사용되는 문자를 지정합니다. 두 번째는 각 워크 시트에서 원하는 최대 행 수를 지정합니다. (MaxSize를 Excel 버전에서 허용하는 것보다 크게 설정하지 마십시오.)

마지막으로 매크로가 MyFile.txt 텍스트 파일을 엽니 다. 가져 오려는 실제 소스 파일을 열도록이 Open 문을 변경해야합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2533)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.