Tag: ms access

如何将行添加到不存在MSaccess的表中: 我在这里的第一个post/问题，我已经search，并尝试了很多select，但没有什么似乎完全符合我所需要的。我正在构build一个Access DB来pipe理调度工作，并为员工分配工作。计划的工作来自于我导入到Access的Excel Sheet工作Excel Sheet 。我无法控制数据如何传递给我或者格式。所以我有一个桌面“tblTempP6”与本年度的计划工作。几列确定一个唯一的条目。我有另一个表' shtP6DataEast '有一个索引是主键。这两个表是相同的，除了shtP6DataEast条目有和索引。所以我可以访问特定的条目和分配员工等。每次我得到一个新的工作表导入现有的计划工作仍然在工作表，我不希望与不同的ID重复的项目。我已经尝试左连接，但有问题，因为我需要使用4列作为唯一标识符… 任何想法？谢谢原谅我的NOOB问题 SELECT tblTempP6.[Project #], tblTempP6.[Work Order #], tblTempP6.[Project Name], tblTempP6.[Activity Name], tblTempP6.[TOA #], tblTempP6.Start, tblTempP6.Finish, tblTempP6.[Budgeted Labor Units], tblTempP6.[S/S – SUBSTATION], tblTempP6.iCircuit, tblTempP6.isStreet, tblTempP6.[Test Group Work Type], tblTempP6.Comments, tblTempP6.[Resource IDs] FROM tblTempP6 LEFT JOIN shtP6DataEast ON […]

如何在文本字段中每次出现特定格式后插入新行: 我有一个系统可以输出电子表格。然后我把这个输出的电子表格，并将其导入MS Access。在那里，我运行一些基本的更新查询，然后将最终结果合并到SharePoint 2013链接列表中。我输出的电子表格有一个不幸的长文本字段，其中有一些注释，这是至关重要的。在托pipe电子表格的系统上，这些注释格式很好。当它输出电子表格时，字段会变成一个很长的非常空白的string，如下所示： 09:00在01/03/2017，名字姓氏。： – 已回复要求提供更多信息。 15:12在15/02/2017，名字姓氏。： – 需要更多信息来处理进度请求。 17:09在09/02/2017，名字姓氏。： – 已经提出要求。我想要做的是运行一个查询（无论是在MS Access或MS Excel），可以扫描此字段，检测### ## ## ## ## ###，Firstname姓名上出现“##：##： – “然后在它们之前自动插入一个换行符，这样这个文本就更加整齐地格式化了。这显然会跳过这种格式的第一次出现，否则它会在字段的开头input一个新行。理想的最终结果是： 09:00在01/03/2017，名字姓氏。： – 已回复要求提供更多信息。 15:12在15/02/2017，名字姓氏。： – 需要更多信息来处理进度请求。 17:09在09/02/2017，名字姓氏。： – 已经提出要求。说实话，我到目前为止还没有尝试过很多，因为我真的不知道从哪里开始。我不知道这是否可以没有正则expression式，或在一个简单的查询与VBA代码。我确实开始build立一个正则expression式，就像这样： [0-9]{2}:[0-9]{2}\s[o][n]\s[0-9]{2}\/[0-9]{2}\/[0-9]{4}\,\s 但是这看起来有些荒谬，我相当肯定我正在以一种非常不必要的方式去解决这个问题。从我能从文本中看到，检测下一次出现的“##：## on ## / ## / […]

在VBA中input与包含公式的空单元格不匹配错误: 我正在将数据从Excel导出到Access。 excel中的数据包含公式，这些公式用if函数留下单元格空白： =IF(SISESTUS!B18="";"";SISESTUS!C18 。问题是：VBA不能读取具有公式的空白单元格。这会引起types不匹配错误。当我只复制值然后是好的，我的出口macros运行完美。码： Sub Export_Data() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim dbPath Dim x As Long, i As Long Dim nextrow As Long On Error GoTo errHandler: dbPath = ActiveSheet.Range("S3").Value nextrow = Cells(Rows.Count, 1).End(xlUp).row Set cnn = New ADODB.Connection If Sheet8.Range("A2").Value = "" Then MsgBox " Lisa […]

在Access中使用Excel SaveAs命令: 我已经做了研究，发现这个话题很less。我做了一个excelmacros来在线保存一个文件，但是想把代码移植到Access中，把所有代码放在一个地方（我通过Access调用Excelmacros）。这里是Excelmacros。 ThisWorkbook.RefreshAll Application.CalculateUntilAsyncQueriesDone ActiveWorkbook.ServerViewableItems.DeleteAll ActiveWorkbook.ServerViewableItems.Add ActiveWorkbook.Sheets("Data") ActiveWorkbook.SaveAs Filename:= _ "website" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 它在Excel中工作。当我把它移到Access时，我改了一下代码。 Dim objWorkbook As Object Dim sourcefilepath As String Set objXL = CreateObject("Excel.Application") objXL.Application.Visible = False objXL.displayalerts = False 'objXL.Application.Run ("SharepointUpload")' objXL.ActiveWorkbook.RefreshAll objXL.Application.CalculateUntilAsyncQueriesDone objXL.ActiveWorkbook.ServerViewableItems.DeleteAll objXL.ActiveWorkbook.SaveAs FileName:= _ "website" _ , FileFormat:=xlExcel12, CreateBackup:=False objWorkbook.Close objXL.Quit Set objWorkbook = Nothing […]

在VBA中插入查询: 我使用Access 2013和Excel 2013.就参考而言，我使用Microsoft Office 15.0 Access数据库引擎对象库。所以我试图从VBA运行一个INSERT INTO查询。工作表有一个零件号码列表，我使用这个代码转换成一个数组。 Function partArray() Dim partList() As Variant Dim partArr(10000) As Variant Dim x As Long partList = ActiveWorkbook.Worksheets("Parts").ListObjects("Parts").ListColumns("Part Number").DataBodyRange.Value For x = LBound(partList) To UBound(partList) partArr(x) = partList(x, 1) Next x partArray = partArr End Function 现在我正试图使用INSERT INTO查询将这些零件号码input到访问表中。任何想法我怎么能做到这一点？

将访问查询导入到Excel表格中时出现“无效的过程调用或参数”: 我有一个Excel数据透视表和图表链接到一个Excel表格。我想创build一个button，当按下时，删除表中的任何数据，并用访问数据库中保存的查询的更新数据replace它。我已经写了下面的代码，但是当我运行该过程时，出现“无效的过程调用或参数”错误。有谁知道我哪里出了错？ 'button on excel form runs procedure to remove current data in table then 'import data from query in MS access database Sub ImportData() Call CleanTheTable("MMPres_MainData", "MainData") Call ImportAccessData("qry_MMPres_Main", "MMPres_MainData", "MainData" End Sub 'procedure finds database file and imports query into excel table Sub ImportAccessData(qry As String, sht As String, tbl As […]

如何通过下拉列表的选项复制和粘贴Excel工作表: 我有一个Excel工作簿（s）有工作表与相似产品的公式。在我在工作表上创build的表单中，共有2个下拉列表。（C2）“样式”（D3）“版本”下拉式用于input条目时较less的type-o错误。我想要做的是，从所select的下拉条目select，select工作表“部分A1：J13”并复制到一个新的工作表打印和保存。可以有3个适合页面。目前正在填写每张表格并复制并粘贴到新的新表格中进行打印。我有可用的资源… Excel 2017，Access 2017和VB 6.0。我发现如何使用vbscript复制从一张纸到另一张纸的行，这是有帮助的。但还没有。控制表，列表，输出的附加屏幕截图。黄色斑点计算表单上的信息。无法上传图片没有足够的代表点

从excel运行计数到访问: 在Excel中我有以下公式： =COUNTIFS(A:A,A3,B:B,B3)-COUNTIFS(A4:A$1992,A3,B4:B$1992,B3) 如何在Access中从COUNTIFS函数创build相同的输出？我对Accessfunction和/或VBA的了解不是很强，因为我刚刚开始使用Access。任何帮助深表感谢！

Excel / Access，如何将查询的内容导出到预先存在的工作表而不会中断引用？: 所以我有这个大的Excel工作簿有一个工作表的几个引用（在同一个工作簿），并且这个工作表必须定期更新从MS Access数据库中的查询（这是我写在MS Access VBA中的代码）。但是，我不知道如何将查询导出到该工作簿/工作表，没有“replace”工作表，搞乱了所有的引用。还有另一种方法吗？

Excel工作表和MS Access表joinVisual Studio C＃: 我有一个名为mer_SVC excel表和名为GIS MS Access数据库表。我想通过在Access表中导入Excel工作表，在devise视图中生成sql查询（如下所示）。我正在使用Visual Studio 2015在DataGrid视图中显示输出。现在使用两个OleDbConnection我怎么能生成上面的查询。查询语法错误即将到来。 string stringconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + textselect.Text + ";" + "Extended Properties='Excel 8.0;HDR=YES;'"; OleDbConnection conn = new OleDbConnection(stringconn); string stringcon = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\GIS\Documents\Match.accdb;"; OleDbConnection conn1 = new OleDbConnection(stringcon); string path = @"F:\RAEC\RAECOEXCEL\Customer Data from CRM – Copy.XLSX" + " Excel 8.0"; string query = […]