欢迎来到天天文库
浏览记录
ID:32601077
大小:79.00 KB
页数:20页
时间:2019-02-13
《vb打开excel地方法..》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、标准实用VB打开EXCEL的方法一楼的没有指明DimxlBookAsExcel.WorkBookSetxlBook=App.Workbooks.Open("文件名")这种语法同样要求excel已经存在才能操作。PublicxlAppAsExcel.ApplicationPublicxlBookAsExcel.WorkbookPublicxlCharAsNewExcel.ChartPublicxlSheetAsNewExcel.WorksheetSetxlApp=NewExcel.ApplicationSetxlApp=CreateObject("Excel.Applicati
2、on")SetxlBook=xlApp.Workbooks.AddSetxlSheet=xlBook.Worksheets.AddxlSheet.Cells(1,1)="测试"'写入内容xlBook.SaveAs("FILENAME")'保存文件xlApp.QuitSetxlApp=Nothing本方法采用add添加excel文件和datasheet,然后用save保存。如果用xlApp.Visible=False,则自动生成文件。但是如果文件已经存在,则会弹出是否覆盖的提示。因此,最好先在程序中检查文件是否已经存在,如果存在,则用普通方法打开。如果不存在,则用add添加,并
3、保存。 ★打开相对路径下的文件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自带的查
4、询功能在表格中查找内容PrivateSubComCx_Click()OnErrorGoTo50i=xlBook.Worksheets("代码").Range("A:A").Find(Trim(TexDm.Text)).Row★将程序中所有这一类的对象的某一属性全部更改为需要的属性DimItemAsObject'定义对象ForEachItemInMeIfTypeOfItemIsTextBoxThenItem.Text="" '将所有TextBox的Text属性值变为空IfTypeOfItemIsComboBoxThenItem.ListIndex=-1 '将所有的Combo
5、Box的ListIndex属性值变为“-1”Next IfNoti=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首先要引用再定义对象及其类型DimxlAp
6、pAsExcel.ApplicationDimxlBookAs文案大全标准实用Excel.WorkbookDimxlSheetAsExcel.WorksheetSetxlApp=CreateObject("Excel.Application") '创建EXCEL对象SetxlBook=xlApp.Workbooks.Open("D:检包组合金厂代码查询xls合金JDE代码.xls")xlApp.Visible=FalseSetxlSheet=xlBook.Worksheets("确认信息")★另存为ChDir"D:" ActiveWorkbook.
7、SaveAsFilename:="D:合金厂产品质检明细表.xls",FileFormat:=xlExcel8,_ Password:="",WriteResPassword:="",ReadOnlyRecommended:=False,_ CreateBackup:=False VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报
此文档下载收益归作者所有