把execl中数据提取部分保持到数据库，具体见附件，谢谢

ycbsj · 发表于 2013-10-23 13:04

本帖最后由 ycbsj 于 2013-10-24 08:50 编辑

文件夹1.zip (70.88 KB, 下载次数: 12)

ycbsj · 发表于 2013-10-24 10:47

我把求助抬起来下

wangjun.shc · 发表于 2013-10-24 15:23

看下，是不是这样？

ycbsj · 发表于 2013-10-24 16:29

wangjun.shc 发表于 2013-10-24 15:23
看下，是不是这样？

谢谢，试了，结果是对的，用的是数组的方法，蛮好的，我以前用的是下面这样类型的语句，会写A、B、C连续字段的，不会写A、F、G不连续字段的
SQL = "select 产品名称，贡献度，单品毛利 from [Excel 8.0;hdr=no;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$A4:C" & [k65536].End(xlUp).Row & "]"

cnn.Execute SQL

zhaogang1960 · 发表于 2013-10-24 16:43

ycbsj 发表于 2013-10-24 16:29
谢谢，试了，结果是对的，用的是数组的方法，蛮好的，我以前用的是下面这样类型的语句，会写A、B、C连续字 ...

Sub Macro1()
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As New ADODB.Connection
Dim myPath As String
Dim myTable As String
Dim SQl As String
myPath = ThisWorkbook.Path & "\数据库.mdb"
myTable = "贡献度表"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath '连接数据库
SQl = "insert into " & myTable & " select 产品名称,贡献度,单品毛利 from [Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[分店表$A3:G" & Range("a65536").End(xlUp).Row & "]"
cnn.Execute SQl
MsgBox "ok"
cnn.Close
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2013-10-24 16:44

请看附件

文件夹1.rar (63.27 KB, 下载次数: 14)

ycbsj · 发表于 2013-10-24 17:31

zhaogang1960 发表于 2013-10-24 16:44
请看附件

多谢赵版，可以了，谢谢

ndyzx · 发表于 2018-8-22 15:57

zhaogang1960 发表于 2013-10-24 16:44
请看附件

正在学习，谢谢

LMY123 · 发表于 2018-8-22 15:59

insert into

		自动登录	找回密码
密码			免费注册

[求助] 把execl中数据提取部分保持到数据库，具体见附件，谢谢

评分

评分