Link between data center management system VB and Excel

Source: Internet
Author: User
Today, when I knocked on the data center management system to check the computer status, I found a button to export it to excel. When I go, I have to link my feelings to an excel table. As a result, I broke my little silver tooth and tried to query the connection between vb and excel one afternoon. My general idea is: first, reference the Excel Type Library in vb. Second, declare an excel pair

Today, when I knocked on the data center management system to check the computer status, I found a button to export it to excel. When I go, I have to link my feelings to an excel table. As a result, I broke my little silver tooth and tried to query the connection between vb and excel one afternoon. My general idea is: first, reference the Excel Type Library in vb. Second, declare an excel pair

Today, I found a button "export to excel" when I checked the computer status in the data center management system-students. When I go, I have to link my feelings to an excel table. As a result, I broke my little silver tooth and tried to query the connection between vb and excel one afternoon.

My general idea is:

First, reference the Excel Type Library in vb.


Second, declare the excel object. Here, we do not just declare an excel table, but also declare workbooks and worksheets.

The following code:

Dim xlApp As Excel. Application

Dim xlBook As Excel. Workbook

Dim xlSheet As Excel. Worksheet

Finally, you can operate the excel table in the VB program.

Basic operations in the IDC management system include:

Set xlApp = CreateObject ("Excel. Application") 'create an EXCEL Application class

XlApp. Visible = true' set EXCEL to be Visible

Set xlBook = xlApp. Workbooks. Open (App. Path & "\ create Microsoft Excel worksheet .xls") 'Open the EXCEL Workbook

Set xlSheet = xlBook. Worksheets (1) 'open an EXCEL worksheet

XlSheet. Activate a worksheet

XlSheet. Cells (1, 1) = myflexgrid. TextMatrix (0, 0 )...... 'Assign a value to the driving column of cell 1

XlBook. RunAutoMacros (xlAutoOpen) 'Run the start macro in EXCEL

In addition, there are some expansion operations:

XlSheet. PrintOut print the worksheet

XlBook. Close (True) 'Close the workbook

XlApp. Quit 'End the EXCEL Object

Set xlApp = Nothing 'to release the xlApp object

Question 1 (The Role of excel macros ):

EXCEL provides a visual basic editor that opens the Visual Basic Editor. In the Project Properties window, right-click the menu and choose "insert module" to add Module 1 ", in this module, functions and processes can be written in Visual Basic and called macros. EXCEL has two automatic macros: Sub Auto_Open () and SubAuto_Close ()). Their features are: When you use EXCEL to create a workbook containing a macro, the macro will be automatically started. Similarly, when you close a workbook that contains a disabled macro, the macro is automatically disabled. However, when you use the automation function of VB to call an EXCEL worksheet, starting or disabling macros does not run automatically. Instead, you need to use the command xlBook in VB. runAutoMacros (xlAutoOpen) and xlBook. runAutoMacros (xlAutoClose) to run start macro and close macro. (My understanding is that VBA in EXCEL is the application of VB in EXCEL)

Question 2 (subscript out of bounds ):

The problem should be solved on the flexgrid Control. When designing the interface, you can solve the problem by setting the initial number of columns to 9.

Note:

When using the preceding VB command to operate an EXCEL table, the vbprogram can continue to perform other operations, close the EXCEL file, and perform operations on the EXCEL file unless the EXCEL file is invisible. However, when you close an EXCEL object during an EXCEL operation, you cannot know the vbprogram. If you use an EXCEL object at this time, the vbprogram will generate an automation error. The formation of VB program cannot fully control the EXCEL, making VB and EXCEL out of touch.

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.