Tag: ms access

如何在导出到Excel电子表格之前replace访问备注数据types上的<div>标记

我试图将我的数据从Access查询导出到Excel电子表格。 我设法做到这一点，但一旦我从excel导出这些数据; 备注数据types字段在这些Excel单元格上有标签。 我想导出所有我的备忘录数据types字段在excel单元格中没有标签。 这里是我的代码在MS Access的示例。 Dim stQueryDef As DAO.QueryDef Set dbs = CurrentDb'On Error Resume Next Set dbs = CurrentDb Set stQueryDef = dbs.QueryDefs("MyQuery") Set rst = stQueryDef.OpenRecordset Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = True .Workbooks.Add .Sheets("Sheet1").Select .Activesheet.Range("A2").CopyFromRecordset rst For i = 1 To rst.Fields.Count xlApp.ActiveWorkbook.Sheets(1).Cells(1, i) = […]

Excel – SQL'INSERT INTO'查询语法错误

我正在尝试使用Excel中的数据对MS Access数据库进行简单的插入查询。 我正在使用硬编码值进行testing的参数化查询。 直接在Access中运行查询，但试图通过VBA执行它会导致语法错误。 该查询当前插入Access表中的自动生成的ID以外的每个字段。 Sub Test_SQL() Dim conn As ADODB.Connection Dim cmd As ADODB.Command Dim result Dim id As Integer Dim year As Integer Dim month As String Dim combocode As String Dim credamt As Double Dim qty As Integer Dim itemcode As String Dim sepbundleamt As Double Dim prodname As String '*********query variables******************** […]

将访问数据库链接到excel（不需要导入整个表格）

有没有办法将Access数据库中的表格链接到Excel，而无需导入整个表格？ 我需要在Access表中引用/查找单元格，但不希望将整个表格导入到Excel工作簿中（表格太大）。 我的第二个select是将Access表导出到一个单独的Excel工作簿，然后只是引用这个新的工作簿，而不是Access数据库本身。 当我尝试这样做时，只有大约65000行数据从任何Access表中实际导出到Excel，因为其余的“无法复制到剪贴板”。 有没有简单的方法呢？ （我想实际上在excel / access文件之间有一个连接，所以数据可以刷新，不只是复制和粘贴行）

MS Access VBA修改Excel工作表而不写入驱动器

不知道这个修复是否可能，但值得一试。 我有我的Access数据库中的VBA模块导出一些查询结果到预先存在的Excel工作表。 我没有问题在我的C：驱动器中创build一个新工作表，并填充查询结果。 但我需要能够修改现有的Excel工作表。 该数据库将被同一公司的许多用户使用。 他们将下载一个带有数据库的zip文件和一些带有表格和图表的Excel表格。 这些表将由来自Access的查询结果填充。 主要的问题是，与我目前的代码，我得到运行时错误3011其中Access无法find查询tempQ1 。 这是我的代码：（抱歉，如果它是凌乱的） Sub QueryExport() Dim db As DAO.Database Dim tempQ1 As DAO.QueryDef Dim tempQ2 As DAO.QueryDef Dim totalFindingsQuery As String Dim breakdownFindingsQuery As String Dim query1Name As String Dim query2Name As String query1Name = "tempQ1" query2Name = "tempQ2" Set db = CurrentDb totalFindingsQuery = "<SQL QUERY>" breakdownFindingsQuery […]

大型Excel文件 – 为数据分析提供了一个更好的平台

我有一个Excel文件W / 600K行项目（约15列）。 打开它，更不用说执行分析是非常慢，我不是一个超级计算机（做一个简单的VLOOKUP三分之一的数据集需要10分钟，往往会崩溃）。 我有Access 2010在我的处置。 a）是否适合input每周数据并返回一些基本汇总统计数据（工厂累计的SKU），b）比Excel工作簿（500k-1M行）快得多？

从txt导入数据到非默认分隔符访问

我知道有一个function，可以做到这一点，如果字符分隔符是选项卡，空间，“;” 要么 ”，”。 但是我得到的文件是用del分隔的。 有没有一个脚本，我可以在VBA中运行，这样做，并与works？ 提前致谢

如何在Excel VBA程序中将作为variables存储的数据传输到Access数据库

我有一系列Excel VBA计算中的数据存储为VBA代码中的variables。 我想在代码结束时做的是将这些variables中的数据作为新logging传送到MS Access数据库中。 Access数据库已经存在并准备就绪。 在将数据传输到Access之前，是否必须将variables中的数据放入工作表上的单元格中？ 下面是我尝试存储在数据库中的VBA代码中的variables示例（variables名称对应于数据库列标题） Dim customerName As String Dim customerAge As Integer Dim customerSpend As Double customerName = "Tim" customerAge = 26 customerSpend = 12876 这是我迄今为止设法写入的代码来尝试和传输数据，但是我被困在'Range'部分，因为它们是variables而不是单元格的范围： Dim strPath As String Dim objAccess As Object strPath = "C:\db1.accdb" Set objAccess = CreateObject("Access.Application") Call objAccess.OpenCurrentDatabase(strPath) objAccess.Visible = True Call DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel12, CustomerDetails, Range) 如何将存储在VBA代码中的variables中的数据传输到Access数据库的相应列中以创build新logging？

我如何打开一个访问文本文件，并加载在VBA Excel中的文件path存储在一个variables？

裂缝:) 我有以下代码： Dim TextFileConn As ADODB.Connection Dim TextFileData As ADODB.Recordset Dim TextFileField As ADODB.Field Set TextFileConn = CreateObject("ADODB.Connection") Set TextFileData = CreateObject("ADODB.Recordset") TextFileConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\A7P2AZZ\Desktop\IBP DP Tool\High_Level_Data_BG.accdb" TextFileConn.Open With TextFileData .ActiveConnection = TextFileConn .Source = "FinalTable" .LockType = adLockReadOnly .CursorType = adOpenForwardOnly .Open End With 现在我想使用一个variables，我可以从Excel中控制，而无需进入VBA代码，并调整我的文件path。 为此我创build了存储我的文件path的variables“objectname”。 objectname = "C:\Users\A7P2AZZ\Desktop\IBP DP Tool\High_Level_Data_BG.accdb" 所以我的问题是，如何将“对象名称”包含在此中 TextFileConn.ConnectionString […]

从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 […]

合并两个表与不同数量的logging

我有两个表，我想合并： Table A Site Date Time Flow xy-1 9/28/17 10:20 0.11 xy-1 8/13/17 9:59 xy-1 7/30/17 9:38 0.15 Table B Site Date Time pH xy-1 9/28/17 10:20 7.3 xy-1 8/27/17 10:30 7.8 xy-1 8/13/17 9:59 7.9 xy-1 7/30/17 9:38 7.2 我想输出看起来像这样： Site Date Time pH Flow xy-1 9/28/17 10:20 7.3 0.11 xy-1 8/27/17 10:30 7.8 […]