INSERT INTO 表名1 [(字段名1, 字段名2……)] SELECT 字段名1,字段名2……FROM 表名2
INSERT INTO [工资表$] SELECT 姓名,性别,工龄,工资 FROM [试用期$] WHERE 考核='合格'
INSERT INTO [工资表$] SELECT 姓名,工龄,工资,性别 FROM [试用期$] WHERE 考核='合格'
INSERT INTO [工资表$] SELECT 姓名,工龄,工资,性别,考核 FROM [试用期$] WHERE 考核='合格'
INSERT INTO [工资表$] (姓名,工龄,工资,性别) SELECT 姓名,0,4000,性别 FROM [试用期$] WHERE 考核='合格'
SELECT 字段名 INTO 新表名 FROM 数据来源表
代码看不全可以左右拖动..▼
Sub DoSql1() Dim cnn As Object, strSQL As String Dim sht As Worksheet, strShtName As String, strPath As String Set cnn = CreateObject("adodb.connection") strPath = ThisWorkbook.FullName '工作簿完整路径+名称 cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "/数据库.accdb" '创建ACCESS数据库的连接 For Each sht In Worksheets '遍历工作表 strShtName = sht.Name '工作表的名称 strSQL = "SELECT * INTO " & strShtName & " FROM [Excel 12.0;DATABASE=" & strPath & "].[" & strShtName & "$]" cnn.Execute (strSQL) '执行Sql语句 Next cnn.Close '关闭连接 Set cnn = Nothing '释放cnn对象End Sub
strSQL = "SELECT * INTO " & strShtName & " _ &"FROM [Excel 12.0;DATABASE=" & strPath _ & "].[" & strShtName & "$]"
本文地址:百科问答频道 https://www.neebe.cn/wenda/937236_2.html,易企推百科一个免费的知识分享平台,本站部分文章来网络分享,本着互联网分享的精神,如有涉及到您的权益,请联系我们删除,谢谢!