返回目录:excel表格制作
vb存图片到excel代码提供
Sub YinCang()
Dim p
For Each p In thisworkbook.worksheets("sheet1").Pictures
p.Visible = False
Next
End Sub
Sub xianshi()
Dim p
For Each p In thisworkbook.worksheets("sheet1").Pictures
p.Visible = true
Next
End Sub
1、打开VB-》在form1上增加一个command1按钮,双击command1按钮,把以下代码放入窗体内; 2、运行前,在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定;然后才可以运行; 3、代码如下: Dim ExApp As New Excel.Application Dim Exb As Excel.Workbook Dim Exsh As Excel.Worksheet Dim arr(6, 6) As Integer '定义一... 1、打开VB-》在form1上增加一个command1按钮,双击command1按钮,把以下代码放入窗体内;
2、运行前,在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定;然后才可以运行;
3、代码如下:
Dim ExApp As New Excel.Application
Dim Exb As Excel.Workbook
Dim Exsh As Excel.Worksheet
Dim arr(6, 6) As Integer '定义一个二维数组,数e799bee5baa6e997aee7ad94e59b9ee7ad94335据类型为整数
ExApp.Workbooks.Open "c:\book1.xls" '打开EXEL文件,路径和文件名自己根据实际修改
Set Exb = ExApp.Workbooks(1)
Set Exsh = Exb.Worksheets("Sheet1")
For i = 1 To 6 '假设是读取A1:F6的6X6区域数据
For j = 1 To 6
arr(i, j) = Exsh.Cells(i, j)
Next j
Next i
'把自己需要对数组数据进一步处理的部分加进去...
ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = Nothing 全部
首先新建一个EXCEL文件data.XLS,e79fa5e98193e58685e5aeb9334c列中文件名为对应行图片的文件名。其excel文档内容如下图形式:
然后在vb中新建一个Text1文本框,1个按钮,一个图片框Image1,如下图界面:
点击查询按钮,写入如下代码:
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql$
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & App.Path & "\data.xls" 'ThisWorkbook.FullName 'ThisWorkbook.Path & "\" & ThisWorkbook.Name
sql = "select * from [Sheet1$A2:C100] where 姓名 like '" & Text1.Text & "'"
rs.Open sql, cn, 1, 1
If rs.RecordCount > 0 Then
rs.MoveFirst
Image1.Picture = LoadPicture(App.Path & "\pic\" & rs.Fields("文件名"))
End If
rs.Close
cn.Close
Set cn = Nothing
End Sub
具体文件目录结构如下见图:
由于水平有限,上述代码基本能实现你查询功能,但细节有待优化。