VB打开EXCEL的方法

VB 打开 EXCEL 的方法 一楼的没有指明 Dim xlBook As Excel.WorkBook Set xlBook = App.Workbooks.Open(“文件名“) 这种语法同样要求 excel 已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application Set xlApp = CreateObject(“Excel.Application“) Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells(1, 1) = “测试“ 写入内容 xlBook.SaveAs (“FILENAME“) 保存文件 xlApp.Quit Set xlApp = Nothing 本方法采用 add 添加 excel 文件和 datasheet，然后用 save 保存。如果用 xlAp p.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖 的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方 法打开。如果不存在，则用 add 添加，并保存。 ★打开相对路径下的文件 Private Sub Command1_Click() Shell App.Path Password=.;Persist Securit y Info=True;User ID=kio;Data Source=SQLDb;Initial Catalog=DataTest“ cn.Open rs.Open “[dbo].[ZJMX]“, cn, 1, 3 rs.AddNew rs(“登陆时间“) = Text1.Text rs(“用户名“) = Text2.Text rs.Update rs.Clone cn.Close End Sub ★将用户名和密码存于数据库中的数据表“用户设置”中，下面是密码验证过程： Cn.ConnectionString = “Provider=SQLOLEDB.1;Password=.;Persist Sec urity Info=True;User ID=carbide;Initial Catalog=Carbide;Data Source=172.1 6.13.16\SQLEXPRESS“ Cn.Open Dim SqlStr As String SqlStr = “select * from [dbo].[用户设置] where [UN]= “ Password=.;Persist S ecurity Info=True;User ID=carbide;Initial Catalog=Carbide;Data Source=172. 16.13.16\SQLEXPRESS“ Cn.Open Dim SqlStr As String SqlStr = “select * from [dbo].[用户设置] where [UN]= “ 没有主键时候才可以。。有主键时候就要写上列： INSERT INTO `table`(`a`,`b`,`c`) SELECT `a`,`b`,`c` FROM `table` WHER E id=1; 补充：如果要插入数据的表比前表字段但是也要插入数据，可以用 mysql 函数 产生栏目填充，例如：ABS(1)，TRIM( abc ) UPDATE `table` SET a = !a WHERE id = 1;//布爾值取反 UPDATE `table1`,`table2` SET `table1`.id = `table2`.id WHERE `table1`.id = `table2`.id;//更新 ★SQL 语句查找空值 select * from 表格 where 字段名 is null ★将 SQL 查找结果导出到 EXCEL Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Worksheet Dim m As Integer, n As Integer Dim Ran As String Set xlApp = CreateObject(“Excel.Application“) 创建 EXCEL 应用类 Set xlBook = xlApp.Workbooks.Open(“f:\softjesen\data\质检明细 100520. xls“) 打开 EXCEL 工作簿 xlApp.Visible = True 设置 EXCEL 不可见 Set xlSheet = xlBook.Worksheets.Add ActiveSheet.Name = “产品质日报表“ & at(Now, “YYYY_MM_DD_H H_MM_SS“) 打开 EXCEL 工作表 m = 2 Do While Not Rs.EOF For n = 0 To Rs.Fields.Count - 1 Ran = x & “:“ & x xlSheet.Cells(1, n + 1) = Rs.Fields(n).Name xlSheet.Cells(m, n + 1) = Rs(n).Value Next Rs.MoveNext m = m + 1 Loop Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing ★VB 中 DataGrid 的使用方法 SqlStr = “select * from dbo.代码 where [JDE 代码]= “ & Trim(Text1(0).Text) & “ “ Cn.CursorLocation = adUseClient 关键语句， 有了这句控件才能显示数据 集的内容 Cn.Open Rs.Open SqlStr, Cn Set Rs = Cn.cute(SqlStr) If Not Rs.EOF Then Text1(1).Text = Rs(“牌号“) Text1(2).Text = Rs(“型号“) Text1(3).Text = Rs(“单位“) Set DataGrid1.DataSource = Rs 关键语句，将控件和数据集连接起来 DataGrid1.ClearFields DataGrid1.ReBind Else MsgBox (“没有找到对应 JDE 代码 的信息！“) End If ★ 单击就全选文本框中内容，文本框用到了控件数组（index= 0 to 8） Private Sub Text1_Click(Index