1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”->“引用”->找到MicrosoftExcel12.0ObjectLibrary->确定；然后才可以运行；3、代码如下：...

1、在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim...

1、在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim...

（activex控件比较麻烦，得用vba代码）右键点车间（1）控件，设置格式，最后一个标签“控制”，单元格链接处点到比如sheet1的g1，确定。在sheet2的a1输入=if(sheet1!g1,"车间（1）","车间（2）")就可以了。

'首先通过VB的菜单[工程]--[引用]，勾选：MicrosoftExcelXX.XObjectLibrary'其中XX.X，要看你计算机安装的OFFICE版本而定PrivateSubCommand1_Click()DimxlsAppAsExcel.Application'声明对象变量Set...

2、VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：第一步：在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。

就可以用打开Open(完整文件名)SetO=oExcel.Worksheets("sheet1")'选择表O.Worksheets("sheet1").Activate'Seto=oExcel.ActiveWorkbook.ActiveSheet'oExcel.Visible=Truemsgboxo.Cells(...

excelpath=Text1.Text'电子表格路经AccessTable=Text4.Text'数据库内表格sheet=Text3.Text'电子表格内工作表Setdb=OpenDatabase(excelpath,True,False,"Excel5.0")'打开电子表格文件SQL=...

假设这个EXCEL在桌面上，名字为1.xlsx,数据在A列。编写如下程序PrivateSubCommand1_Click()DimxlappAsExcel.ApplicationDimxlbookAsExcel.workbookDimxlshtAsExcel.WorksheetDimi%,rSetxlapp=...

SetExsh=Exb.Worksheets("Sheet1")Text1.Text=Exsh.Range("D4")ExApp.Workbooks.CloseExApp.QuitSetExApp=NothingEndSub运行前要在菜单的“工程”-“引用”-找到MicrosoftExcel的lib库才可以运行...