错误指向：Dim cn As New ADODB.Connection
之后在网上查找到答案。需要在引用中添加。工具->引用，弹出如图窗口，如图中勾上
microsoft activex data objects 2.0 library
即可完成。
参考：
http://www.programfan.com/club//showpost.asp?id=66140&t=o
中的回复
运行时，提示用户定义类型未定义。如图错误指向：Dim cn As New ADODB.Connection 之后在网上查找到答案。需要在引用中添加。工具->引用，弹出如图窗口，如图中勾上 microsoft activex data objects 2.0 library即可完成。参考：http://www.programfan.com/c
对于word中需要插入大量
类型
相似的图片，使用
excel
插入图片、标题、题注等内容是非常方便的，先使用
excel
编辑好各个图片对应的标题、题注。
excel
中工作表第一列为图片的标题，第二列为图片路径。如下图所示：
使用alt+F11快速进入宏(
VBA
)编辑框，
VBA
代码如下：
Sub 生成word()
Dim wordApp As Word.Application
Application.StatusBar = "正在创建。。。"
Set wordApp = New Word.A
前后期绑定
Excel
/Word对象的应用
Set W = CreateObject(“word.application”) '这种是后期绑定
'注意,运行到这里是这里把程序重置以后,不管visible=true/false这里的WORD实例对象还是存在,
'记的
EXCEL
如果是这种情况下是会在进程中自动关掉的(见下方描述). 此处不管Public W或是dim W均是这样
W.Visible = True
VB6,Set E = CreateObject(“
excel
.application”)这句发生后,
1、使用的环境
excel
2016 32位
远程服务器数据库，有公网ip 使用的是xampp 套件，包含apache+php+MariaDB 10.1.34(这个和mysql兼容，可以看作mysql,不是无法连接的原因所在。
2、问题描述
使用
vba
语句连接远程数据库
Sub dd()
Dim cn As ADODB.Connection '
定义
数据链接对象 ，保存连接数据库信息...
Dim txtSQL As String
Dim txtMsg As String
Dim Temp
Excel
As
Excel
.Application '声明一个
Excel
工作表
Dim TempSheet As Ex...
这个错误通常是由于使用了未声明或
未定义
的
用户
自
定义
类型
造成的。要解决这个问题，可以按照以下步骤进行操作：
1. 确认代码中是否有
定义
用户
自
定义
类型
，如果没有，则需要添加
定义
。
2. 确认代码中是否正确引用了
定义
的
用户
自
定义
类型
，如果引用有误，需要修正引用。
3. 如果代码中使用了其他模块中
定义
的
用户
自
定义
类型
，需要确认是否正确引用了该模块。
4. 如果以上步骤都没有解决问题，可以考虑检查代码中是否有其他语法错误或逻辑错误。
