2018年8月10日

vba取局域网电脑共享文件夹下的Excel文件
摘要： Private Sub CommandButton1_Click() Dim xlapp1 As Excel.Application Dim xlbook1 As Excel.Workbook Dim xlsheet1 As Excel.Worksheet Dim xlapp2 As Excel.A 阅读全文
posted @ 2018-08-10 00:16 上山打老虎下山采蘑菇 阅读(1849) 评论(0) 推荐(0) 编辑
vba增删改查数据库2
摘要： sub test()Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname; 阅读全文
posted @ 2018-08-10 00:14 上山打老虎下山采蘑菇 阅读(401) 评论(0) 推荐(0) 编辑
vba增删改查数据库
摘要： 你在EXCEL中增加一个列名为ID,后在VBA中写以下代码，并引用Microsoft ActiveX Data Objects 2.8后执行Public Sub 写入SQL2008()Dim cnn As New ADODB.ConnectionDim SQL As String, mydata A 阅读全文
posted @ 2018-08-10 00:12 上山打老虎下山采蘑菇 阅读(1191) 评论(0) 推荐(0) 编辑

导航