첫째, VB 읽기 및 쓰기 EXCEL 테이블:
VB 자체는 다음과 같은 방법으로 EXCEL 테이블을 읽고 쓰는 자동화 기능을 제공합니다.
1, 프로젝트의 Microsoft Excel 유형 라이브러리 참조:
[프로젝트] 메뉴에서 [참조] 막대를 선택합니다. Microsoft excel 9.0 오브젝트 라이브러리 (excel 2000) 를 선택하고 확인을 선택합니다. EXCEL 유형 라이브러리가 프로젝트에서 참조됨을 나타냅니다.
2. 일반 객체를 선언하는 동안 EXCEL 객체를 정의합니다.
XlApp 을 Excel 로 조정합니다. 응용하다
XlBook 을 Excel 로 조정합니다. 연습장
XlSheet 를 Excel 형식으로 조정합니다. 워크시트
3. 프로그램에서 EXCEL 테이블을 조작하는 일반적인 명령:
Set xlapp = createobject ("EXCEL ") 입니다. 응용 프로그램 ")' 이 (가) Excel 객체를 만듭니다.
XlBook = xlApp 를 설정합니다. Workbooks.Open ("파일 이름")' 기존 EXCEL 통합 문서 파일을 엽니다.
XlApp. Visible = True' 는 EXCEL 객체가 표시되거나 보이지 않도록 설정합니다.
XlSheet = xlBook 을 설정합니다. Worksheets ("table name ")' 활성 워크시트를 설정합니다.
XlSheet 입니다. Cells(row, col) = value' 는 셀 (row, col) 에 값을 할당합니다.
XlSheet 입니다. 출력 인쇄는 워크시트를 인쇄합니다.
엑스박스. 닫기 (true)' 통합 문서를 닫습니다.
XlApp. 종료 EXCEL 객체를 종료합니다.
Set xlApp = Nothing' 은 xlApp 객체를 해제합니다.
엑스박스. Runautomacro(xlautoopen)' EXCEL 시작 매크로를 실행합니다.
Xlbook.runautomacros (xlautoclose)' EXCEL 을 실행하여 매크로를 끕니다.
4. 위의 VB 명령을 사용하여 EXCEL 테이블을 조작할 때, EXCEL 객체가 보이지 않도록 설정되어 있지 않으면 VB 프로그램은 다른 작업을 계속하고, EXCEL 을 닫고, EXCEL 을 조작할 수 있습니다. 그러나 EXCEL 작업 중에 EXCEL 객체가 닫힐 때 VB 프로그램은 알 수 없습니다. 이때 EXCEL 개체를 사용하면 VB 프로그램에서 자동화 오류가 발생합니다. VB 프로그램은 EXCEL 의 상황을 완전히 통제할 수 없어 VB 와 EXCEL 이 단절된다.
둘째, EXCEL 매크로 기능:
EXCEL 은 Visual Basic 편집기를 제공합니다. 프로젝트 속성 창이 있는 Visual Basic 편집기를 엽니다. 오른쪽 클릭 메뉴에서 "모듈 삽입" 을 클릭하고 "모듈 1" 을 추가합니다. 모듈의 함수와 프로시저는 Visual Basic 언어로 작성하여 매크로를 호출할 수 있습니다. 여기서 EXCEL 에는 시작 매크로 (Sub Auto_Open ()) 와 종료 매크로 (Sub Auto_Close ()) 의 두 가지 자동 매크로가 있습니다. 시작 매크로가 포함된 통합 문서를 EXCEL 을 사용하여 입력하면 시작 매크로가 자동으로 실행된다는 특징이 있습니다. 마찬가지로 shutdown 매크로가 포함된 통합 문서를 닫으면 자동으로 shutdown 매크로가 실행됩니다. 그러나 VB 의 자동화 기능을 통해 EXCEL 워크시트를 호출하면 시작 및 종료 매크로가 자동으로 실행되지 않고 xlbook 명령을 통해 시작 및 종료 매크로를 실행해야 합니다. Runautomacros (xlautoopen) 및 xlbook. VB 의 Runautomacros (xlautoclose) 입니다.
셋째, VB 와 엑셀 통신:
EXCEL 의 시작 및 종료 매크로를 최대한 활용하여 VB 와 EXCEL 간의 통신을 가능하게 합니다. 이러한 방법은 다음과 같습니다.
EXCEL 의 시작 매크로에 프로그램을 추가합니다. 이 프로그램은 디스크에 플래그 파일을 쓰고 종료 매크로에 이 플래그 파일을 제거하는 프로그램을 추가하는 것입니다. VB 프로그램은 실행 시 이 로고 파일이 있는지 판단하여 EXCEL 이 열려 있는지 여부를 판단합니다. 이 플래그 파일이 있으면 EXCEL 객체가 실행 중인 것이므로 다른 프로그램이 실행되지 않도록 해야 합니다. 이 플래그 파일이 없으면 EXCEL 객체가 사용자에 의해 닫힌 것입니다. 이 시점에서 EXCEL 객체를 사용하여 실행하려면 EXCEL 객체를 다시 만들어야 합니다.
네 번째 예:
1. VB 에서 양식을 만들고 그 위에 두 개의 명령 버튼을 놓고 Command 1 의 Caption 속성을 EXCEL 로 변경하고 Command2 의 Caption 속성을 End 로 변경합니다. 그런 다음 여기에 다음 절차를 입력합니다.
Dimxlappasasexcel. 응용 프로그램은 EXCEL 클래스를 정의합니다.
XlBook 을 Excel 로 조정합니다. 워크북은 워크북 클래스를 정의합니다.
Xlsheet 를 Excel 형식으로 조정합니다. Worksheet 는 워크시트 클래스를 정의합니다.
Private Sub 명령 1_Click ()' EXCEL 프로그램을 엽니다.
Ifdir ("d: \ temp \ excel.bz") = ""그런 다음' excel 이 열려 있는지 여부를 결정합니다.
Set xlapp = createobject ("EXCEL ") 입니다. Application ")' Excel 응용 프로그램 클래스를 만듭니다.
XlApp. Visible = True 는 EXCEL 이 표시되도록 설정합니다.
Set xlbook = xlapp.workbooks.open ("d: \ temp \ bb.xls")' EXCEL 통합 문서를 엽니다.
Set XL sheet = xlbook.worksheets (1)' EXCEL 워크시트를 엽니다.
Xlsheet 입니다. 활성은 워크시트를 활성화합니다.
Xlsheet 입니다. Cells (1, 1) = "ABC "'는 1 셀의 행에 값을 할당합니다.
Xlbook.runautomacros (xlautoopen) 는 EXCEL 에서 시작 매크로를 실행합니다.
기타
MsgBox ("EXCEL 열림 ")
만약 ... 끝날거야
끝단 접합
개인 하위 명령 2_Click ()
Ifdir ("d: \ temp \ excel.bz") < & gt ""그런 다음 VB 를 사용하여 EXCEL 을 닫습니다.
엑스박스. Runautomacros (xlautoclose)' EXCEL 실행 종료 매크로.
엑스박스. 닫기 (True) 는 EXCEL 통합 문서를 닫습니다.
XlApp. 종료하고 EXCEL 을 닫습니다.
만약 ... 끝날거야
Set xlApp = Nothing' 은 EXCEL 객체를 해제합니다.
끝
끝단 접합
2. d 디스크 루트 아래에 Temp 라는 하위 디렉토리를 생성하고 Temp 디렉토리 아래에 bb.xls 라는 EXCEL 파일을 작성합니다.
3. "bb.xls" 에서 Visual Basic 편집기를 열고 프로젝트 창에서 마우스 버튼을 클릭하여 삽입 모듈을 선택한 후 모듈에 다음 프로그램 저장을 입력합니다.
Sub auto_open ()
D: \ temp \ excel.bz 를 # 1' 쓰기 플래그 파일로 엽니다.
닫기 # 1
끝단 접합
Sub auto_close ()
Kill "d:\temp\excel.bz "'로고 파일을 삭제합니다.
끝단 접합
4. VB 프로그램을 실행하고 EXCEL 버튼을 클릭하여 EXCEL 시스템을 엽니다. EXCEL 시스템을 열면 VB 프로그램과 EXCEL 은 서로 다른 두 응용 프로그램 시스템에 속하므로 둘 다 동시에 작동할 수 있습니다. 시스템이 판단을 추가했기 때문에 VB 프로그램에서 EXCEL 버튼을 반복해서 클릭하면 EXCEL 이 이미 열려 있음을 알 수 있습니다. EXCEL 에서 EXCEL 을 닫은 다음 EXCEL 버튼을 클릭하면 EXCEL 이 다시 열립니다. EXCEL 이 열려 있는지 여부에 관계없이 VB 프로그램을 통해 EXCEL 을 닫을 수 있습니다. 이를 통해 VB 와 EXCEL 간의 원활한 연결이 가능합니다.