
excel
VBASub ImportDatabase()Dim db As DAO.DatabaseDim da As DAO.DataAccessorDim rs As DAO.RecordsetSet db = CurrentDb()Set da = db.OpenRecordset("SELECT * FROM [Sheet1]")While Not da.EOFWhile Not da.EOFDebug.Print da("Name")da.MoveNext WendDebug.Print vbLfWendEnd Sub3. 保存代码并关闭VBA编辑器。4. 在工作表上右键点击,选择“插入对象”,然后找到保存好的VBA代码。5. 执行该代码后,会从数据库中导入所有[Sheet1]表单的值,并输出到工作表中。请注意,在使用数据库之前,请确保已经正确地设置了数据库连接信息。如果需要从其他数据库中导入数据,请适当修改代码中的表名和字段名。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号