VB打开EXCEL的方法.docVIP

VB打开EXCEL的方法一楼的没有指明Dim xlBook As Excel.WorkBookSet xlBook = App.Workbooks.Open(文件名) 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.ApplicationPublic xlBook As Excel.WorkbookPublic xlChar As New Excel.ChartPublic xlSheet As New Excel.Worksheet Set xlApp = New Excel.ApplicationSet xlApp = CreateObject(Excel.Application)Set xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets.AddxlSheet.Cells(1, 1) = 测试 写入内容xlBook.SaveAs (FILENAME) 保存文件xlApp.QuitSet xlApp = Nothing 本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。 ? 打开相对路径下的文件Private Sub Command1_Click()Shell App.Path \aaa.batEnd Sub 还有更简单的:Private Sub Command1_Click()Shell aaa.batEnd Sub aaa.bat就是那个BAT的名字. 那就不一定......因为SHELL只对可执行文件有效.你可用WINDOWS外壳程序explorer.exe打开任何文件(包括文件夹) 代码:Private Sub Command1_Click()Shell explore.exe aaa.jpgEnd Sub ★VB调用EXCEL自带的查询功能在表格中查找内容Private Sub ComCx_Click() On Error GoTo 50 i = xlBook.Worksheets(代码).Range(A:A).Find(Trim(TexDm.Text)).Row 将程序中所有这一类的对象的某一属性全部更改为需要的属性Dim Item As Object 定义对象For Each Item In Me If TypeOf Item Is TextBox Then Item.Text = ?? 将所有TextBox的Text属性值变为空If TypeOf Item Is ComboBox Then Item.ListIndex = -1?? 将所有的ComboBox的ListIndex属性值变为“-1”Next ? If Not i = 0 ThenDm = 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 = TrueGoTo 100End If 50TexSm.Text = 没有找到相匹配的信息！100End Sub 如何使编的程序可以调用excel首先要引用 再定义对象及其类型Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject(Excel.Application)???????? 创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(D:\检包组\合金厂代码查询\xls\合金JDE代码.xls)xlApp.Visible = FalseSet xlSheet = xlBook.Worksheets(确认信息) 另存为ChDir D:\??? ActiveWorkbook.SaveAs Filename:=D:\合金厂产品质检明细表.xls, FileFormat:=xlExcel8, _??????? Password:=, WriteResPassword:=, ReadOnlyRe