Tag: ms access

VBA运行时错误3326：此logging集在交叉表查询上不可更新: 我试图从Access到Excel输出一个交叉表查询，我读了2010年最好使用OutputTo方法，而不是TransferSpreadsheet方法。我有以下代码行，有时它完美地工作，有时它踢VBA运行时错误3326：此logging集是不可更新的。我没有试图更新任何数据 – 我只是想将结果数据导出到Excel。 DoCmd.OutputTo acOutputQuery, "qryStates_1_Crosstab", "ExcelWorkbook(*.xlsx)", my_filename, False 还有什么我需要做的，使其输出正确？

从excel中读取交叉表编号以访问: 我必须从Excel中加载一堆数字才能访问。我在Access中使用导入Excel数据来加载数据。早些时候： – Field1 Field2 Field3 QTY A1 B1 C1 1 A1 B2 C2 2 A1 B3 C3 3 A1 B4 C4 4 A1 B5 C5 5 我的数据现在是交叉表格式。例如：- A1 B1 B2 B3 B4 B5 C1 1 0 0 0 0 C2 0 2 0 0 0 C3 0 0 3 0 0 […]

从ATOM数据馈送中提取数据的替代方法: 我做了一些广泛的search，无法find我的问题的答案：使用ATOM数据馈送而不是Microsoft Powerpivot是否有替代scheme？我试图build立一个连接到MS Access，所以我可以使用当前必须通过embedded在Sharepoint仪表板上的SSRS访问的数据填充一些表。我没有访问服务器的权限，所以现在无法创build自己的连接。 Powerpivot是手动返回Sharepoint之外的唯一返回数据的方法。我想要数据自动填充在MS Access 2010中。

MS-Access 2003和MS-Excel 2013之间的兼容性: 这与我昨天提出的问题类似，但是我已经设法find更多的信息：我觉得足以certificate一个新的问题。我的办公室最近已经与Office 2013一起移到了Windows 7上，除了2003年的Access以外。除了当我尝试自动化Excel时，访问工作绝对正常。这是几乎所有我的应用程序的function。当我加载一个旧的项目，引用自动更新为“Microsoft Excel 15.0对象库” – 它是作为程序文件（x86）中的EXE文件保存。注意：它没有说引用丢失。当我尝试运行任何使用早期绑定的代码时，它会失败，并显示以下错误消息：“加载DLL时出错” 我已经尝试了以下方法尝试后期绑定： Dim app As Object Dim wb As Object Set app = CreateObject("Excel.Application") app.Visible = True Set wb = app.Workbooks.Add 这创build应用程序，它变得可见，添加一个工作簿，但后来我得到以下错误：“运行时错误'1004'：应用程序定义或对象定义的错误“ 如果我尝试在新的工作簿中访问VBA，会出现以下错误：“初始化VBA库（1004）时发生错误”工作簿以“兼容模式”加载以上让我相信这两个应用程序可能不兼容，但以下是值得考虑的：如果我尝试使用早期绑定，我不会获得智能感知下拉列表，但像Workbook和Worksheet这样的字会像您通常所期望的那样自动大写自己。如果我没有引用集，代码根本不会编译，但是它会编译 – 并抛出错误。我已经尝试过Word 2013 – 谁的对象引用是一个OLB文件而不是EXE – 我得到了完整的Intellisensefunction，除了它，但它仍然会在尝试运行时抛出相同的错误。在坚果壳里，有没有人知道我是否有机会一起做这两件事？谢谢

自动过滤一个受保护的Excel表单从访问打开: 我正在从Excel中移动一些代码访问。在Excel中有一个打开另一个Excel文档并应用自动筛选器的button。 Dim cell As Long cell = Sheet2.Cells(9, "i").Value Workbooks.Open Filename:= _ "C:/worksheet1.xls" Selection.AutoFilter Field:=3, Criteria1:=cell 这是从Excel中的代码，它用于正常工作，但现在也抛出一个错误，因为工作表受到保护。使用一些代码，我从这个线程自动筛选Excel与VBA 我想出了代码，应该在访问工作，但没有我到目前为止是 Dim oApp As Object Dim wb As Object Dim ws As Object Set oApp = CreateObject("Excel.Application") oApp.Visible = True 'tries to open workbook On Error Resume Next 'change file path to the correct one […]

macros在Excel表中对列进行sorting: 我想重新排列几个表中的所有列（在Excel中设置为Table），在同一个Worksheet中的另一个下面。这是一个例子，所以你可以更好地理解我现在拥有的东西：表格1 Col1 Col2 Col3 Col4 Col5 Data Data Data Data Data 表2 Col1 Col4 Col5 Col3 Col2 Data Data Data Data Data 表3（在这张表中，我有一个额外的列，我不需要） Col3 Col1 Col2 Col5 Col4 Col6 Data Data Data Data Data Data 期望的结果 Col1 Col2 Col3 Col4 Col5 Data Data Data Data Data Data Data Data Data Data Data Data […]

在Excel中的现有表格中插入Excel表格: 我相当新的VBA，在这里我的工作从Excel中插入一些数据循环通过每个，并在现有的访问，代码运行良好，但不插入任何数据在表中，我也尝试追加数据使用logging集，但由于数据types问题而工作。请引导我通过它，非常感谢你提前。这是我的代码： Const AccessConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =C:\Documents and Settings\e4umts\Desktop\New Database\IRG Analytics–New.accdb;Persist Security Info=False" Sub Import() Dim dbsIRG As ADODB.Connection Dim ConnectionString As String Dim IRGConn As ADODB.Connection Dim Mypath As String Dim IRGCmd As New ADODB.Command Dim r As Range Dim column As Integer Dim row As Integer Mypath = "C:\Documents […]

如何将数据从Oracle数据库导出到csv文件？: 我有一项工作，包括从一个csv文件中导出Oracle数据库的数据，或者在Excel上读取其他格式的数据。我得到的数据显示在“通知”由“Veeder-root”开发的软件上，我不知道如何从这个软件获取这些数据。我没有太多的信息，我是我的新公司，现在我是IT的新手。有人能告诉我正确的方法吗？谢谢。编辑：我没有访问数据库。

SQL查询结果放入Excel工作表的单独列中: 以前，我能够运行一些运行多个SQL查询的VBA，并将结果放在单独的Excel工作表的不同列中。有一个参考设置为Microsoft ActiveX数据对象2.8库（VBE中的工具，参考）。虽然代码工作正常，最近我收到一条错误信息如下 – 运行时错误“-2147217913（80040e07）”标准expression式中的数据types不匹配这里是代码（错误出现在“rs.Open sql，cn，adOpenStatic”这是不太有用的）。请注意，同样的错误出现在我尝试运行的所有VBA / SQL代码中，而不仅仅是下面的代码。 Private Sub GetUniqueClassesListWithConditions() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim strWkbPath As String Dim sql As String Dim buf As Variant Dim i As Long Dim j As Long Dim iTimes As Integer Dim iQuestion As Integer Dim iCondition As Integer Dim […]

每次将导出访问查询导出到同一张表: 我有一个“Excel二进制工作簿”与命名表和一个MS ACCESS与查询命名相同的工作簿表。例如，我有一个像“CustomersData”的工作表，并有一个名称相同的查询。我的问题是，当我运行这个代码，它将查询数据导出到“CustomersData1”而不是“CustomersData” DoCmd.TransferSpreadsheet acExport, 9, xQuery, strFilePath, True, xSheet 我正要写function在导出数据之前首先删除纸张，但是我在同一工作簿中有另一张纸张引用了这些纸张。我的代码： Public Function Export_To_Excel() On Error GoTo Export_To_Excel_Err Dim rs As DAO.Recordset Dim xQuery As String Dim strPath As String Dim i As Long Set rs = CurrentDb.OpenRecordset("SELECT * FROM Export_Specs") strPath = "D:\Path\To\File.xlsb" i = 0 If Not (rs.EOF And rs.BOF) Then […]