access vba教程完整版（access 中的VBA实现打开一个excel并调用excel中的宏,代码怎么实现的）
本文目录
- access 中的VBA实现打开一个excel并调用excel中的宏,代码怎么实现的
- ACCESS SQL vba 聚合函数
- Access数据库：求用VBA编写一个 字符串、文字加密、解密的编码，求大神帮帮忙！！
- 请根据文字描述帮我写三条VBA流程控制语句（关于Access中的VBA流程控制语句
- access中如何用 vba 设置 表为只读
access 中的VBA实现打开一个excel并调用excel中的宏,代码怎么实现的
你试试如下代码：
ACCESS中：
Sub xx()
Dim xlApp as Object, wb As Object
On Error Resume NExt
Set xlApp = GetObject(,"Excel.Application")
If Not xlApp Is Nothing Then
Set Wb = xlApp.WorkBooks("a.xls")
If Err.Number = 9 Then Set Wb = xlApp.WorkBooks.Open("D:\a.xls")
Else
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set Wb = xlApp.WorkBooks.Open("D:\a.xls")
End if
End Sub
a.Xls工作簿中：
Private Sub WOrkbook_OPen()
Call Sheet1.pp
End Sub
Sheet1工作表中 ：
Public Sub pp()
Msgbox "Hello!!"
End Sub
ACCESS SQL vba 聚合函数
TRANSFORM Sum(Q1.N)
SELECT Q1.商户编号
FROM (SELECT 商户编号, & "交易金额" AS BT, 交易金额 as N
FROM AAA
UNION ALL SELECT 商户编号, & "交易笔数" AS BT, 1 AS N
FROM AAA) as Q1
GROUP BY Q1.商户编号
PIVOT Q1.BT;
AAA是表名
Access数据库：求用VBA编写一个 字符串、文字加密、解密的编码，求大神帮帮忙！！
1、VBA中没有提供专用于加密的函数用于加密解密
2、建议自己选择一种加密方法或者参考一些加密算法然后用代码实现
例如：变换位置，字符替换等等。
请根据文字描述帮我写三条VBA流程控制语句（关于Access中的VBA流程控制语句
第一题：
Public Sub jiujiubiao()
Dim i As Integer
Dim j As Integer
Dim zfc As String
zfc = ""
For i = 1 To 9
For j = 1 To i
zfc = zfc & i & "*" & j & "=" & i * j & vbCrLf
Next
Next
Debug.Print zfc
End Sub
效果如下：
再回答第二题：
Public Sub jiujiubiao()
Dim i As Integer
Dim j As Integer
Dim zfc As String
zfc = ""
For i = 1 To 9
For j = 1 To 9
zfc = zfc & i & "*" & j & "=" & i * j & ";"
Next
zfc = zfc & vbCrLf
Next
’MsgBox zfc
Debug.Print zfc
End Sub
在回答第三题：
Public Sub jiujiubiao()
Dim i As Integer
Dim j As Integer
Dim zfc As String
zfc = ""
For i = 1 To 9
For j = 1 To i
zfc = zfc & i & "*" & j & "=" & i * j & ";"
Next
zfc = zfc & vbCrLf
Next
’MsgBox zfc
Debug.Print zfc
End Sub
效果如下：
access中如何用 vba 设置 表为只读
不能设置表为只读，如果不希望用户直接表，可以把表隐藏，或者设置启动窗体，通过窗体、查询来显示、数据...
1.设置绑定窗体为只读：me.RecordsetType=2
2.设置查询为只读，同窗体一样用RecordsetType
祝你成功！
更多文章：
dos命令清屏（Windows DOS内部命令详解04——del、ren、cls、ver、date、time）
2026年11月6日 15:40
constantly的用法及词组（英语时态对应的时间状语都有哪些）
2026年11月6日 15:20
sql2016安装后如何打开（怎么打开sql server 2016 管理工具）
2026年11月6日 15:10
2026年11月6日 12:50
2026年11月6日 12:20
arcgis怎么设置文本框样式？用JS怎么实现一个把一个文本框中的选中内容加粗，效果基本上和编辑器的加粗效果相同急需
2026年11月6日 10:50
2026年11月6日 10:40
bios setup（“Bios setup”怎么在电脑里面设置）
2026年11月6日 10:00
2026年11月6日 08:10
2026年11月6日 07:50
