|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002): EXCEL 2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP): WinXP
3. CPU (486,PentiumI/II/III/IV...): PentiumIV 1.6 Gb
4. RAM (32,64,128,256,512MB,1G...): 256MB
* 아래줄에 질문을 작성하세요 >>
VBA를 공부하던 중에 궁금한 것이 있어서 질문올립니다.
어떤 파일을 열지 않고 그 파일에 특정시트(예를들어, DATA030808.xls파일의 dat01시트)가 있는지 없는지를 If문으로 비교해서 특정시트가 있으면 셀A1에 "OK"를 표시하고 없으면 "없슴"이라고 표시하는 VBA를 작성할 수 있나요?
답변 주시면 고맙겠습니다. 감사합니다. 여러분들 덕분에 많이 배우고 있습니다.
==============[안수경님 글에 대한 답변입니다]==============
.
.
.
안녕하세요..^^
미흡하지만 제가 답변을..
아래는 C:\ 내에 DATA030808.xls파일안에 dat01시트가 있는지의 여부를 검사하는 코드입니다. 참고해주세요..
단, 이 코드를 실행해주시기 전에 먼저 도구 => 참조에서 'Microsoft DAO 3.x Object Library'를 먼저 체크해주셔야 합니다..
Sub 검색()
Dim Mydb As DAO.Database
Dim iTable As TableDef
Const TName As String = "dat01$"
Dim Bln As Boolean
Set Mydb = OpenDatabase("c:\DATA030808.xls", False, False, "excel 8.0")
For Each iTable In Mydb.TableDefs
If iTable.Name = TName Then
Bln = True
Exit For
End If
Next iTable
Range("a1") = IIf(Bln, "OK", "없음")
Mydb.Close
Set Mydb = Nothing
End Sub
더불어 이 코드가 담긴 파일을 첨부해드립니다.
..도움이 되셨기를.. |
|