用sql怎样可以把公式保存进access

baowang519

各位前辈：我想把公式保存进access，这样在重新调回excel是就可以重新计算，不知道sql可不可以实现，如果能实现的话应该怎么写代码？请前辈们帮忙解决一下，谢谢！祝前辈们节日快乐！
附件图片中红色部分为公式实现。
目前“成长记录”的代码为：
Private Sub 成长记录_Click()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim conn As Object
    Dim sql$
    sql = "insert into [成长预定] select * from [excel 12.0;database=" & ThisWorkbook.FullName & "].[sheet14$C31:L32]; "
    Set conn = CreateObject("adodb.connection")
    With conn
        .Provider = "microsoft.ACE.oledb.12.0"
        .ConnectionString = "Data Source =" & ThisWorkbook.Path & "\shuju.accdb"
        .Open
    End With
    conn.Execute (sql)
    conn.Close
    Set conn = Nothing
        Range("C32:L32").ClearContents
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

baowang519

希望前辈们多多帮忙！

baowang519

自己顶顶，别让帖子沉下去，让更多前辈看到！{:soso_e113:}

baowang519

再顶顶！继续坚持

baowang519

每天坚持顶{:soso_e100:}

Renco

你只要在ACCESS里做个查询，相关计算公式放在查询里就行了，用的时候，把查询当表来回调就行了

roych

做成查询，再“ select * from 查询1 ”来写入就好了。

baowang519

2位前辈，非常感谢，不过我是一个菜鸟，我不懂怎么做，是否方便给我做一个实例？再次感谢两位前辈的帮助！

wz123456

学习DatePart函数
　　语法
　　DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
　　DatePart 函数语法中有下列命名参数：
　　部分 描述
　　interval 必要。字符串表达式，是要返回的时间间隔。
　　date 必要。要计算的 Variant （Date） 值。

baowang519

谢谢前辈！我试试