은 2007 년 Excel에서 오류를 일으 킵니다. 호환성 모드가 아닌 작업 북을 추가하려면 어떻게해야합니까?

Question

새로운 workbook을 만들 때 오류가 발생하는 것으로 밝혀졌습니다. 65536 행의 제한이있는 Excel 2003과의 호환성 모드에서 만들어졌습니다. 붙여 넣으려는 범위가 그보다 많은 행을 가지고 있습니다. 호환성 모드에서 nto 인 통합 문서를 어떻게 추가합니까 ??

For c = 1 To Round(z/x + 0.5) 
Rows("9:" & x).Select 
Selection.Copy 
Workbooks.Add 
Range("A9").Select 
ActiveSheet.Paste 
'Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
ActiveWindow.ActivateNext 
Selection.Delete 
Rows("1:8").Copy 
ActiveWindow.ActivatePrevious 
Range("A1").Select 
ActiveSheet.Paste 
'Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Range("E3") = c 
    ActiveWorkbook.SaveAs Filename:=FileLocation2 & "\" & g & "-" & c _ 
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ 
    ReadOnlyRecommended:=False, CreateBackup:=False 
ThisWorkbook.Save 
ActiveWindow.Close 
Next c 

Answer 1

(매우 매우 느립니다) 나는 문제를 해결했다. 그것은 통합 문서를 추가하는 문제였습니다. .xlsx 등으로 저장하십시오. 그런 다음 아무 것도 붙여 넣기 전에 다시 엽니 다. 이것은 호환성 모드에서 새로 추가 된 통합 문서를 가져옵니다.

모두에게 감사드립니다.

Answer 2

붙여 넣기 전에 각 셀을 선택하지 않고 시도 했습니까? (당신은 VBA에서 사용하기 전에 select에 모든 세포가 필요하지 않습니다) - 당신은 당신은 단지 값을 복사하려면 복사/붙여 넣기 할 필요가 없습니다 그래서

Dim ws as Worksheet 
Set ws = ActiveSheet 
For c = 1 To Round(z/x + 0.5) 
    Workbooks.Add 
    ActiveSheet.Range("A9").Value = ws.Rows("9:" & x).Value 'you shouldn't have to use ActiveSheet but i'll keep it to show the difference between ws and ActiveSheet 
    ActiveWindow.ActivateNext 'this is dangerous because you can't be sure which window will be activated next 
    Selection.Delete   'this is dangerous too. Can't you tell which row is this instead of using Selection? Is this macro user triggered? 
    Rows("1:8").Copy 
    ActiveWindow.ActivatePrevious 'same comment as above 
    Range("A1").Paste 
    Range("E3").Value = c 
    ActiveWorkbook.SaveAs Filename:=FileLocation2 & "\" & g & "-" & c _ 
    , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ 
     ReadOnlyRecommended:=False, CreateBackup:=False 
    ThisWorkbook.Save 
    ActiveWindow.Close 
Next c