컴퓨터잡담

Excel VBA)OpenDatabase 방법 [Excel 2003의 VBA 언어 참조]

by 디케 posted Oct 23, 2011
?

단축키

Prev이전 문서

Next다음 문서

ESC닫기

크게 작게 위로 아래로 댓글로 가기 인쇄

Excel VBA)OpenDatabase 방법 [Excel 2003의 VBA 언어 참조]


‘사용 방법
Dim Filename As String
Dim CommandText As Object
Dim CommandType As Object
Dim BackgroundQuery As Object
Dim ImportDataAs As Object
Dim returnValue As Workbook
Dim workbooks1 As Workbooks
returnValue = workbooks1.OpenDatabase(Filename, CommandText, CommandType, BackgroundQuery, ImportDataAs)


'Declaration
Function OpenDatabase( _
	<InAttribute()> ByVal Filename As String, _
	<InAttribute()> Optional ByVal CommandText As Object, _
	<InAttribute()> Optional ByVal CommandType As Object, _
	<InAttribute()> Optional ByVal BackgroundQuery As Object, _
	<InAttribute()> Optional ByVal ImportDataAs As Object _
) As Workbook



 통합 문서 를 데이터베이스로 반환하여 가져오기.

expression.OpenDatabase(FileNameCommandTextCommandTypeBackgroundQueryImportDataAs)


조건.   개체 중 하나를 반환 표현식을 목록에 적용됩니다.


FileName  :          필수 문자열 . 

                            데이터베이스의 위치와 파일 이름을 포함하는 연결 문자열입니다.


CommandText   : 선택 변종 . 

                           쿼리의 명령 텍스트입니다.


CommandType  : 선택 변종 . 쿼리의 명령을 입력합니다. 

                           상수 중 하나를 지정 xlCmdType 열거

xlCmdCube , xlCmdList , xlCmdSql , xlCmdTable , 그리고xlCmdDefault .


BackgroundQuery   선택 변종 . 

                              이 매개 변수는 변형 데이터 형식하지만 당신은 단지 Boolean 값을 전달할 수 있습니다. 당신이 통과하는 경우 True를 , 쿼리가 백그라운드 (비동기)에서 수행됩니다. 기본값은 False를 .


ImportDataAs   선택 변종 . 

                        이 매개 변수는의 값 중 하나를 사용 XlImportDataAs를 열거합니다. 이 열거의 두 값은 xlPivotTableReport 및 xlQueryTable . 피벗 테이블 또는 QueryTable로 데이터를 반환하려면 다음 값 중 하나를 전달합니다. 기본값입니다 xlQueryTable .

이 예제에서는 Microsoft Excel은 "Northwind.mdb를"파일을 엽니다. \ 드라이브 :이 예제는 "Northwind.mdb 데이터 파일"이라는 파일이 C에 존재하는 것으로 가정합니다.

Sub UseOpenDatabase()
    ' Open the Northwind database in the background and create a PivotTable
    Workbooks.OpenDatabase Filename:="c:\Northwind.mdb", _
        CommandText:="Orders", _
        CommandType:=xlCmdTable, _
        BackgroundQuery:=True, _
        ImportDataAs:=xlPivotTableReport
End Sub