VB程序员博客
Private Sub Command1_Click()
Dim xlsapp As Excel.Application
Dim x, y, z, m
Dim rs
Set xlsapp = Excel.Application
Dim wkbNew As Excel.Workbook
Dim XLSFileName As String
Dim recordset1 As New ADODB.recordset
Set recordset1 = conn.Execute("select*from 实测项目表 where 实测项目表名='" & Form1_桥梁质量检测系统.TreeView1.Nodes.Item(Form1_桥梁质量检测系统.TreeView1.SelectedItem.Index) & "'")
x = Trim(recordset1.Fields("实测项目表名"))
y = recordset1.Fields("质量评分对应的单元格")
z = recordset1.Fields("质量等级对应的单元格")
XLSFileName = App.Path & "报表\" & Form1_桥梁质量检测系统.TreeView1.Nodes.Item(Form1_桥梁质量检测系统.TreeView1.SelectedItem.Index) & ".xls"
Set xlsapp = Excel.Application
With xlsapp
.Visible = True
Set wkbNew = .Workbooks.Open(XLSFileName)
m = wkbNew.Worksheets("SJB38").Range(y).Value
wkbNew.Close
MsgBox m
End With
End Sub
数据库都已经配置好了，代码的意图是提取当前打开的excel文件中某个单元格里的值（Y)，显示在一个弹出对话框上。
我现在希望把y的值写入数据库中的123表，456字段中，
我要如何写语句呢？
还有，因为Set wkbNew = .Workbooks.Open(XLSFileName) 这一句会自动打开EXCEL，有什么办法让它不打开，而在后台操作，还能按照意图提取所需单元格的数据呢？？？？？
请各位高手帮忙！谢谢！
再请问高手， 如果我要写入的是M的值呢
m = wkbNew.Worksheets("SJB38").Range(y).Value
这一句，我已经把Y单元格里面的数据赋给M了
我现在想写入的是M的值