标准实用文案大全VB打开EXCEL的方法一楼的没有指明DimxlBookAsExcel.WorkBookSetxlBook=App.Workbooks.Open("文件名")这种语法同样要求excel已经存在才能操作。PublicxlAppAsExcel.ApplicationPublicxlBookAsExcel.WorkbookPublicxlCharAsNewExcel.ChartPublicxlSheetAsNewExcel.WorksheetSetxlApp=NewExcel.ApplicationSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.AddSetxlSheet=xlBook.Worksheets.AddxlSheet.Cells(1,1)="测试"'写入内容xlBook.SaveAs("FILENAME")'保存文件xlApp.QuitSetxlApp=Nothing本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。★打开相对路径下的文件PrivateSubCommand1_Click()ShellApp.Path&"\aaa.bat"EndSub还有更简单的:PrivateSubCommand1_Click()Shell"aaa.bat"EndSubaaa.bat就是那个BAT的名字.那就不一定......因为SHELL只对可执行文件有效.你可用WINDOWS外壳程序explorer.exe打开任何文件(包括文件夹)标准实用文案大全代码:PrivateSubCommand1_Click()Shell"explore.exeaaa.jpg"EndSub★VB调用EXCEL自带的查询功能在表格中查找内容PrivateSubComCx_Click()OnErrorGoTo50i=xlBook.Worksheets("代码").Range("A:A").Find(Trim(TexDm.Text)).Row★将程序中所有这一类的对象的某一属性全部更改为需要的属性DimItemAsObject'定义对象ForEachItemInMeIfTypeOfItemIsTextBoxThenItem.Text=""'将所有TextBox的Text属性值变为空IfTypeOfItemIsComboBoxThenItem.ListIndex=-1'将所有的ComboBox的ListIndex属性值变为“-1”NextIfNoti=0ThenDm=Trim(TexDm.Text)Sm=Trim(xlBook.Worksheets("代码").Cells(i,"B").Value)Dw=Trim(xlBook.Worksheets("代码").Cells(i,"D").Value)TexSm.Text=Sm&""&"("&Dw&")"ComQd.Visible=TrueGoTo100EndIf50TexSm.Text="没有找到相匹配的信息！"100EndSub★如何使编的程序可以调用excel首先要引用再定义对象及其类型DimxlAppAsExcel.ApplicationDimxlBookAsExcel.Workbook标准实用文案大全DimxlSheetAsExcel.WorksheetSetxlApp=CreateObject("Excel.Application")'创建EXCEL对象检包组合金厂代码查询合金JDE代码.xls")xlApp.Visible=FalseSetxlSheet=xlBook.Worksheets("确认信息")★另存为ChDir"D:\"合金厂产品质检明细表.xls",FileFormat:=xlExcel8,_Password:="",WriteResPassword:="",ReadOnlyRecommended:=False,_CreateBackup:=FalseVB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。一、VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：1、在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkBookDimxlSheetAsExcel.Worksheet3、在程序中操作EXCEL表常用命令：SetxlApp=CreateObject("Excel.Application")'创建EXCEL对象SetxlBook=xlApp.Workbooks.Open("文件名")'打开已经存在的EXCEL工件簿文件标准实用文案大全xlApp.Visible=True'设置EXCEL对象可见（或不可见）SetxlSheet=xlBook.Worksheets("表名")'设置活动工作表xlSheet.Cells(row,col)=值'给单元格（row,col）赋值xlSheet.PrintOut'打印工作表xlBook.Close(True)'关闭工作簿xlApp.Quit'结束EXCEL对象SetxlApp=Nothing'释放xlApp对象xlBook.RunAutoMacros(xlAutoOpen)'运行EXCEL启动宏xlBook.RunAutoMacros(xlAutoClose)'...
