|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
안녕하세요.
마지막행수를 찾을려 하는데요. VBA 에 있는 팁중에 일부를 가져쓰려는데
어느것이 잘못되었는지요.
Dim dir_name, name1, name2, name3, 수식1, 수식2, sys_name As String
Dim i, j, k, l, local_cnt, line_cnt As Integer
Dim Tline_cnt As Double
Dim rngLine As Range '마지막 행수를 담을 변수
Dim lngTemp As Long '마지막 행수를 담을 임시변수
Windows("TS를 Excel로 변환.xls").Activate '수행할 화일명 위치
Worksheets("작업정보").Select
local_cnt = Cells(12, 2) '실행할 시스템 수
'종합 할 화일 생성
name1 = Cells(11, "B") '위치할 디렉토리
name3 = Cells(11, "D") '종합 할 화일명
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=name1 + name3, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
'종합화일 헤더복사하기
Windows("TS를 Excel로 변환.xls").Activate
Rows("7:9").Select
Selection.Copy
Windows(name3).Activate
Rows("3:3").Select
Selection.Insert Shift:=xlDown
'마지막행수 찾기
Worksheets("Sheet1").Select
lngTemp = rngLast.Row <----------------- 이부분에서 디버그 발견됩니다.
|
|