Tag: access vba

MS Access VBA脚本与Excel接口

我正在尝试在Microsoft Access中编写一个VBA脚本，它将与Excel工作表进行交互，循环访问行中的单元格，然后将信息拉回到Access表中。 这里是一些sudo代码 – For Each Row For Each Cell in the Row Read the Cell Create a new Record in the Access table with the info from the cell End For Each End For Each 您可以在下面的图片中看到最终结果的简单示例。 我们有什么- 需要什么 – 我已经编码过，但从来没有在VBA; 所以任何帮助将不胜感激！ 谢谢你的帮助！！！

使用MS Access交叉表查询太多交叉表列标题错误

我试图导出MS-Access交叉表查询，但得到错误消息“太多的交叉表列标题”。 事实certificate，MS-Access对查询可以有的列数有限制（255列）。 一些在线search后，我没有遇到任何可行的解决scheme…一个解决scheme是将查询拆分成less于255列的多个查询，但是你需要创build多个查询，这取决于列的数量，这可能是未知。 这不是一个非常简单的任务。 有什么办法导出一个交叉表查询超过255列到Excel文件？ 更具体地说：有没有使用VBA代码的解决scheme？

如何使用VBA自动执行多个Office应用程序？

虽然我已经在MS Access 2007和Excel 2007的单个应用程序中完成了VBA项目，但我还没有同时自动执行多个应用程序。 通用项目是开放访问，运行一些更新查询，将数据附加到各个表中。 然后Excel需要获取数据。 Excel中需要一些格式更改，例如不会自动更改date范围的分组。 最后，我打算build立这样的Excel文件将自动通过电子邮件发送。 有些部分清楚如何完成它，比如Excel将通过ODBC从ODBC获取数据。 但是VBA主人应该在哪里？ 我可以在Access中有一个可以开始运行Access VBA的button，但是Access VBA开始操作Excel是一个好习惯吗？ 这是否使debugging困难？

方法“添加”对象“工作簿”失败 – 导入excel工作簿与VBA访问2007年

解决：我已经接受了来自悉达思的一个答案。 我非常感谢大家的帮助，我对这些迅速的回应感到惊讶。 当我来到这个社区寻求帮助时，我总是会学到新东西，你们真棒。 感谢您抽出一点时间来看看我的信息。 我已经把一个脚本放在一起（非常感谢这里的帮助），它需要一个excel工作簿，并将每个工作表导入Access 2007数据库中的一个单独的表。 该脚本用于在我的电脑上正常工作，但由于最近从硬件故障中恢复，我无法获得脚本运行。 最重要的是，我的客户得到的不是我自己的错误信息。 这个问题的很大一部分与我的对象引用有关，当我从工具菜单中添加Microsoft Excel 14对象库作为参考时，所有工作都正常。 但是，客户在他们的系统上有不同版本的Office，希望这个应用程序可以分发给其他可能安装了其他版本的Office。 我试图实现某种forms的后期绑定，但我可能没有正确接近这一点。 代码如下： 编辑：当前的代码再次更新，与从Siddharth下面接受的post有关 Private Sub Command101_Click() On Error GoTo Err_Command101_Click ' Set up excel object Dim excelApp As Object Set excelApp = CreateObject("Excel.Application") ' Set up workbook object Dim excelbook As Object ' Set up file selection objects with parameters Dim fileSelection As […]

将数据添加到表格时移到下一列

我试图从Excel中添加一段数据到Access中的表。 我使用了TransferSpreadSheet方法，数据在表格中出错。 接下来的事情是尝试将列中的每个单元格逐列添加到表中，但这不起作用，因为要继续将数据添加到下一行而不是下一列，然后添加到第一行下一列。 一般来说，我在Excel中有7行/单元格和100列。 我希望它在表格中看起来与在电子表格中一样 这是我所尝试的： For i = 0 To 7 For j = 5 To 100 xColumn = MultiLetter(j) xCell = shNames + "!" + xColumn + CStr(BCellNum + i) + ":" + xColumn + CStr(BCellNum + i) 'xCell = shNames + "!E" + CStr(BCellNum + i) + ":" + xColumn + CStr(BCellNum […]

有条件的内部联接语句（VBA / SQL）生成多个值

我很新的VBA / SQL，我试图执行一个条件的内部联接。 我有两个共同列的表（“CRM”和“CodeCRM”），当table1（“Flux”）触发某个事件（CodeBlocage = 101）时，我希望从table2（“服务台”）获得一个电子邮件地址以将其添加到自动电子邮件。 Dim StrDestinataire As String Select Case Strtable Case "Flux", "GAFIJOUR" Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim Y As String Dim sSql As String Set cn = CurrentProject.Connection sSql = "Select AddMailCRM from Desks Inner Join Flux on Desks.CODECRM = Flux.CRM WHERE Flux.CODEBLOCAGE = '101'" Set rs […]

如何在vb中使用一个对象数组

我试图学习如何使用一个对象的数组，但我不明白。 我必须将数据从Excel文件导出到Access数据库。 Private Sub Import_XLS(ByVal fileData As String, ByVal dbEmpty As String, ByVal dbDest As String) If My.Computer.FileSystem.FileExists(dbDest) Then My.Computer.FileSystem.DeleteFile(dbDest) My.Computer.FileSystem.CopyFile(dbEmpty, dbDest) Dim capitoli As New cCapitoli Dim paragrafi As New cParagrafi Dim voci As New cVoci Dim total As Integer Dim fileStream As FileStream = New FileStream(fileData, FileMode.Open) Dim file(fileStream.Length) As Byte fileStream.Read(file, 0, […]

访问VBA如何确定文件是否为Excel格式？

使用MS Access VBA如何检查文件以了解它是否为Excel格式？

将Excel文件读入Access数据库的最佳方法

什么是从Access 2007应用程序中读取（只读）Excel文件的“最佳”方法。 我只想循环通过行并将数据放入一个Access表。 我不想手动导入（获取外部数据对话框），而是通过VBA。 用户通过浏览button获取表单，然后指向具有定义的内容/格式的Excel文件。 之后，VBA代码读取数据并将其放入Access数据库。

如何使用Excel VBA在运行系统中打开MS Access？

我正在努力如何从Excel文件中使用VBA打开MS Access Runtime。 您可以使用CreateObject("Access.Application")打开Access的完整版本，但不会在运行系统中打开Access。 我们只在某些计算机上安装了Microsoft Access Runtime，因为我们需要使用我们开发的前端。 所以我们需要使用MS Access Runtime打开accdb文件，但是从Excel打开。 任何帮助表示赞赏，谢谢