EXCEL数据通过vba写入access时的空格问题

lihui8201

Private Sub CommandButton1_Click()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("D:\auto1\db1.mdb ", False, False, ";Pwd=123")
db.Execute ("delete * from no")
For i = 6 To [a6].End(xlDown).Row
Sql = "INSERT INTO no(型号规格,长度,直径,管长) values ('" & Cells(i, 7) & "','" & Cells(i, 8) & "','" & Cells(i, 9) & "','" & Cells(i, 10) & "')"
db.Execute (Sql)
Next
MsgBox "写入数据" & [a6].End(xlDown).Row - 5 & "行"
End Sub

上面的是vba程序，用来实现把excel中从第六行到最后一行的7，8，9，10列写入access “D:\auto1\db1.mdb " 。
但是出现了一个问题：7，8，9，10列必须全部都有数值才行，如果某一行的7，8，9，10列有一列没有值（就是空格），那么这一列都写不进access（包括空格和数值都没有写入），有没有什么办法，来实现：把空格和数值都一起写入access。
请各位前辈指点,谢谢!

为了便于理解，刚刚添加了一个附件，请高手指点，谢谢！

lihui8201

顶上去，希望更多的人看到，帮我出出主意。谢谢啦！{:soso_e113:}

zhaogang1960

使用ADO试试看
Sub Macro1()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\db1.mdb;jet oledb:database password=123"
    SQL = "insert into [no] select * from (select f1 as 型号规格,f2 as 长度,f3 as 直径,f4 as 管长 from [Excel 8.0;hdr=no;Database=" & ThisWorkbook.FullName & "].[管线表$G6:J" & [a6].End(xlDown).Row & "])"
    cnn.Execute SQL
    cnn.Close
    Set cnn = Nothing
End Sub

zhaogang1960

请看附件
auto1.rar (55.29 KB, 下载次数: 54)

2012-6-18 18:56 上传

点击文件名下载附件

lihui8201

zhaogang1960 发表于 2012-6-18 18:56
请看附件

谢谢zhaogang1960大大的指教，我下载了附件，用了一下。还有两个问题需要向您请教，一是，最后一行管长没有写入access；二是，能否每次按5537按钮时，把access表格里原先的数据清空后，再写入新数据？

zhaogang1960

lihui8201 发表于 2012-6-18 21:21
谢谢zhaogang1960大大的指教，我下载了附件，用了一下。还有两个问题需要向您请教，一是，最后一行管长没 ...

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\db1.mdb;jet oledb:database password=123"
   
5.     cnn.Execute "Delete from [no]"
   
6.     SQL = "insert into [no] select * from (select f1 as 型号规格,f2 as 长度,f3 as 直径,f4 as 管长 from [Excel 8.0;hdr=no;imex=1;Database=" & ThisWorkbook.FullName & "].[管线表$G6:J" & [a6].End(xlDown).Row & "])"
   
7.     cnn.Execute SQL
   
8.     cnn.Close
   
9.     Set cnn = Nothing
   
10. End Sub
    
11. 
    

复制代码

zhaogang1960

请看附件
auto1.rar (55.58 KB, 下载次数: 87)

2012-6-18 21:39 上传

点击文件名下载附件

lihui8201

zhaogang1960 发表于 2012-6-18 21:40
请看附件

谢谢zhaogang1960大大的热心回复，功能完全满足要求。{:soso_e179:}

c315902734

kankan!!!!!!!!1

wangxi-8888

zhaogang1960 发表于 2012-6-18 21:40
请看附件

就这个案例，如果想实现accsess中，1到5行，由计划部门的EXCEL表格中的数据写入，6-8行由生产部门的EXCEl的表格中的数据写入，同时这两个部门又可以在各自的excel表格中调用对方的最新数据，怎么实现呢？