VBA 与ACCESS之间的数据类型如何相等

阿呆88

Sub 另存命令()    '引用Microsoft ActiveX Data Objects 2.x Library
     Dim SQL As String
     m1 = Sheets("周销额指标").Range("D1").Value
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\周指标分解.accdb" 'access库名
    cnn.Execute ("delete from 周销售指标 where 月份=m1")
    SQL = "insert into 周销售指标 select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[周销额指标$b10:bi" & Range("A" & Rows.Count).End(xlUp).Row & "]" '表1即access表的文件夹,录入表则工作表上的sheet表名
    cnn.Execute SQL
    cnn.Close
    Set cnn = Nothing
    MsgBox ("数据已上传完成,请保存工作表！！！")
End Sub

阿呆88

详细看附件

阿呆88

" & Sheets("周销额指标").Range("B11") & " ")

hfwufanhf2006

阿呆88 发表于 2019-8-19 18:15
" & Sheets("周销额指标").Range("B11") & " ")

1、你文件里没代码；
2、1楼的截图和本层的代码也不一致；
3、关于数据格式，数据库的格式比较简单，就那么几种类型。但excel的格式比较复杂，除了字符、数字、货币、日期、逻辑等这几种明确与数据库相同的类型外，还有很多自定义的类型，这些自定义的类型很可能会让数据库不认识，造成无法写入；
     excel的数据如果经过复杂计算，得到的结果也无法预料。这里的计算不是指纯粹的数学计算，是指复杂的字符拼接，因为单元格允许包含看不见的控制符，比如换行和回车符，还有很多你想不到的各种控制符号，这些很容易造成数据库不认识。因此excel与数据库的数据交换，必须是最简单的数据类型，实在搞不定，就用常规+单行文本+数字，尤其不能使用多行文本的单元格；

阿呆88

hfwufanhf2006 发表于 2019-8-20 08:51
1、你文件里没代码；
2、1楼的截图和本层的代码也不一致；
3、关于数据格式，数据库的格式比较简单，就 ...

收到，谢谢，主要在VBA执行SQL,不能像VBA那样取变量，我已解决，非常感谢！