Tag: access vba
MS Access和Excel实例化，xlup未定义
所以我使用迟绑定，即set objxl = createobject("Excel.Application")types的东西，从早期绑定set objxl = new excel.application它的位置set objxl = new excel.application或什么，但现在件如.end(xlUp).row抛出错误，因为xlUp没有定义。
如何将MS-Acess查询转换为MS-Excel中的工作表
我试图在访问中创build一个VBA脚本，以定期保存一个查询的数据作为一个新的工作表在一个Excel文件。 我已经开始了代码，但坚持如何将查询转换为工作表中的数据。 我确定有一个命令（例如将表格导出为excel文件），但是我一直无法find它。 这是我的代码到目前为止。 Dim xlsApp As Excel.Application Dim xlsBook As Excel.Workbook Dim xlsSheet As Excel.Worksheet Dim SheetName As String SheetName = Format(Date, "YYYY MM DD") ' name sheet after date Set xlsBook = Workbook.Open("C:\Users\…") Set xlsApp = xlsBook.Parent Set xlsSheet = xlsBook.sheets(SheetName).Add 谢谢，
从MS Access启动Excel和参考UserForm对象
我有一个MS Access数据库应用程序在这里，我想启动一个Excel文件使用VBA和使用默认值填充此文件中的UserForm对象上的字段。 我很努力地find我可以用来从Excel应用程序之外引用UserForm对象的语法。 希望这是有道理的。 这是我迄今为止的简单代码。 Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Set xlApp = CreateObject("Excel.Application") Set xlWB as xlApp.Workbooks.Open("[My file path goes here]") xlApp.Visible = True 我在这一点上试图做的是访问这个名为UserForm1的文件中包含名为TextBox1的文本框的UserForm对象，并设置它的值。 我可以使用Excel中的VBA来做到这一点UserForm1.TextBox1 = "Test" ，这个工程。 如果可以的话，试图从MS Access外部执行此操作。 我在这里错过了很明显的东西吗
通过Access VBA格式化Excel – 范围应用程序/对象定义的错误
我的问题发生在以下行上： Worksheets(1).Range("A:A").Select 背景：我有一个加载文本文件的过程，将其分割成许多其他表格，然后将这些片段作为新表格导出，将它们导出为excel，并进行一些格式化。 我使用“For Each”循环来通过我的访问表。 当某些表被识别时，一些其他代码运行创build新的表（代码未显示）。 一旦创build了一个新表，就会被导出为excel并进行格式化。 这是发生错误的地方。 第一个循环工作正常，在第二个循环中，代码在select列范围时发生错误。 我已经做了一些search这个错误，看起来像原因往往是如何引用工作表。 我有一些使用这种过程的工具，所以最终理解原因是很好的。 码： Dim xl As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet1 As Excel.Worksheet outputFileName = "C:\Users\UserID\Desktop\Reports\" & tblData & ".xls" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tbl_Report", outputFileName, True Set xl = New Excel.Application Set xlBook = xl.Workbooks.Open(outputFileName) xl.Visible = True Set xlSheet1 = xlBook.Worksheets(1) With xlSheet1 […]
想用VBA列出内置函数
我想以编程方式使用VBA，生成Access文件中可用的VBA函数的列表（文本，表，无关紧要）。 我不想生成用户编写的函数列表。 。 。 我正在寻找生成内置函数的列表。 我会寻找生成一个列表，如下所示： left，instr，date，mid，asc，reverse，month，cstr等等等等 我在VBA对象浏览器中看到，转换，date时间，文件系统，金融，信息，交互，math和string的类名下有VBA命令的全部集合。 我尝试过所有在VBA中尝试枚举这些类的对象声明，但都没有成功。 我希望能够做的就是枚举函数名称。
生成每个可能的VBA引用GUID的列表
我有一个Access数据库，我在Access 2016中创build。我有一些VBA代码需要在Access 2016中的一些库。大多数其他用户有不同的老年版本的Access。 例如，我需要运行代码的一个库是Microsoft Access 16.0 Object Library 。 许多用户正在运行Office 2013，它具有Microsoft Access 15.0 Object Library而不是16.0。 我需要以编程方式在运行VBA代码时添加此版本的库。 这将需要我知道我一直无法在网上find的GUID。 我研究过的所有其他领域告诉你如何得到你已经激活的库的GUID，但是这对我不起作用，因为我不能使用或罚款15.0库。 我怎样才能find这个库的GUID和其他库我没有活动或安装？
将Excel工作表移动到使用VBA错误进行访问
您好，我正在尝试将Excel工作表移动到Access数据库，它们都具有相同的字段名称。 该代码是用Excel编写的。 用户input多个表单字段，点击完成后，更新一个单独的工作表。 然后，调用更新Access子例程以使用工作表内容更新数据库。 但是，我仍然收到以下错误： 运行时错误'-2147417848（80010108）'：自动化错误被调用的对象已从其客户端断开连接。 我GOOGLE了错误，不能看到发生了什么事情。 这是我的代码： Sub Update_Access_fromExcel() 将活动工作表中的数据导出到Access数据库中的表中 Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' Connect to Access database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=D:\Tool_Database\Tool_Database.mdb;" ' open the recordset Set rs = New ADODB.Recordset rs.Open "Project_Names", cn, adOpenKeyset, adLockOptimistic, adCmdTable r = 2 […]
根据许多条件将数据从Access导出到Excel工作簿/工作表
我有一些数据结构如下： sglAccNumber intDaysOld intRouterLocation intDaysInLocation 1638828663 614 Customer Service 05. – 61-90 Days 1955963013 348 Advertising 03. 16-45 Days 1198680816 1678 Accounting 09. 401-730 Days 1892708307 1860 Accounting 010. 730+ Days 1785581943 1005 Asset Management 02. 6-15 Days 1942406908 1853 Finances 09. 401-730 Days 等等…有六万行数据。 我正在寻找将数据从Access表移动到许多不同的工作簿，基于intRouterLocation名称。 我挣扎的一点是，在每个单独的工作簿中，还要将数据移动到名为intDaysInLocation的工作表中。 例如，使用上面的数据，会计工作簿将生成两张表，一张是09. 401-730天 ，另一张是010.730+天 ，每个会填充相应的条目。 过去几天我一直在为此苦苦挣扎，可以通过名称获取数据，也可以通过intDaysInLocation按值获取数据，但是将它们结合起来就更胜一筹。 这是使用VBA的可能吗？ 我正在使用的代码来整理表单（全部在一张表中， intRouterLocation不考虑）： […]
访问VBA与Excel交互，第二次获得错误91
我在第二次运行时遇到了这个脚本的问题。 我第一次运行脚本没有问题，如果我closures访问并重新运行脚本，我也没有问题，但在10分钟内运行时，我得到错误91“对象variables或块variables未设置” 脚本似乎卡在第二次运行格式化电子表格的行上。 （ With Selection .Font.Bold = True ） 脚本是： Option Compare Database Option Explicit Public Function LookInduct() On Error GoTo Induct_err Dim ExcelApp As New excel.Application Dim WorkBook As excel.WorkBook Dim Linecount As Integer Dim SaveDetails As String SaveDetails = "C:\LookToInductReport.xlsx" If Len(Dir(SaveDetails)) > 0 Then Kill SaveDetails End If DoCmd.TransferSpreadsheet acExport, 10, […]
错误2147217904从Excel中查询Access时，没有给出一个或多个必需参数的值
我在Excel中查询Access中的Table1 。 我正在过滤列的SampleType根据在用户SampleType上选中的三个标准的where子句。 我还需要根据where子句中的select从SampleID列中返回不同logging的数量。 我的代码可能有一些小问题，我无法弄清楚。 请帮忙。 谢谢 Dim cnn As ADODB.Connection 'dim the ADO collection class Dim rs As ADODB.Recordset 'dim the ADO recordset class Dim dbPath As String Dim SQLwhere As String Dim StrSql As String Dim i As Integer Dim tar6 As String Dim tar7 As String Dim tar8 As String tar6 = […]
