Tag: ms access

将Access 2013select查询的结果导出到Excel 2013表单中，而不创build新的工作表或重新引用

这个问题相当简单，但是让我感到困惑，特别是因为这个代码在我创build的另一个应用程序中工作得非常好，所以我怀疑有一些隐藏的设置导致了问题。 我需要将访问select查询的结果转移到模板Excel工作表的副本中。 这个模板中有一些其他的表单，它们指向将要接收Access查询数据的表单，然后用它进行一些格式化和计算。 我所需要的只是将这个单个查询的结果传输到正确的表单中，而不用格式化或任何东西。 覆盖整张纸也很好。 我的问题是，而不是复制到工作表“qryLineItemsExportBuffer”，而是创build一个名为“qryLineItemsExportBuffer1”的新工作表，并将查询结果 – 所以在工作簿中的所有引用查找错误的地方。 我也不能使用DoCmd.TransferSpreadsheet [Range]参数来定义目标工作表， 因为这只在导出时不起作用。 这是我的代码 – 它1.打开模板，2.保存一个新名称的副本，3.传输查询结果，然后4.打开副本，并重新计算/重build链接： Private Sub cmdExportInvoiceRequestForm_Click() Dim instExcelTemplate As Object Dim xlsxInvoiceRequestTemplate As Excel.Workbook Dim xlsxInvoiceRequestNewName As String Dim xlsxInvoiceRequestCopy As Excel.Workbook xlsxInvoiceRequestNewName = Application.CurrentProject.Path & "\" & CustomerName & "-InvoiceRequest-" & Format(Date, "dd-mm-yyyy") & ".xlsx" 'create the name for the new invoice report […]

将值导出到Excel MS Access

我在MS Access中有一个表，有四行，四列A，B，C，D 我想将这些logging导出到Excel工作表中，如下所示， 预期产出： Excel中有8行 Excel应该如何 从表中查询4行 每行的克隆，但列A前面加上文字“Dummy” 克隆行的其他列值是常量 例如： 表： Excel如何导出： 每一行都被克隆，只有列A的前面加上了文本，其余的列值是不变的 我很less有select通过VBA来实现，希望知道哪一个是最优化的 – 写一个查询来select表值， 创build临时表（克隆现有表的结构） – 循环查询值的logging集 – 填充临时表的第一列值与logging集的A列值，前缀已编码的文本和其他列值也被硬编码 – 将两个表格导出并导入到Excel中 – 从表中查询并导出到Excel中 – 通过表格并填写带有前缀的表格字段（1）的Excel单元格A6 – 从表中查询并导出到Excel中 – 附加4行硬编码值的excel（不确定追加是可能的） 请提出build议哪种方式是可能的，并且很高兴听到其他选项我错过了（以前从未使用过MS Access，这是我第一次接触到的基于我通过的教程，我有以上选项）

比较表和返回匹配值（SQL，VBA）

大家早， 我想我可能会错过一些明显的东西，所以我希望有人能够把我推向正确的方向。 我正在使用Excel 2010来查询使用DAO的Access 2010数据库。 我需要两张桌子，[缺席]和[工作人员]。 前者包括缺席的细节和员工的姓名，后者包括员工的更多细节，比如他们的团队经理。 我目前可以查询并返回有关缺席的信息，但是，我需要扩展此项以检查缺席表中的员工姓名是否与职员表中相应的团队经理关联。 所以，用简单的英语来说，如果员工在工作人员表中被列在这个小组经理的pipe理下，那么应该把这两个date之间的缺席表给我。 这是我的代码到目前为止（额外的领域剥离出来的例子），它工作正常： Sub QueryDatabase() Dim db As DAO.Database 'the database Dim rex As DAO.Recordset 'the recordset in which to place the data Set db = OpenDatabase(ActiveWorkbook.Path & "/DB.accdb", False, True, ";pwd=" & pw) Set rex = db.OpenRecordset("SELECT [RecordDate], [StaffName], FROM [Absence] WHERE [RecordDate] BETWEEN #" & dFromDate […]

如何将父和子logging集合到一个logging集中？

如果这是一个DBA的问题，请随时告诉我。 我们将数据存储在需要导出的SQL数据库中，以便将其转换为新的软件包。 目前，我们有一个父logging集和一个需要组合的子logging集，因为新系统能够跟踪父logging集上的子logging集。 我希望这是有道理的。 父logging集 ID | Description — | ———– 1 | Item 1 2 | Item 2 3 | Item 3 儿童logging集 Parent ID | Code | Value (string) ——— | ———– | ——————- 1 | PSI | 75 1 | SIZE | 2 1/2" 2 | CFM | 9200 2 | BELT […]

如何编辑由Access查询创build的Excel报表的列宽？

我正在尝试自动调整Excel报表的列宽。 此Excel报表由Access中的查询生成。 所以，我不能把VBA代码放入Excel文件本身。 我需要在Access中放置VBA代码或其他东西，以便每当我运行查询时，我会在输出Excel报告中获得自动调整的列宽。 我尝试了一些东西，但都没有工作。 'ThisWorkbook.Worksheets("qryFT").Columns.Autofit 'acOutpotquery.Select 'Column("A:A").Select 'Selection.EntireColumn.Autofit

MS Access导出为Excel格式

我有一个业务需要将数据从Access（2013）导出到Excel（2010 \ 13），然后将分发给x个用户。 这将定期发生。 我想在Access中执行尽可能多的格式化，并避免在Excel中创buildmacros并调用它们。 这是我在Access中的数据： Cat1 Cat2 Cat3 Item Desc AAA PPP QQQ WID1 Widget1 AAA RRR KKK WID2 Widget2 AAA RRR JJJ WID3 Widget3 BBB DDD EEE WID4 Widget4 BBB FFF UUU WID5 Widget5 在Excel中，数据需要看起来像这样 AAA PPP QQQ WID1 Widget1 RRR KKK WID2 Widget2 JJJ WID3 Widget3 BBB DDD EEE WID4 Widget4 FFF […]

如何为列中的每个单元格插入20个date

我已经给了一个excel列的数字，我想要创build一个新的列，每个单元格的内容重复20次和20个date顺序依次到另一列。 我怎样才能在Excel或访问中实现这一点？ 例如，我有一个数字列如下： 0491703316 0235361458 0380458968 0240510098 0169346827 0147826672 我想这样做 0491703316 01/12/2016 0491703316 02/12/2016 0491703316 03/12/2016 0491703316 04/12/2016 …………………. …………………. 0235361458 01/12/2016 0235361458 02/12/2016 0235361458 03/12/2016 0235361458 04/12/2016 …………………… …………………… …………………… 0380458968 0240510098 0169346827 0147826672

访问VBA添加Excelbutton与VBAmacros

我试图自动从Access中为用户创build新的Excel文档，所以我不必每次都手动创build它们。 我从Access VBA创build了一个Excelbutton，但现在我想创build一个具有Excel VBA背后的macros。 这可能吗？

Object'_Global'的方法'Union'失败

我继续在第二次导出Excel电子表格时遇到这个错误。 我所看到的经常性答案是，联盟中使用的rng需要设置为无。 我一遍又一遍地遍历我的代码无济于事，还有什么我可能会失踪。 希望对此有所了解。 Set myRange = ApXL.Sheets(xlWSh.Name).Range("1:1") Set LastCell = myRange.Cells(myRange.Cells.count) Set FoundCell = myRange.Find(what:=fnd, After:=LastCell) If Not FoundCell Is Nothing Then FirstFound = FoundCell.Address Else GoTo NoValuesMatchingFound End If Set rng = FoundCell 'Loop until cycled through all unique finds Do Until FoundCell Is Nothing 'Find next cell with fnd value Set FoundCell […]

ListObjects创build – 后期绑定 – 从Access到Excel

我想在将数据放入工作表后创build一个表。 以下代码将查询结果从Access下载到Excel。 代码工作正常“xlSheet.Range（”$ A $ 1：$ U $ 2“）。select”但未能创build表。 你可以帮我吗？ Option Compare Database 'Use Late Bingding befor move on prod remove Excel ref Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim xlTable As Object 'End of late Binding Sub testExport() Dim QryName As String QryName = "BOM_REPORT_UNION" ExportToExcelUsingQryName (QryName) End […]