Tag: access vba
从Excel使用Excel中的数据使用VBA获取数据
我试图从Excel中提取数据使用一列的Excel。 我已经尝试了下面的代码，但是它没有花费太多的时间，当Excel中的行数超过5k行。 有谁知道更好的方法来引用Excel数据来获得结果： Sub ddd() Const dbloc As String = "C:\Users\mysystem\Downloads\Database11.accdb" Dim db As DAO.Database Dim rs As DAO.Recordset Dim xlbook As Workbook Dim xlsheet As Worksheet Dim a As Long Dim SQL As String Set xlbook = ActiveWorkbook Set xlsheet = xlbook.Worksheets(1) xlsheet.Range("B2:Z100000").ClearContents Set db = OpenDatabase(dbloc) SQL = "SELECT Material, MPN " SQL […]
使用Excel时，访问运行时错误“91”
我知道这已经被提了很多次（通常在运行时错误'1004'），但我很难隔离我的代码中的错误 – 尽pipe在这里和其他网站广泛的研究。 我的代码从Access窗体上的命令button运行，并在打开窗体后第一次成功运行，但在后续尝试中失败。 我想我使用不足的引用和/或打开第二个Excel对象，但我不能解决如何。 其他格式化进行，但我已尽可能删除，以保持短。 Private Sub cmdExport_Click（） Dim dbs As Database Dim rst As DAO.Recordset Dim appExcel As Excel.Application Dim wbk As Excel.Workbook Dim wks As Excel.Worksheet Dim lngCount As Long Dim lngDataRows As Long Dim intLoop As Integer Dim strSheetName As String Dim dteStart As Date Dim dteEnd As Date Dim curStartBal […]
MS Access自动链接Excel电子表格
我有一个目录结构，我正在pipe理系统的需求，每个组件都有自己的目录。 每个组件的要求存储在一个有多个工作表的Excel工作簿（工作表是静态的）。 我目前正在使用访问作为中央位置查看这些表中的信息，并对其进行查询。 我讨厌每次将新的组件文档添加到目录时手动链接新的Excel文件。 有没有办法，当我每次开始访问它将search存储的Excel文件的目录树，并自动链接他们访问，如果他们没有链接，并更新我的保存查询，包括新的文件。 我以为我可以保存在一个表中的子目录名称和所有在另一个表引用另一个表的子目录中的文件名，所以它search文件系统，它比较名称与表。 如果有人能指出我正确的方向，这是否可能呢？
如何处理Excel仍然是错误的
让我让自己更清楚。 我需要访问一个Excel文件，但是当我尝试时，应用程序说，不可能访问被引用的文件。 问题是它没有打开。 然后我意识到任务pipe理器包含一些Excel实例，所以我放弃了它们。 好吧，它工作得很好，但最终用户不想这样做，所以我需要通过代码来做到这一点。 请帮帮我！ 提前致谢。
我需要一个VBA脚本在Excel中运行，以复制Excel工作表中的所有访问表列
我有大约10 * .mdb办公室版本2003的Access文件。我正在客户端机器上，我只有Excel 2003安装，但不是访问。 每个数据库文件大约有50-100个表格，每个表格大约有20-30个列。 我需要运行一个VBA脚本或Excel上的任何导入，以便我可以将所有的Access表和它的列复制到我的Excel工作表。 我不需要访问表的数据只有表和它的列名是我所需要的。
MS Access的VBA如何抑制Excel的行删除“你想保存更改”对话框？
类似于MS Access VBA中的问题如何在Excel中删除一行 然而，问题是Excel要求“你想保存你所做的更改…？ 有没有办法强制保存更改并禁用任何消息框？ 我尝试了DoCmd.SetWarnings False，但它不起作用。
编译错误找不到项目或库
我不熟悉VB6，我想在新的环境（这意味着新的桌面）编译一个现有的项目，所以我错过了一些开发工具或引用来运行下面的代码？ 因为当我运行它指向的项目（date）。 ExcelSheet.Cells(2, 1).Value = "Printed As At " & ls_now If optCurrent.Value = True Then ExcelSheet.Cells(4, 1).Value = "Year : " & Year(Date) Else ExcelSheet.Cells(4, 1).Value = "Year : " & cboYear.Text End If 请帮助，万分感谢
在Acces中通过VBA运行Excelmacros
我是Access和VBA的新手，我想创build一个自动化的过程。 但是我觉得这件事我全心全意。 我试图在Access中创build一个macros： 检查文件是否存在 打开Excel文件并运行macros 导入结果 我试图让macros运行macros，但似乎是一个失败的原因。 有人可以帮我吗？ Private Sub Main_btn_Click() Dim fileInfoToBeImported(3, 1) fileInfoToBeImported(0, 0) = "Stock_CC" fileInfoToBeImported(0, 1) = "F:\370\Hyperviseur\SITUATIE\Macro\Stock_getdata.xlsm" fileInfoToBeImported(0, 2) = "GetStock" fileInfoToBeImported(1, 0) = "Wips_CC" fileInfoToBeImported(1, 1) = "F:\370\Hyperviseur\SITUATIE\Macro\Wips_getdata.xlsm" fileInfoToBeImported(1, 2) = "Update" fileInfoToBeImported(2, 0) = "CCA_cc" fileInfoToBeImported(2, 1) = "F:\370\Hyperviseur\SITUATIE\Macro\SLAcc.xls" fileInfoToBeImported(2, 2) = "Read_CCA" fileInfoToBeImported(3, 0) = "Eps_cc" fileInfoToBeImported(3, […]
有没有适当的方式来执行这个任务，而不诉诸自定义的子程序？
问题总结 我在VBA中编写了一个excelmacros，导入一个大文本文件，读取每一行以确定要存储的数据的数量，为数组分配正确的大小以容纳数据，然后再次打开文件以写入数据进入arrays。 我遇到的这个程序的问题是大的文本文件有不一致的标签尺寸行。 我不得不写一个特殊的分隔符filter函数来select正确的数据存储到数组中。 有没有适当的方式来执行这个任务，而不诉诸自定义的子程序？ 程序规格 程序必须执行数据分析，以便与下面的模型最佳拟合：其中包括负指数。 程序不允许退出后将数据保留在Excel电子表格中，但这并不意味着它不能暂时放置。 性能和速度对于不耐烦的用户来说是重要的。 导入的数据可以具有未指定数量的重复列types和未定义的制表符长度分隔。 打开build议 我很乐意利用预定义的excel函数并将数据存储在excelvariables中。 从文本文件中确定数据的大小 Dim LineText As String ' indiviudal line of row text from data file Dim runs As Long ' number of delimited column of data we're interested in Dim count As Long ' number rows in data file Dim data() As Double 'data […]
VBA 2007 Filedialog添加filter
我正在使用Access 2007并试图通过使用filter筛选FileDialog文件列表。 在debugging时，代码在.Filters.Add行上返回错误：运行时错误“5”：无效的过程调用或参数。 我搜刮了StackOverflow和微软。 .Add方法似乎是正确的。 Dim fn As Object Set fn = Application.FileDialog(3) With fn .InitialFileName = "C:\BillData\" .Title = "Select input file" .Filters.Clear .Filters.Add "Bill Files", "ccc.*" .AllowMultiSelect = False .InitialView = msoFileDialogViewDetails End With 如果我跳过这一行代码，其他的一切似乎都正常。 你的帮助将不胜感激。
