VB6 튜토리얼: ACCESS 데이터베이스를 EXCEL 테이블로 내보내기

VB6을 사용하여 ACCESS 데이터베이스를 EXCEL 테이블로 내보내는 방법

VB 자체에서는 EXCEL 테이블을 읽고 쓸 수 있는 자동화 기능을 제공합니다.

1. 프로젝트에서 Microsoft Excel 유형 라이브러리를 참조하세요.

"프로젝트" 메뉴에서 "참조" 열을 선택하고 Microsoft Excel 9.0 개체 라이브러리(EXCEL2000)를 선택한 다음 "확인"을 선택합니다. EXCEL 형식 라이브러리가 프로젝트에서 참조되어야 함을 나타냅니다.

2. 일반 개체 선언 과정에서 EXCEL 개체를 정의합니다.

Dim xlApp을 Excel.Application으로

Dim xlBook을 Excel.WorkBook으로

Dim xlSheet를 Excel.Worksheet로

3. 프로그램에서 EXCEL 테이블을 작동하기 위한 일반적인 명령:

Set xlApp = CreateObject("Excel.Application") 'EXCEL 객체 생성

Set xlBook = xlApp.Workbooks.Open ("파일 이름") '기존 EXCEL 통합 문서 파일 열기

xlApp.Visible = True 'EXCEL 객체가 보이도록(또는 보이지 않게) 설정

Set xlSheet = xlBook.Worksheets("시트 이름") '활성 워크시트 설정

xlSheet.Cells(row, col) =value '셀(행, 열)에 값 지정

xlSheet.PrintOut '워크시트 인쇄

xlBook.Close (True) '워크북 닫기

xlApp.Quit 'EXCEL 개체 종료

Set xlApp = 없음 'xlApp 개체 릴리스

xlBook.RunAutoMacros (xlAutoOpen) 'EXCEL 시작 매크로 실행

xlBook.RunAutoMacros (xlAutoClose) 'EXCEL 닫기 매크로 실행

4. 위의 VB 명령을 사용하여 EXCEL 테이블을 작동할 때 EXCEL 개체가 보이지 않도록 설정되지 않은 한 VB 프로그램은 계속해서 다른 작업을 수행하고 EXCEL을 닫는 동시에 EXCEL을 작동할 수 있습니다. 그러나 EXCEL 작업 중에 EXCEL 개체가 닫히면 VB 프로그램은 알 수 없습니다. 이때 EXCEL 개체를 사용하면 VB 프로그램에서 자동화 오류가 발생합니다. 이로 인해 VB 프로그램이 EXCEL을 완전히 제어할 수 없어 VB와 EXCEL의 연결이 끊어지는 상황이 발생합니다.

VC를 사용하여 EXCEL 테이블을 읽는 방법 ⑴ 심사위원 颍涑

EXCEL은 실제로 데이터베이스입니다. 해당 열은 데이터베이스 테이블의 열 필드이고 행은 ADO를 통해 삽입된 코드가 있으며 삽입을 읽기로 바꿀 수 있습니다.

_ConnectionPtr m_pConnect; //ADO 객체, 아래와 동일

_RecordsetPtr m_pRecordset;

CString SQL;

sql = "공급자=Microsoft.Jet.OLEDB.4.0;데이터 원본=";

sql+=strExcelFile;//Excel 파일 절대 경로 + 자체 파일 이름.

sql+=＂;확장 속성=Excel 8.0＂;

m_pConnect.CreateInstance(__uuidof(연결));

m_pRecordset.CreateInstance(__uuidof(레코드세트));

m_pConnect->Open((LPCSTR)sql,""",""",adModeUnknown);

m_pRecordset->Open("[iomstats]에서 * 선택", m_pConnect.GetInterfacePtr(),

adOpenDynamic, adLockOptimistic,adCmdText);//[iomstats]는 엑셀 왼쪽 하단에 있는 [sheet]의 수정된 이름입니다.

동안(!m_pRecordset->adoEOF)

{

//줄 수정

if((LPCSTR)_bstr_t(m_pRecordset->GetCollect("times")) == strTime)

{

//_variant_t

ultoa(iomStats.dwNumOfDiskReads,charbuf,RADIX);

m_pRecordset->PutCollect("dwNumOfDiskReads",_variant_t(charbuf));

}

m_pRecordset->MoveNext();

}

m_pRecordset->업데이트();

m_pRecordset->닫기();

m_pConnect->닫기();

VB에서 Excel 데이터를 읽고 배열에 저장하는 방법

EXCEL 테이블 읽기 및 쓰기:

1. 프로젝트에서 Microsoft Excel 유형 라이브러리를 참조하세요.

"프로젝트" 메뉴에서 "참조" 열을 선택하고 Microsoft Excel 12.0 개체 라이브러리(EXCEL2007)를 선택한 다음 "확인"을 선택합니다. EXCEL 형식 라이브러리가 프로젝트에서 참조되어야 함을 나타냅니다.

2. 일반 개체 선언 과정에서 EXCEL 개체를 정의합니다.

Dim xlApp을 Excel.Application으로

Dim xlBook을 Excel.WorkBook으로

Dim xlSheet를 Excel.Worksheet로

3. 프로그램에서 EXCEL 테이블을 작동하기 위한 일반적인 명령:

Set xlApp = CreateObject("Excel.Application") 'EXCEL 객체 생성

Set xlBook = xlApp.Workbooks.Open ("파일 이름") '기존 EXCEL 워크북 파일 열기

Set xlBook = xlApp.Workbooks.Add("파일 이름") '새 EXCEL 통합 문서 파일 만들기

xlApp.Visible = True 'EXCEL 객체가 보이도록(또는 보이지 않게) 설정

Set xlSheet = xlBook.Worksheets("시트 이름") '활성 워크시트 설정

i=1~100의 경우

j=1 ~ 50의 경우

numArr(j,i)=xlSheet.Cells(j, i) '.................................. .... .

다음

다음

xlBook.Close (True) '워크북 닫기

xlApp.Quit 'EXCEL 개체 종료

Set xlApp = 없음 'xlApp 개체 릴리스

장지첸

VB로 Excel을 한 줄씩 읽는 방법

1. 먼저 VB에서 Excel 개체를 생성하여 Excel 파일에 액세스하세요. Excel이 CSV라면 필요하지 않습니다. 그냥 열고 Txt 텍스트 모드로 읽으세요.

2. Button 이벤트를 생성하고 얻은 데이터를 TextBox에 전달합니다.

다음 코드를 참조하세요:

조건: Sheet1의 A1에서 시작하는 100개의 단어로 구성된 Excel 파일 D:A.xls가 있습니다. VB에는 Form1에 Text1이라는 TextBox가 있고 구현 코드는 다음과 같습니다.

Private i를 정수로

비공개 하위 명령1_Click()

ExcelApp = CreateObject("Excel.Application") 설정

ExcelBook 설정 = ExcelApp.Workbooks.Open("D:A.xlsx")

Set ExcelSheet = ExcelBook.Worksheets("Sheet1")

Text1.Text = ExcelSheet.cells(i, 1)

나 = 나 + 1

내가 100보다 크면 나는 = 1

끝 서브

비공개 하위 양식_Load()

나 = 1

끝 서브

도움이 되길 바랍니다!

위 내용은 VB6 튜토리얼: ACCESS 데이터베이스를 EXCEL 테이블로 내보내기의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!