파일을 여는 동안 동적으로 행의 상한을 확장하십시오.

VBA를 사용하여 ".all" 유형의 파일을 열어야했습니다. 이 파일 유형은 7.000.000 ~ 20.000.000 행 사이에 있습니다. 이 코드를 사용파일을 여는 동안 동적으로 행의 상한을 확장하십시오.

임 :이 루틴으로

Sub open() 
book1 = ActiveWorkbook.Name 
file1 = Application.GetOpenFilename("ALL Files (*.all), *.all") 
Worksheets("res").Range("K1").Value = file1 
Workbooks.OpenText file1, origin:=xlWindows, startrow:=1, DataType:=xlTextFormat 
del = ActiveWorkbook.Name 
ActiveSheet.Copy before:=Workbooks(book1).Sheets(1) 
Workbooks(del).Close False 
Sheets(1).Activate 
ActiveSheet.Name = "acti" 
End Sub

나는 1.048.576 행의 최대 수를 얻을.

행의 상한을 동적으로 확장하는 방법은 무엇입니까?

감사합니다.

출처

2016-07-22 user6626956

하려고 여러 시트에 따라 데이터를 분할해야합니다 1.048.576 행입니다. –

https://support.office.com/en-us/article/Excel-specifications-and-limits-ca36e2dc-1f09-4620-b726-67c00b05040f – Slai

최대 한도에 도달하면 데이터를 분할하는 명령입니다. Application.GetOpenFilename을 사용 하시겠습니까? – user6626956

는 Excel에서 기록의 양을 조작하는 것이 가능, 엑셀 시트의 범위 사용하여 배열 check this one

출처

2016-07-22 23:21:46 HeyYouCoding

파일을 여는 동안 동적으로 행의 상한을 확장하십시오.

답변

관련 문제