모바일 - eToLAND - 컴퓨터
[소프트웨어] 비주얼베이직 엑셀 핸들링 에러납니다. 아시는 분 계실까요?
짬통고양이 | 2021-06-12 (토) 16:13 | 조회 253 | 추천 7 
| |
Sub Write_Hour()

Dim ExcelApp As Object
Dim DayRpt As Object
Dim Sheet1 As Object


DNAME = GetTagVal("DNAME")
fName$ = "D:\보고서\공통\사용량보고서\" & DNAME & ".xlsx"

 
Set ExcelApp = CreateObject("Excel.Application")
Set DayRpt = ExcelApp.Workbooks.Open (fName$) 
Set Sheet1 = DayRpt.Worksheets(1)

 
Sheet1.Range("A1").Value = A1#


DayRpt.Save

DayRpt.Close

ExcelApp.Quit

Set ExcelApp = Empty


End Sub






마지막 Set ExcelApp = Empty 에서 계속 에러가 납니다 ㅜ.ㅜ


이미지뽕 2021.06.13 13:08
Set ExcelApp = Nothing 아닌가요?

헷갈리신듯...


배열형의 경우
  Erase 변수명

문자형의 경우
  변수명 = vbNullstring
  또는
  변수명 = ""

Range 형, Object 형, 기타...
  Set 변수명 = Nothing
글쓴이 2021.06.14 11:18
악..... 해결됐습니다. ㅜ.ㅜ 감사합니다~!
전체게시물  (더보기)
[13:47] 도미니카 선수: ????? [유머게시판]
[13:47] 목포의 회미니스트 [유머게시판]
[13:41] 요즘 젊은 것들은 버릇이 없다 (2) [유머게시판]
[13:40] 알리 자주 사용하시는분~? (1) [회원게시판]
[13:38] 에어컨 희망온도 (2) [회원게시판]
[13:29] 체리 서지수 (러블리즈) (1) [연예인]
[13:26] LibreOffice 7.1.5 [공개자료실]
[13:21] 오타니 쇼헤이 36호 홈런 영상 (10) [유머게시판]
홈으로 | 로그인 | 출석체크 | 다크모드 | PC버전 | 맨위로