VBA excel 행 및 열 가져오기

2311 단어 도구
Sub  ()

Dim workbookTmp As Workbook
Dim worksheetTmp As Worksheet
Dim rangTmp As Range
Dim i%
Dim j%

' ThisWorkbook
' 
Debug.Print ThisWorkbook.Name
Debug.Print ActiveWorkbook.Name
' 
Set workbookTmp = Workbooks.Open("C:\Users\Administrator\Desktop\excelProj\luoehu17620079311443842528.xls")
Set worksheetTmp = workbookTmp.Sheets(1)
j = worksheetTmp.UsedRange.Columns.Count
Debug.Print "column num is ->" & j
For i = 1 To worksheetTmp.UsedRange.Rows.Count
Debug.Print "row num is ->" & i
'pring row data

Next

그리고 오늘 연습 중에 91의 오류가 발생했습니다.다음과 같이 기록합니다. 객체 변수 또는 With 블록 변수가 설정되지 않았습니다(오류 91). 객체 변수를 만드는 데는 두 가지 절차가 있습니다.먼저 객체 변수를 선언해야 합니다.그리고 대상 변수에 정확한 인용을 Set 문장으로 부여해야 합니다.마찬가지로, With... End With 블록은 먼저 With 문장 진입점으로 초기화를 실행해야 한다.이 오류에는 다음과 같은 원인과 해결 방법이 있습니다.
사용하려는 대상 변수는 정확한 대상의 인용으로 값을 지정하지 않았습니다.대상 변수에 인용을 지정하거나 다시 지정합니다.예를 들어, 다음 코드에서 Set 문구를 생략하면 MyObject 참조에 오류가 발생합니다.
Dim MyObject As Object에서 객체 변수를 작성합니다.Set MyObject = Sheets(1)올바른 객체 참조를 만듭니다.MyCount = MyObject.Count 계수 값은 MyCount에 부여됩니다.
** 사용하려는 객체 변수가 Nothing으로 설정되었습니다.Set MyObject = Nothing 객체를 해제합니다. **MyCount = MyObject.Count는 방출된 객체를 참조합니다.
객체에 참조할 변수를 다시 지정합니다.예를 들어, 새 Set 문구를 사용하여 객체에 새 참조를 설정합니다.
개체가 올바른 개체이지만 개체 라이브러리의 참조 대화상자에서 선택되지 않았기 때문에 설정되지 않았습니다.참조 추가 대화상자에서 객체 라이브러리를 선택합니다.
With 블록 내 GoTo 문장의 행방입니다.With 블록에 뛰어들지 마세요.블록이 초기화를 수행하기 위해 With 문장 진입 지점을 사용하는지 확인합니다.
다음 문장 설정 명령이 선택되면 With 블록에 행이 지정됩니다.With 블록은 With 문구로 초기화해야 합니다.

좋은 웹페이지 즐겨찾기