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
祝你成功！
更多文章：
2026年9月7日 12:40
display flex 自动换行（overflow-y:hidden;overflow-x:auto;无效解决方法）
2026年9月7日 11:00
2026年9月7日 10:50
timestamp without time zone（Postgresql中to_date（）函数使用问题）
2026年9月7日 09:40
2026年9月7日 04:20
下载mysql的步骤（win10安装mysql的步骤和方法）
2026年9月7日 04:10
2026年9月7日 03:50
2026年9月7日 03:40
checked in（check in和check out的区别）
2026年9月7日 01:20
java经典上机编程题（java上机题 请问这道题应该怎么写）
2026年9月7日 01:10
